PC Toledo

asimoes escreveu:
Qual é a versão do harbour que você está usando? se for a compilada com mingw a extensão da lib será com .a mesmo.

asimoes escreveu:
Tenho uma sugestão para você, considere o uso da lib netio que faz parte do projeto harbour, eu utilizo e recomendo.

clipsis escreveu:1 - Quais as vantagens de se usar o netio existe ganho de performance ?
(o meu problema é a reclamação sobre a lentidão do acesso aos dados em ambiente de rede

clipsis escreveu:2 - Quais serias as mudanças necessárias para implantá-la ?
(Tenho sistemas gerados com o GASPro e gostaria de aproveitá-los.)

clipsis escreveu:3 - É possível acesso remoto com a netio ?

asimoes escreveu:
2- Você terá que fazer algumas alterações no código fonte do seu sistema assim como o faria com o rddleto, para abertura dos dbfs.

asimoes escreveu:
Terá que usar o hbnetio ou algum sistema servidor (posso te passar o servidor que eu fiz para netio e exemplos de como usar) e linkar a biblioteca hbnetio no seu projeto de compilação.

clipsis escreveu:As alterações seriam mais na abertura dos dbfs ? O restante de uso (inclusão, edição, exclusão, busca) seria o mesmo se usasse o DBFNTX?

clipsis escreveu:Se puder me indicar ou passar servidor e exemplos de como utilizar e compilar agradeço

2. Building binaries

2.1 Borland Win32 C compiler

An environment variable HB_PATH, which defines a path to the Harbour
directory, must be set before compiling. This can be done, for example,
by adding a line in a make_b32.bat:

SET HB_PATH=c:\harbour

If you use xHarbour, uncomment a line 'XHARBOUR = yes' in makefile.bc.
Then run the make_b32.bat and you will get server executable file letodb.exe in a bin/
directory and rdd library rddleto.lib in a lib/ directory.

2.2 Linux GNU C compiler

An environment variable HB_ROOT, which defines a path to the Harbour
directory, must be set before compiling. Or just change the value of HRB_DIR
in the Makefile.linux.

Then run the make_linux.sh and you will get server executable file letodb in a bin/
directory and rdd library librddleto.a in a lib/ directory.

2.3 xHarbour Builder

Run the make_xhb.bat to build binaries with this compiler. Probably,
you will need to change the path to your xHarbour Builder copy in the
make_xhb.bat. Default value is:

set XHB_PATH=c:\xhb

2.4 Mingw C compiler

An environment variable HB_PATH, which defines a path to the Harbour
directory, must be set before compiling. This can be done, for example,
by adding a line in a make_mingw.bat:

SET HB_PATH=c:\harbour

If you use xHarbour, uncomment a line 'XHARBOUR = yes' in makefile.gcc.
Then run the make_mingw.bat and you will get server executable file letodb.exe in a bin/
directory and rdd library librddleto.a in a lib/ directory.

2.5 Building letodb with hbmk

Now there is a possibility to build letodb with a Harbour make utility, provided by
Viktor Szakats. The command line syntax is:

hbmk2 [-hb10|-xhb] rddleto.hbp letodb.hbp [-target=tests/test_ta.prg]

Optional parameters: -hb10 - Harbour version is 1.0 or 1.0.1,
-xhb - xHarbour,
-target="blank"\test_ta.prg - build the test, too.

1 - Netio faz parte do projeto harbour, já o rddleto apesar de estável, já faz muito tempo que não há evolução.
Sendo o netio uma contribuição do projeto harbour terá sempre até que digam ao contrário, uma manutenção evolutiva/corretiva

veja as ultimas modificações/correções/adições.

2012-11-30 18:15 UTC+0200 Pavel Tsarenko (tpe2/at/mail.ru)
* source/client/leto1.c
* source/server/letofunc.c
+ added support for ordBagClear()
* include/funcleto.h
* updated version (2.10)

2012-11-27 18:10 UTC+0200 Pavel Tsarenko (tpe2/at/mail.ru)
* utils/manager/manage.prg
* warnings
+ utils/manager/console.hbp
+ utils/manager/manage.hbp
+ hbmk2 files

2012-11-23 18:10 UTC+0200 Pavel Tsarenko (tpe2/at/mail.ru)
* source/client/leto1.c
* source/client/letomgmn.c
* added removal ip from path in the 2nd parameter of leto_FRename()

2012-11-22 18:30 UTC+0200 Pavel Tsarenko (tpe2/at/mail.ru)
* source/client/leto1.c
* source/server/letofunc.c
* using set scope in leto_Sum() and leto_groupBy() functions
* added filling recno after commit transaction for appended records.
protocol has been changed, but older versions can evaluated commit transaction
% SELF_RECID() call replaced with SELF_RECNO()
* include/funcleto.h
* updated version (2.09)

2012-11-12 19:20 UTC+0200 Pavel Tsarenko (tpe2/at/mail.ru)
* source/server/server.prg
* removed unused cValToChar() function, FilePath() and GetExten()
functions replaced with hb_FNameDir() and hb_FNameExt()
* source/server/letofunc.c
* added error handling in leto_Udf()
* tests/letoudf.prg
* added error handling in UDF_Trans() function

2012-10-18 18:05 UTC+0300 Pavel Tsarenko (tpe2/at/mail.ru)
* include/rddleto.h
* source/client/leto1.c
* source/client/letomgmn.c
* crypt buffer moved to LETOCONNECTION structure
* added "s_" prefix to static variables
* added leto_checkLockError() function
+ support for RDDI_CONNECTION
! fixed leto_SetCurrentConnection()
* source/server/letofunc.c
* formatting

Posso estar enganado, mas essa extensão .a não sería para uso com o Linux ?
Não estaría faltando algum ajuste nos scripts de compilação ?

Boa UMA duvida

o letoDB tem alguma forma de segurança MAIOR que o DBF puro ?

ex: Imagine uma tabela DBF no servidor e os usuarios acessando o servidor pelo TS.
ou seja e´como se estivessem trabalhando SOMENTE no servidor.
se utilizarmos o TS e SOMENTE trocar o dbf pelo TETODB a segurança é MAIOR quanto a corrupçoes de Indices ?
ou seria a mesma coisa ?

Pergunta: Não deveria haver um arquivo LIBRDDLETO.LIB (ou algo parecido) na PASTA lib ?
Executei: HBMK2 LETODB.HBP e HBMK2 RDDLETO.HBP
Fiz algo errado ? O que ?

cd \letodb\bin
letodb install
net start letodb_service

Port = 2812              
Logfile = "letodb.log"   
DEFAULT_DRIVER = CDX     
DATAPATH = c:\database\
ENABLEFILEFUNC = 1
CRYPT_TRAFFIC = 0
PASS_FOR_LOGIN = 0
PASS_FOR_MANAGE = 0
PASS_FOR_DATA = 0
Share_Tables  = 0
[DATABASE]
DataPath = c:\database\
Driver = CDX

//fragmentos do código que eu uso.
Local cHost := "//localhost:2812/"

   nConect := leto_Connect( cHost )
      IF nConect == -1
          nRes := leto_Connect_Err()
         IF nRes == LETO_ERR_LOGIN
            MsgStop( "Falha ao Logar" )
         ELSEIF nRes == LETO_ERR_RECV
            MsgStop( "Error ao conectar" )
         ELSEIF nRes == LETO_ERR_SEND
            MsgStop( "Erro de envio" )
         ELSE
            MsgStop( "Não connectado ao servidor: " + cHost )
         ENDIF
         Return .f.
      ENDIF
   EndIf

Function AbreDB(...)

   BEGIN SEQUENCE WITH {| oErr | Break( oErr ) }
       If lRddLeto
           If Leto_File(cHost+Db)
            DbUseArea(.t.,"LETO",cHost+DB,apel,.T.,.F.,'PTISO')
           Else
              MsgStop('LetoDb Não Localizou o Arquivo: '+cHost+Db)
              lRet := .f.
           EndIf
       Else
           DbUseArea(.t.,'DBFCDX',dDados+DB,apel,.T.,.F.,'PTISO')
       EndIf
 
   Recover
    If lRddleto
        msginfo('Erro, abrindo Arquivo: '+cHost+Db+' Compartilhado')
    Else
        msginfo('Erro, abrindo Arquivo: '+dDados+Db+' Compartilhado')
    EndIF
     lRet := .f.
   End Sequence

   if Neterr()
     MsgInfo('Usado de Forma Exclusiva, Em Outro Lugar.')
     lRet := .f.
   endif