20 Fev 2017 15:36
20 Fev 2017 16:25
leto_connect( "\\loja2.ddns.net:2812\")
use clientes new shared
browse()
Comparing HBNETIO with LetoDB does not make sense. HBNETIO for file IO
operations is only network redirector which uses TCP connections to
replace different native system network redirectors. It give some small
speed improvement (i.e. 20-30%) but the main goal is resolving problems
with local caches and incompatible locking which break concurrent file
access when different OS-es are used on client stations or some of them
use danger "speedup" mechanism like opportunistic locking or some others
does not have native network redirectors which allow to connect to the
server.
Nothing more. Pure HBNETIO file access does not reduce network
traffic. Only RPC in HBNETIO can noticeable reduce it and this will
give the best speed results but user has to add to the server code
for all time consuming operations he wants to optimize.
best regards,
Przemek
20 Fev 2017 16:34
The two lines above indicate the timing to delete the 1,010 attribute tags that were created in the previous process. For LetoDBF the process took 22 seconds more or less.
The attribute tag deletion process under ADS took 4 minutes and 1 second, more or less.
20 Fev 2017 22:01
20 Fev 2017 22:41
21 Fev 2017 09:55
Mais em:The cause of this fork was to get the freedom of removing over many years accumulated legacy technics, and to continue, to...
21 Fev 2017 11:56
02 Mar 2017 00:11
02 Mar 2017 00:13
14 Mar 2017 23:15
// chamada da net_use()
* dbf alias indice
if (!net_use("MCOCUP", "MCO","MCOCUP"))
quit
endif
**********************************************************
function Net_use
parameters lfile, lalias, lindex, lexcl, lretry
private lforever, v_arq,nomearq
lretry:= iif(Type("lretry") != "N", 500, lretry)
lexcl:= iif(Type("lexcl") != "L", .F., lexcl)
lforever:= lretry == 0
v_arq:= lfile + ".dbf"
do while (lretry > 0 .or. lforever)
if (lexcl)
use (lfile) alias (lalias) new exclusive
else
use (lfile) alias (lalias) new
endif
if (used())
exit
endif
if (mens(24, 11, "Arquivo nao liberado... AGUARDE ", 1) == 27)
exit
endif
lretry:= lretry - 1
enddo
if (used())
if (lindex = p_bancos+"MCOCUP")
if (!file(p_bancos+"MCOCUP.CDX"))
nomearq:= lindex
* Criando arquivo de indice
index on sui tag sui to (lindex)
set index to (lindex)
else
set index to (lindex)
endif
endif
endif
*************************************
15 Mar 2017 09:25
15 Mar 2017 10:48
15 Mar 2017 18:05
17 Mar 2017 17:01
RDDSETDEFAULT("LETO")
leto_Connect( '//localhost:2812/' ) // ou o IP onde está os DBF´s com o LETO 192.168.10.10 por exemplo, no lugar de localhost.
...Aqui suas funções.
19 Mar 2017 11:02
RDDSETDEFAULT("LETO")
leto_Connect( '//localhost:2812/' ) // ou o IP onde está os DBF´s com o LETO 192.168.10.10 por exemplo, no lugar de localhost.
// chamada da net_use()
* dbf alias indice
if (!net_use("MCOCUP", "MCO","MCOCUP"))
quit
endif
**********************************************************
function Net_use
parameters lfile, lalias, lindex, lexcl, lretry
private lforever, v_arq,nomearq
lretry:= iif(Type("lretry") != "N", 500, lretry)
lexcl:= iif(Type("lexcl") != "L", .F., lexcl)
lforever:= lretry == 0
v_arq:= lfile + ".dbf"
do while (lretry > 0 .or. lforever)
if (lexcl)
use (lfile) alias (lalias) new exclusive
else
use (lfile) alias (lalias) new
endif
if (used())
exit
endif
if (mens(24, 11, "Arquivo nao liberado... AGUARDE ", 1) == 27)
exit
endif
lretry:= lretry - 1
enddo
if (used())
if (lindex = p_bancos+"MCOCUP")
if (!file(p_bancos+"MCOCUP.CDX"))
nomearq:= lindex
* Criando arquivo de indice
index on sui tag sui to (lindex)
set index to (lindex)
else
set index to (lindex)
endif
endif
endif
*************************************