Isso!
Fica muito vulnerável.
Saudações,
Itamar M. Lins Jr.

Moderador: Moderadores
filizola escreveu:tente primeiro fazer uma conexao pelo mstsc so pra testar.
Minduim escreveu:somente efetuei o registro da imagem em anexo no roteador e liberei a porta 2812 no firewall do windows; entendo que o programa do seu roteador, se não é o mesmo, é muito parecido;
Function Main
Local cServidor := "//192.168.0.122:2812/" //seuservidor.no-ip.info aqui!
nConect := leto_Connect( cServidor )
IF nConect == -1
nRes := leto_Connect_Err()
IF nRes == LETO_ERR_LOGIN
hwg_MsgStop( "Falha ao Logar" )
ELSEIF nRes == LETO_ERR_RECV
hwg_MsgStop( "Error ao conectar" )
ELSEIF nRes == LETO_ERR_SEND
hwg_MsgStop( "Erro de envio" )
ELSE
hwg_MsgStop( "Não connectado ao servidor: " + cServidor )
ENDIF
Return .F.
ENDIF
hwg_MsgInfo( "Conectado ao servidor: " + cServidor )
Leto_disconect()
Itamar M. Lins Jr. escreveu:Para saber se o letodb está rodando Use:
...
Local cServidor := "//192.168.0.122:2812/" //seuservidor.no-ip.info aqui!
filizola escreveu:Exato. quando disse para tentar fazer uma conexão via mstsc é pela porta 3389
Minduim escreveu:os arquivos letodb.exe, leudbf.hrb e letodb.ini estão junto com os dbfs;
a chamada para iniciar o letldb_service tem que partir de onde esta o letodb.exe, caso você verifique no firewall do windows que o letodb_service foi iniciado em outro diretorio, desative o serviço e comece do zero
Itamar M. Lins Jr. escreveu:Outo detalhe é que na própria maquina usando yxz.no-ip.info não funciona!!!
Tem que usar //localhost:2812/ ou o IP da placa de rede 192.168.X.XXX:2812
DbUseArea(.T.,"LETO", PathLeto + "NOMES.DBF","Nomes", .T. )
Algum exemplo de como usar estes comandos para Incluir, Alterar e Excluir registros no DBF com o LetoDB.
{win}incpaths=c:\letodb\include;
{win}libpaths=c:\letodb\lib;
{win}libs=rddleto
#---------------------------
# Nome do Execut vel
# ---------------------------
-oSysLoja
-run
# ---------------------------
# hbc
# ---------------------------
letodb.hbc
# ---------------------------
# Prg(s) e Rc(s)
# ---------------------------
menu.prg
******************************************
// usar assim: AbreDb( [A16CLI],[CLIENTE] )
Function AbreDB( cArquivo, cAlias, lModo )
Local lRet := .t.
Local xArq := cArquivo
lModo := IIf( lModo == nil , .t. , .f. )
cArquivo := IIf( At( ".", xArq ) > 0 , cArquivo, cArquivo + ".dbf" )
If Leto
If Leto_File( PathServ + cArquivo )
//*** PathServ = "//192.168.0.1:2812/"
DbUseArea(.t.,'LETO', PathServ + cArquivo,cAlias,lModo )
Else
MSG( 'LetoDB Não Foi Localizado: ' + PathServ + cArquivo )
lRet := .f.
EndIf
Else
DbUseArea(.t.,'DBFCDX',cArquivo,cAlias,lModo )
EndIf
Return lRet
Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes