PC Toledo

Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/

LetoDb e Harbour, como usar.

https://pctoledo.org/viewtopic.php?t=15108

Página 5 de 16

LetoDb e Harbour, como usar.

Enviado: 25 Jul 2014 09:34
por Itamar M. Lins Jr.
Isso!
Fica muito vulnerável.

Saudações,
Itamar M. Lins Jr.

LetoDb e Harbour, como usar.

Enviado: 25 Jul 2014 09:53
por Toledo
filizola escreveu: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:
mstsc2.jpg
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:
mstsc.jpg
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;
A versão do programa do roteador é outra, mas a configuração é bem parecida.
d_link.jpg
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,

LetoDb e Harbour, como usar.

Enviado: 25 Jul 2014 10:14
por 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.

LetoDb e Harbour, como usar.

Enviado: 25 Jul 2014 10:22
por 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.

LetoDb e Harbour, como usar.

Enviado: 25 Jul 2014 10:32
por 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;

LetoDb e Harbour, como usar.

Enviado: 26 Jul 2014 13:30
por Toledo
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!
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.
filizola escreveu: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.
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
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,

LetoDb e Harbour, como usar.

Enviado: 26 Jul 2014 15:52
por 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.

LetoDb e Harbour, como usar.

Enviado: 26 Jul 2014 19:01
por 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.

LetoDb e Harbour, como usar.

Enviado: 26 Jul 2014 19:27
por Toledo
Amigos, pedi por MP para o Itamar fazer um teste no meu noip e deu tudo certo. Obrigado Itamar pela ajuda!
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
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,

LetoDb e Harbour, como usar.

Enviado: 29 Jul 2014 16:18
por 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,

LetoDb e Harbour, como usar.

Enviado: 29 Jul 2014 17:31
por 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.

LetoDb e Harbour, como usar.

Enviado: 14 Ago 2014 11:54
por 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


Imagem
image free hosting

LetoDb e Harbour, como usar.

Enviado: 14 Ago 2014 13:12
por 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)

LetoDb e Harbour, como usar.

Enviado: 14 Ago 2014 15:37
por 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" ?

LetoDb e Harbour, como usar.

Enviado: 14 Ago 2014 15:57
por 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
Todos os horários são UTC-03:00
Página 5 de 16

Powered by phpBB® Forum Software © phpBB Limited

Traduzido por: Suporte phpBB