Moderador: Moderadores
O problema todo é que vcs fazem muita confusão.tem alguma configuração que eu possa mudar para melhorar a performasse ??
Código: Selecionar todos
C:\dev\hb32-code>ping servidor -4
Disparando servidor [192.168.1.154] com 32 bytes de dados:
Resposta de 192.168.1.154: bytes=32 tempo=2ms TTL=128
Resposta de 192.168.1.154: bytes=32 tempo=3ms TTL=128
Resposta de 192.168.1.154: bytes=32 tempo=2ms TTL=128
Resposta de 192.168.1.154: bytes=32 tempo=2ms TTL=128
Estatísticas do Ping para 192.168.1.154:
Pacotes: Enviados = 4, Recebidos = 4, Perdidos = 0 (0% de
perda),
Aproximar um número redondo de vezes em milissegundos:
Mínimo = 2ms, Máximo = 3ms, Média = 2ms
Código: Selecionar todos
C:\dev\hb32-code>ping servidor -4
Disparando servidor [192.168.1.154] com 32 bytes de dados:
Resposta de 192.168.1.154: bytes=32 tempo<1ms TTL=128
Resposta de 192.168.1.154: bytes=32 tempo<1ms TTL=128
Resposta de 192.168.1.154: bytes=32 tempo<1ms TTL=128
Resposta de 192.168.1.154: bytes=32 tempo<1ms TTL=128
Estatísticas do Ping para 192.168.1.154:
Pacotes: Enviados = 4, Recebidos = 4, Perdidos = 0 (0% de
perda),
Aproximar um número redondo de vezes em milissegundos:
Mínimo = 0ms, Máximo = 0ms, Média = 0ms
Código: Selecionar todos
REQUEST DBFCDX
REQUEST LETO
*---------------*
FUNCTION MAIN()
*---------------*
RddSetDefault("LETO")
cIP:= BUSCA_IP_ARQINI()
//cIP:="localhost"
cPort:="2812"
public cPathLeto := "//"+cIP+":"+cPort+"/"
nTimeOut := -1
nHotBuf := 10
if cIP # "localhost" .and. cIP # "127.0.0.1" // para acesso remoto
tela_conex := MSGBOX({".... Conectando al servidor ....", "", ;
"-- "+ cPathLeto +" --"} )
endif
IF leto_Connect( cPathLeto, /*user*/, /*pass*/, nTimeOut /*timeout*/, nHotBuf /*hot buffer*/ ) == -1
rstenv(tela_conex)
MSGBOX3D1({"Servidor no encontrado, verifique su conexi¢n!", "", ;
"-- "+ leto_Connect_Err( .T. ) +" --"}, "Camino : " + cPathLeto )
QUIT
ENDIF
Código: Selecionar todos
do while aTenta2 > 0
if aExclusivo = .t.
dbUseArea( .t.,'LETO',(aDBF), aAlias, if(.f. .or. .t., !.t., NIL), .f. )
else
dbUseArea( .t.,'LETO',(aDBF), aAlias, if(.t. .or. .f., !.f., NIL), .f. )
endif
if neterr() = .f.
restscreen(0,0,24,79,aTela)
return(.t.)
endif
Código: Selecionar todos
WIN(12,22,15,55,"Espere!", WT_AZUL1BRANCO, WD_AZUL1BRANCO)
@14,23 say ".. Abriendo bases de datos .." color "N/W*"
set color to "R+/W*"
inkey(0.5)
use psw shared alias psw new via "LETO" // senhas do usuario
use ace shared alias ace new via "LETO" // acesso do usuario
use psn shared alias psn new via "LETO" // grupo de acesso senhas
use par shared alias par new via "LETO" // parametros do sistema
use loj shared alias loj new via "LETO" // lojas
use cam shared alias cam new via "LETO" // cambio
Código: Selecionar todos
***********************************
// cria indices
if !leto_file("psw" + indexext()) //.and. curdir() # "controle_"
@10,44 say "psw.cdx "
inkey(0.1)
if abre_index("psw.dbf",.t.,"psw","psw.cdx") = .f.
close databases
return
endif
index on usuario tag pswcx_01
index on senha tag pswcx_02
dbcloseall()
endif
SIM... computador rapido é utilizado para servidor ..Itamar M. Lins Jr. escreveu:Olá!
Tá copiando rápido um arquivo do servidor para estação ?
Tem alguma pasta compartilhada para fazer testes ?
Uma rede dessas até via pasta compartilhada para 2 maquinas pelo menos não deveria de ficar tão lento. "sem uso do LetoDBf"
Saudações,
Itamar M. Lins Jr.
