03 Jun 2014 16:12
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
c:>\pasta_com_letodb\letodb install //minusculo mesmo
net start letodb_service
#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
//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+"meu_arquivo.cdx"
cDbf := cPATH+"meu_aquivo.dbf"
DbUseArea(.t.,'LETO',cDbf,"alias_xyz",.T.,.F.,'PTISO')
If leto_file(cIndex)
DBSETINDEX( cIndex )
Else
index on ...//seu código
index on ... //seu código
EndIf
{win}incpaths=c:\pasta_com_letodb\include;
{win}libpaths=c:\pasta_com_letodb\lib;
{win}libs=rddleto
letodb.hbc
:>hbmk2 seu_projeto.hbp
03 Jun 2014 16:43
03 Jun 2014 17:00
03 Jun 2014 17:03
03 Jun 2014 22:22
03 Jun 2014 23:04
03 Jun 2014 23:43
04 Jun 2014 07:54
04 Jun 2014 18:04
04 Jun 2014 22:02
#
# Our default target
#
!if $d(XHARBOUR)
PROJECT = \
$(CLIENT_RDD_LIB) \
$(CLIENT_LIB)
!else
PROJECT = \
$(CLIENT_RDD_LIB) \
$(CLIENT_LIB) \
$(SERVER_EXE)
!endif
05 Jun 2014 08:45
janio escreveu:como gero esse executavel no xharbour, meu Deus?
2.3 xHarbour Builder(Comercial)
Execute o make_xhb.bat para construir binários com este compilador.
Provavelmente, você precisará alterar o caminho para sua cópia Construtor
de expressões na make_xhb.bat xHarbour. O valor padrão é:
set XHB_PATH=c:\xhb
05 Jun 2014 09:25
05 Jun 2014 09:37
05 Jun 2014 09:51
05 Jun 2014 11:43
06/05/14 11:01:16: Error BASE/1001 Undefined function: DESCRIPT Arguments: ( [ 1] = Type: C Val: )
Subsystem Call......: LETO
System Code.........: 1021
Default Status......: .F.
Description.........: Tipo incorreto de dado
Operation...........:
Arguments...........:
Involved File.......: //localhost:2812/ARQ20670.DBF
Dos Error Code......: 0
set path=c:\hb32\bin
hbmk2 letodb.hbp
hbmk2 rddleto.hbp
hbmk2 leto.hbp
hbmk2 letodyn.hbp