FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TDolphin Clase para manejar MySql
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: TDolphin Clase para manejar MySql
Posted: Sat Oct 02, 2010 06:29 PM

Cesar

Lo revisare y expresare los resultados

Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: TDolphin Clase para manejar MySql
Posted: Sat Oct 02, 2010 07:38 PM

ok. gracias

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: TDolphin Clase para manejar MySql
Posted: Wed Oct 27, 2010 01:03 AM

Holas Daniel,

han surgido cambios en tdolphin ?

como se crea ahora la libreria para xhbarbour ?

no veo el BAT que se usaba antes.

saludos..

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: TDolphin Clase para manejar MySql
Posted: Wed Oct 27, 2010 01:10 AM

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"

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: TDolphin Clase para manejar MySql
Posted: Wed Oct 27, 2010 01:12 AM
este es la direccion del websvn para revisar todos los cambios en en codigo

http://www.sitasoft.net/dolphindevel/listing.php?repname=TDolphin&
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: TDolphin Clase para manejar MySql
Posted: Wed Oct 27, 2010 04:55 PM

o.k. Daniel ,
gracias.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: TDolphin Clase para manejar MySql
Posted: Wed Oct 27, 2010 05:26 PM

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..

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: TDolphin Clase para manejar MySql
Posted: Wed Oct 27, 2010 09:12 PM

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

Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: TDolphin Clase para manejar MySql
Posted: Fri Oct 29, 2010 04:54 PM

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.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: TDolphin Clase para manejar MySql
Posted: Fri Oct 29, 2010 04:58 PM
Daniel Garcia-Gil wrote: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
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: TDolphin Clase para manejar MySql
Posted: Fri Oct 29, 2010 05:00 PM

Cesar

Puedes consultarme via chat sin problemas

danielgarciagil@cantv.net (messenger)

danielgarciagil@gmail.com (chat gmail)

Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: TDolphin Clase para manejar MySql
Posted: Fri Oct 29, 2010 06:04 PM

gracias daniel.
saludos.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 883
Joined: Tue Oct 11, 2005 11:57 AM
Re: TDolphin Clase para manejar MySql
Posted: Wed Nov 03, 2010 01:01 AM
Daniel...

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

Code (fw): Select all Collapse
    
 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
;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: TDolphin Clase para manejar MySql
Posted: Wed Nov 03, 2010 07:53 PM

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

Posts: 883
Joined: Tue Oct 11, 2005 11:57 AM
Re: TDolphin Clase para manejar MySql
Posted: Thu Nov 04, 2010 12:38 AM

Daniel .. pruebo y comento mañana.

Gracias

Saludos
Desde Chile
Adolfo

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650