PC Toledo

Olá!
Soluções possíveis:

a) Formatar com windows 7
b) Usar TS.
c) Usar RDDSQL
d) Usar NetIO ? Xharbour não usa MT.(não sei se está ok)
e) Usar LetoDBf xHarbour. (sem compactação...)
f) Usar LetoDbf Harbour servidor windows 11/10/7...(*)
g) Usar LetoDbf Harbour servidor Linux (**)

* e ** Melhores ...

... do leto você indicou qual a pasta raiz, qualquer coisa é relacionada àquele path.
Neste último, usou o path atual, que pro leto é esse dos arquivos.

Aceitar qualquer path seria falha de segurança.
No hb_NetIo é a mesma coisa.
Mas não tem nada a ver com leto, hb_NetIo não tem nenhuma otimização.

... renomear
If FError() <> 0
Return .F.
EndIf
EndIf
Return .T.

Procedure MyFErase(a)
If oVIA_RDD=="LETO"
LETO_FErase(a) //apaga
ElseIf oVIA_RDD=="NETIO"
dbDrop(a)
Else
FErase(a) //apaga
EndIf
Return .T.


Aproveitando o ensejo, para poder usar tanto LETO como DBFCDX local na maquina cliente ...

Olá!
Através das funções de usuário. Tem nos exemplos do NetIO. Olhem na pasta \contribs\hbnetio\tests
netio_FuncExec


/* to execute this code run server (netiosrv) on the same machine
* with support for RPC and "topsecret" password, i.e.:
* netiosrv "" "" "" 1 topsecret
* then you can try to ...

... HB_FCOPY()
Please remember that HB_FCOPY() always makes operation using current
system when HB_VFCOPY() may optimize it moving the operation to low
level subsystem or even other computer i.e. NETIO can do that when
both files are located on the same server.


Saudações,
Itamar M. Lins Jr.

A vantagem do LetoDbf sob o NetIO pq tem muitos extras p/ ganho de velocidade e tratamento de dados.


O hbnetio apenas faz a ponte entre o terminal e o servidor, esse eu ainda uso.
Foi uma solução pra terminal service sem expor arquivos.

Já o letodbf faz processamento junto ao servidor.

Na ...

Olá!
queria saber se tem ganho em velocidade.
Não tem.

Respondendo o Rochinha:
Com LetoDB ou NetIO pode ser, eu não os uso.
LetoDb/Netio não usam protocolo SMB. É um servidor igual ao MySQL/MariaDb... (TCP/IP)
A vantagem do LetoDbf sob o NetIO pq tem muitos extras p/ ganho de velocidade e ...

... trabalha com caminho concretos, ou seja, letras de drives.

Para abrir caminhos UNC é necessário alguMa mudança no comando USE.

Com LetoDB ou NetIO pode ser, eu não os uso.

Voce pode até abrir uma tabela por \\ mas os indices não abrirão e nem vincularão a tabela e trabalhar com engessamento ...

NÃO SEI, NUNCA USEI.

Só uso USE (arquivo) ou use ( "pasta\" + arquivo )

Não faço idéia porque insistem em definir path no programa, sendo que usar a pasta atual funciona de qualquer jeito em qualquer lugar.

Isso vale inclusive pra hb_netio, e provavelmente também pra letodb.

Meu uso:


FUNCTION ze_NetIoOpen()

IF AppDatabase() == DATABASE_HBNETIO
IF ! NetIo_Connect( "SERVIDOR", 22000, , "senha" )
MsgExclamation( "Não foi possível conectar com servidor" )
QUIT
ENDIF
ENDIF

RETURN NIL

FUNCTION ze_NetIoClose()

IF AppDatabase() == DATABASE_HBNETIO
BEGIN SEQUENCE ...

... LOCAL oErro

BEGIN SEQUENCE WITH {| oErro | oErro:cargo := { oClPF:ListaFuncoes(2, oErro) }, Break( oErro ) }

IF ! ::lLocalHost
IF File( [NETIO\SERVER5\SERVIDORIP.INI] )
::cServer := hwg_GetIni( 'CONFIGURACAO', 'Addr', '', [NETIO\SERVER5\SERVIDORIP.INI] )
ENDIF
ENDIF

WITH OBJECT ...

... LOCAL nIconIndex
LOCAL nHandleFile, nWidthW, nHeightH, nWidth, nHeight, aListBox:={}, oElemento

PUBLIC oWin
PUBLIC cDirSis := Hb_DirBase() + [NETIO\SERVER5\DB\], ;
cDirTMP := Hb_GetEnv("TEMP") + Hb_Ps()
PUBLIC cVersao
PUBLIC Tecla
PUBLIC cUsuSis
PUBLIC cSenSis
PUBLIC cCor_0101
PUBLIC cCor_2424 ...

... o fizer vou fazer um pente fino para ver se tudo se comporta como o esperado.

O trabalho que vc está tendo em fazer isso, já está pronto no NetIO e no LetoDbf, é só usar.
Vc vai usar o LetoDbf/NetIO para roda RPC só isso!
Digamos que vc tem uma FuncaoFiltroX para rodar no servidor, esses ...

Ola!
E tem o NetIO, também.
Não está reinventando a roda ?

Saudações,
Itamar M. Lins Jr.

... LOCAL nIconIndex
LOCAL nHandleFile, nWidthW, nHeightH, nWidth, nHeight, aListBox:={}, oElemento

PUBLIC oWin
PUBLIC cDirSis := Hb_DirBase() + [NETIO\SERVER5\DB\], ;
cDirTMP := Hb_GetEnv("TEMP") + Hb_Ps()
PUBLIC cVersao
PUBLIC Tecla
PUBLIC cUsuSis
PUBLIC cSenSis
PUBLIC cCor_0101
PUBLIC cCor_2424 ...