Olá pessoal,
Estou tentando executar o exemplo desse tópico para entender como funciona o letodb, mas está dando erro de compilação, dentro da pasta c:\letodb,
tenho os seguintes arquivos: Changelog, letocdp.ch, letocl.dll, letodb.exe, letodb.ini, letodb.log, libleto.a, librddleto.a, rddleto.ch.
executei o comando: net start letodb_service
O serviço LetoDB Service foi iniciado com êxito.
cannot find -lrddleto
collect2.exe error: ld returned 1 exit status
Erro de compilação: hbmk2[TESTE]: Erro: Executando linkeditor .1
letodb.ini na pasta c:\letodb
Port = 2812
Logfile = "letodb.log"
DEFAULT_DRIVER = CDX
DATAPATH = c:\dados\
ENABLEFILEFUNC = 1
CRYPT_TRAFFIC = 0
PASS_FOR_LOGIN = 0
PASS_FOR_MANAGE = 0
PASS_FOR_DATA = 0
Share_Tables = 0
Cache_Records = 50
[DATABASE]
DataPath = c:\dados\
Driver = CDX
teste.hbp na pasta c:\dados
-otesteleto
-compr=yes
-quiet
-lxhb
-lhbwin
-lhbct
-prgflag=-b
-strip
-compr
rddleto.hbc
-iC:\letodb
TESTLETO.PRG
compilar.bat
@echo off
CLS
set path=C:\hb32\bin;C:\hb32
CLS
HBMK2 TESTE.HBP
rddleto.hbc na pasta c:\dados
{win}incpaths=c:\letodb\include;
{win}libpaths=c:\letodb\lib;
{win}libs=rddleto
hbmk.hbm na pasta c:\dados
rddleto.hbc
testleto.prg na pasta c:\dados
// #require "sddodbc" //opcional se for usar MySql com LetoDb
// #require "sddfb" //opcional se for usar Firebird com Letodb
#include "rddleto.ch"
REQUEST DBFCDX, DBFFPT, DBFDBT, LETO
REQUEST HB_LANG_PT, HB_CODEPAGE_PTISO, HB_CODEPAGE_PT850
REQUEST SQLMIX, SDDODBC //opcional se for usar MySQL ou Firebird etc...
Function Main
Local cPATH := "//localhost:2812/" //não precisa informar o caminho dos DBF´s porque já foi informado(configurado) no arquivo leotdb.ini
REQUEST LETO
RDDSETDEFAULT("LETO")
//Conectando com o servidor LetoDb.
nConect := leto_Connect( cPath)
IF nConect == -1
nRes := leto_Connect_Err()
IF nRes == LETO_ERR_LOGIN
alert( "Falha ao Logar" )
ELSEIF nRes == LETO_ERR_RECV
alert( "Error ao conectar" )
ELSEIF nRes == LETO_ERR_SEND
alert( "Erro de envio" )
ELSE
alert( "Não connectado ao servidor: " + cPath )
ENDIF
Return .F.
ENDIF
cIndex := cPATH+"PRODUTOS.cdx"
cDbf := cPATH+"PRODUTOS.dbf"
DbUseArea(.t.,'LETO',"PROD",.T.,.F.,'PTISO')
If leto_file(cIndex)
DBSETINDEX( cIndex )
Else
* index on ...//seu código
* index on ... //seu código
index on codmercad to codigo
EndIf
return
Harbour 3.2.0(dev)