Ajuda dos experientes:
1 - Baixei e compilei o LETODBF
2 - ativei o serviço
10.18.2019 14:31:45 DEBUG thread3() ending ..
10.18.2019 14:31:45 Server at port 2812 have shutdown.
10.18.2019 14:32:38 UDF file: C:\LetoDBf-master\bin\letoudf.hrb not present.
10.18.2019 14:32:38 INFO: LetoDBf Server 3.00 (20191017), will run at port :2812 ( internal also used :2813 )
10.18.2019 14:32:38 INFO: DataPath=C:\COMARA, ShareTables=1, NoSaveWA=1, Max Tables=999
10.18.2019 14:32:38 INFO: LoginPassword=0, CacheRecords=21, LockExtended=0, Max Users=99
10.18.2019 14:32:38 DEBUG second socket: 324 for errors established
10.18.2019 14:32:38 DEBUG thread3() with pipe handle: 332 started ..
3 - o meu arquivo .ini segue abaixo
;Server = 192.168.15.30
;IP = 192.168.15.30
Port = 2812
DataPath = C:/COMARA
;LogPath = /tmp
Default_Driver = CDX
;Lock_Scheme = 6
;Memo_Type = FPT
Share_Tables = 1
No_Save_WA = 1
Lower_Path = 0
EnableFileFunc = 1
EnableAnyExt = 1
Allow_UDF = 1
Pass_for_Login = 0
Pass_for_Manage = 0
Pass_for_Data = 0
;Pass_File = leto_users
Cache_Records = 21
;Max_Vars_Number = 1000
;Max_Var_Size = 67108864
;Tables_Max = 999
;Users_Max = 99
Debug = 1
Optimize = 1
;AutOrder = 0
;ForceOpt = 0
;TimeOut = 360
;Zombie_Check = 0
;Server_User = advantage
;Server_UID = 1000
;Server_GID = 4
;BC_Services = letodb;
;BC_Interface = eth2
;BC_Port = 2812
;SMB_SERVER = 1
DataBase = /
Backup = /tmp/backup
Mask = *.dbf,*.dbt,*.ntx
Lock = 1
Seconds = 30
Wait = 1
ArcCmd = tar -cvzf /tmp/backup/leto.tar.gz /tmp/backup/*
o ip na rede interna da maquina onde esta o letodbf é 192.168.15.30
4-Liberei a porta do modem conforme abaixo
5-fiz o seguinte codigo no aplicativo
#include "dbinfo.ch"
#include "rddleto.ch"
#include "hwgui.ch"
REQUEST LETO
REQUEST DBFCDX
REQUEST HB_CODEPAGE_PTISO, HB_CODEPAGE_PT850
****************************************
FUNCTION MAIN( Caminho )
****************************************
LOCAL oMENUPRINC;
, oToolbar1;
, oFont;
, TENTATIVA, OK_SENHA;
, nPort := 2812
PUBLIC cPath := Caminho
IF Empty( cPath )
//cPath := "//127.0.0.1:2812/"
cPath := ""
RDDSETDEFAULT( "DBFCDX" )
ELSE
cPath := "//" + cPath + IiF( ":" $ cPath, "", ":" + ALLTRIM( STR( nPort ) ) )
cPath += Iif( Right(cPath,1) == "/", "", "/" )
RDDSETDEFAULT( "LETO" )
IF ( leto_Connect( cPath ) ) < 0
hwg_MsgInfo( "Erro Conectando ao Servidor: " + cPath + leto_Connect_Err( .T. ), "Verifique!!!")
quit
ELSE
hwg_MsgInfo( "Conecção com o Servidor "+ cPath + " OK", "Conecção!!!" )
ENDIF
ENDIF
mas a coisa nao funciona , simplesmente da erro de conecção,
onde estou errando ???? :'( :'( :'(
tenho de carregar algo cliente na outra maquina???
como chamar o aplicativo ???
já testei destas formas:
sgc 192.168.15.30
sgc localhost
mas todas as formas que tentei dão erro de conecção