LetoDb e Harbour, como usar.

[Itamar M. Lins Jr.]

Isso!
Fica muito vulnerável.

Saudações,
Itamar M. Lins Jr.

[Toledo]

tente primeiro fazer uma conexao pelo mstsc so pra testar.

Bom, não sei se estou fazendo certo, tentei da seguinte forma:

mstsc /v:192.168.0.122:2812

Esta tentativa foi usando o IP do computador na rede local, mas deu a seguinte mensagem:

Depois tentei usando o IP externo que aparece no DUC do noip, que é o mesmo que aparece quando dou um ping no meu endereço do noip, e também tentei usando o endereço do meu noip, por exemplo:

mstsc /v:179.216.254.10:2812

ou

mstsc /v:pctoledo.noip.me:2812

Nas duas tentativas retornou:

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;

A versão do programa do roteador é outra, mas a configuração é bem parecida.

Mas continua na mesma, não consigo conectar usando o endereço ou IP do noip.

Uma dúvida, neste caso de conexão remota pelo noip, o sistema operacional do computador onde está o LetoDB tem que ser algum Windows Server ou pode ser Windows 8 (que é o meu caso)?

Abraços,

[Itamar M. Lins Jr.]

Está errado ai via mstsc.
O terminal server usa 3389 a porta. A porta 2812 é do LetoDb.
Você está tentando conectar o terminal server na porta do letodb ! Nunca irá funcionar.

Para saber se o letodb está rodando Use:

Código: Selecionar todos

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()

Saudações,
Itamar M. Lins Jr.

[filizola]

Exato. quando disse para tentar fazer uma conexão via mstsc é pela porta 3389, só pra ver se consegue chegar na máquina. porque se a maquina servidora estiver te bloqueando no mstsc, é muito provável que estará te bloqueando no letodb também.

[Minduim]

toledo;
utilizo windows 7 e provedor net
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 ( no prompt do dos digite : sc delete letodb_service );
para iniciar o letodb_service, no prompt do dos ou um arquivo bat, digite:
letodb install
net start letodb_service

para desativar o letodb_service, no prompt do dos ou arquivo bat, digite:
letodb desconnect
net stop letodb_service

como postei anteriormente, ainda não aprendi a conectar/desconectar de outra forma;

espero ter ajudado o amigo;

[Toledo]

Para saber se o letodb está rodando Use:
...
Local cServidor := "//192.168.0.122:2812/" //seuservidor.no-ip.info aqui!

Itamar, se eu usar cServidor := "//192.168.0.122:2812/" funciona certinho. O problema é com o endereço do meu noip, assim cServidor := "//pctoledo.noip.me:2812/" não funciona de jeito nenhum.

Exato. quando disse para tentar fazer uma conexão via mstsc é pela porta 3389

Filizola, agora sim, consegui conectar usando: mstsc /v:192.168.0.122:3389, mas se tento com o endereço noip, ai não vai, continua apresentado a mensagem que postei na minha mensagem anterior.

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

A pasta para os DBF está em uma pasta diferente de onde o LetoDB estava instalado, então fiz a alteração para a mesma pasta do LetoDB.
Como disse acima, fazendo a conexão usando o IP local do computador onde está o LetoDB, funciona normal, tanto com os DBF na pasta do LetoDB ou em outra pasta qualquer. O problema é com o endereço do meu noip.

Abraços,

[Itamar M. Lins Jr.]

Tem que ver se o noip deixa pingar.
ping pctoledo.noip.me
Deve retorna apenas 1 com o ip depois voltam 2 ou 3 com falha é normal.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

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

Saudações,
Itamar M. Lins Jr.

[Toledo]

Amigos, pedi por MP para o Itamar fazer um teste no meu noip e deu tudo certo. Obrigado Itamar pela ajuda!

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

Eu já tinha imaginado que seria assim, então os testes que fiz foram em outros micros na rede local, mas também pelo jeito não funciona.

Mas se os seus testes deu certo, ótimo. Depois vou fazer mais alguns testes usando um outro micro, fora da minha rede local.

Obrigado a todos pela ajuda.

Abraços,

[Toledo]

Amigos, qual é o procedimento para abrir o DBF em modo compartilhado com o LetoDB?

Código: Selecionar todos

DbUseArea(.T.,"LETO", PathLeto + "NOMES.DBF","Nomes", .T. )

Apenas isto ou tem que ser feito mais algum coisa? No INI do LetoDB por exemplo!

Qual o procedimento de uso dos comandos RLOCK, UNLOCK e COMMIT com o LetoDB? Todos estes comandos são necessários com o LetoDB em um Sistema Multiusuário?

Algum exemplo de como usar estes comandos para Incluir, Alterar e Excluir registros no DBF com o LetoDB.

Abraços,

[rochinha]

Amiguinhos,

Algum exemplo de como usar estes comandos para Incluir, Alterar e Excluir registros no DBF com o LetoDB.

Tenho pra mim que se voce tem um aplicativo que faz acesso a .DBFs de forma padrão, tipo USE, APPEND, REPLACE, etc e voce deseja que este aplicativo acesse as tabelas via LetoDB a unica diferença reside no fato de que voce incluiu uma linha que faz a ligação do motor do LetoDB com as tabelas.

Depois o código deve correr da mesma forma que voce programou na sintaxe xBase.

[Dudu_XBase]

Bom Dia Itamar.
Não sei o que falta conferi o passo a passo tá dando erro para "linkeditar" num tá achando a rdd leto e a criatura ta no diretório.....kkkkk

Rodo o hbmk2 testex.prg e dá o erro



image free hosting

[janio]

Dudu,

Meu letodb.hbc está assim:

Código: Selecionar todos

{win}incpaths=c:\letodb\include;
{win}libpaths=c:\letodb\lib;

{win}libs=rddleto

Meu comp.hbp esta assim:

Código: Selecionar todos

#---------------------------
# Nome do Execut vel
# ---------------------------
-oSysLoja
-run

# ---------------------------
# hbc
# ---------------------------

letodb.hbc

# ---------------------------
# Prg(s) e Rc(s)
# ---------------------------

menu.prg

compilo assim:

hbmk2 comp.hbp


Toledo,

Qndo passei a usar o leto, alterei minha função de abertura dos dbf's para:

Código: Selecionar todos

******************************************
// 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

Todos os outros comandos continuaram do mesmo jeito (RLOCK, UNLOCK e COMMIT)

[Dudu_XBase]

Mesmo erro o gcc não acha a lib olha q tá igual ao seu tem q fazer alguma configuração no linkeditor como fazia antes no Borland o "BCC" ?

[Dudu_XBase]

Consegui salvei a lib na pasta lib do gcc e foi bora continuar os testes harbour 3.4 dev e letodb compilado do svn....

Obrigado a todos. :)Pos