TDolphin Clase para manejar MySql

[Daniel Garcia-Gil]

Cesar

Lo revisare y expresare los resultados

[sysctrl2]

ok. gracias

[sysctrl2]

Holas Daniel,

han surgido cambios en tdolphin ?

como se crea ahora la libreria para xhbarbour ?

no veo el BAT que se usaba antes.

saludos..

[Daniel Garcia-Gil]

Cesar

Disculpa, no he tenido tiempo de actualizar el blog

existen unos script para configurar el entorno que usas

setenvh.bat //window 32bit harbour
setenvx.bat //window 32bit xharbour
etc

puedes configurar el script segun los paths que uses

para limpiar un build puedes usar "win-make clean"

[Daniel Garcia-Gil]

este es la direccion del websvn para revisar todos _ en en codigo

http://www.sitasoft.net/dolphindevel/li ... =TDolphin&

[sysctrl2]

o.k. Daniel ,
gracias.

[sysctrl2]

Holas daniel , despues de generar la lib quise comopilar un ejemplo de SAMPLES y me marcar el siguiente error.

Compiling...
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6717)
Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'testfw3.prg' and generating preprocessed output to 'testfw3.ppo'...

Lines 183, Functions/Procedures 22
Generating C source output to 'testfw3.c'...
Done.
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
testfw3.c:
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_HB_FUN_TDOLPHINEXPORT' referenced from C:\DOLPHIN\TDOLPHIN\LIB\XHB1007\BCC\DOLPHIN.LIB|tdolpqry
* Linking errors *

Por cierto llama la atencion que al generar la libreria con SETENVX.BAT crea la LIB DOLPHIN.LIB antes se creaba DOLPHINX.lib

la funcion que hace falta en la libreria de tdolphin es TDOLPHINEXPORT

saludos..

[Daniel Garcia-Gil]

Cesar


Para construir los ejemplos existen tambien nuevos script

para modo consola bldcon
para usar fivewin bldfw, debes cambiar la libreria fw depara usar xharbour

[sysctrl2]

Holas daniel, disculpa pero no he podido crear la libreria de tdolphinx.lib,
cual es el bat para crear la libreria para usarla con xharbor y fwh ?


no existe los bat para compilar: bldcon.bat tampoco existe bldfw.bat

saludos y disculpa tanta lata.

[Daniel Garcia-Gil]

Cesar

existen unos script para configurar el entorno que usas

setenvh.bat //window 32bit harbour
setenvx.bat //window 32bit xharbour
etc

puedes configurar el script segun los paths que uses

para limpiar un build puedes usar "win-make clean"

por esa via construyes la libreria

[Daniel Garcia-Gil]

Cesar

Puedes consultarme via chat sin problemas

danielgarciagil@cantv.net (messenger)
danielgarciagil@gmail.com (chat gmail)

[sysctrl2]

gracias daniel.
saludos.

[Adolfo]

Daniel...

Tengo el siguiente error al usar TDolphin y xBrowse con paginacion.
Sin paginacion no tiene errores...

Code: Select all

    
 oDbSearch:=tDolphinQry():New(cSelect,oSvr)
 oDbSearch:lPagination:=.T.

     DEFINE DIALOG oDlgSearchLbx RESOURCE "SEARCHLBX"
     oDlgSearchLbx:lHelpIcon:=.F.

     ReDefine Say oSay PROMPT "" Id 14 of oDlgSearchLbx  FONT oFont Color CLR_HBLUE

        oBrwSearch:=TxBrowse():New(oDlgSearchLbx)

        oBrwSearch:nMarqueeStyle := MARQSTYLE_HIGHLROW
        oBrwSearch:nColDividerStyle := LINESTYLE_BLACK
        oBrwSearch:nRowDividerStyle := LINESTYLE_BLACK
        oBrwSearch:lColDividerComplete := .T.

        oBrwSearch:nHeaderLines := 1
        oBrwSearch:nDataLines := 1
        oBrwSearch:lRecordSelector := .F.
        oBrwSearch:oSeek        := oSay
        oBrwSearch:bKeyDown     := { | nKey, nFlags | MyKeyDown1(nKey) }

        oBrwSearch:SetDolphin( oDbSearch,.T.,.T.)
        oBrwSearch:CreateFromResource(101 )

        Redefine Button oBtn1  ID 11 Of oDlgSearchLbx Action oDlgSearchLbx:End()

     ACTIVATE DIALOG oDlgSearchLbx CENTERED
 

el error es este al llegar al BOF()

//----------------------------------------------------------------------------------------------------
Application
===========
Path and name: C:\SQL\TELEDOL\TELEX.Exe (32 bits)
Size: 3,879,936 bytes
Time from start: 0 hours 0 mins 8 secs
Error occurred at: 02/11/2010, 21:55:26
Error description: Error BASE/1075 Argument error: >
Args:
[ 1] = U
[ 2] = N 1

Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:SETDOLPHIN(4275)
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE(387)
Called from: => TXBROWSE:SKIP(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAGEUP(2676)
...
//----------------------------------------------------------------------------------------------------

y este error al llegar al BOTTOM()

//----------------------------------------------------------------------------------------------------
Application
===========
Path and name: C:\SQL\TELEDOL\TELEX.Exe (32 bits)
Size: 3,879,936 bytes
Time from start: 0 hours 0 mins 8 secs
Error occurred at: 02/11/2010, 21:56:55
Error description: Error BASE/1073 Argument error: <
Args:
[ 1] = U
[ 2] = U

Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:SETDOLPHIN(4275)
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE(387)
Called from: => TXBROWSE:SKIP(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAGEDOWN(2722)

...
//----------------------------------------------------------------------------------------------------

Xharbour 1.2.1, FWH 10.9, BCC 5.8.2

Saludos

[Daniel Garcia-Gil]

Adolfo

debes asignar la cantidad de registros pagina, automaticamente enciende la paginacion y no necesitas ::lPagination := .T., pq hay variables que debe inicializar

ejemplo
oQry:SetPages( 1000 )

es recomendable que el query inicial lo hagas con el limit de la misma cantidad de registros por pagina

mira el ejemplo testpag.prg

[Adolfo]

Daniel .. pruebo y comento mañana.

Gracias

Saludos
Desde Chile
Adolfo