Ultima versao TDOLPHIN - FiveTech Support Forums

Board index FiveWin para Harbour/xHarbour Ultima versao TDOLPHIN

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Ultima versao TDOLPHIN
Posted: Tue Aug 12, 2014 12:56 PM

Onde posso fazer o DOWNLOAD da ultima versão do TDOLPHIN?

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Ultima versao TDOLPHIN
Posted: Tue Aug 12, 2014 01:39 PM

Saludos

https://bitbucket.org/danielgarciagil/tdolphin/get/master.zip

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Re: Ultima versao TDOLPHIN
Posted: Tue Aug 12, 2014 04:22 PM

Obrigado Daniel

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Ultima versao TDOLPHIN
Posted: Tue Aug 12, 2014 05:53 PM

daniel, puedes verificar este codigo del method end de TDolphinSrv, si en el primer if se pone ::hMySQL a nil, que sentido tiene el segundo if?

Code (fw): Select all Collapse

METHOD End() CLASS TDolphinSrv
   LOCAL nHost

   IF ::hMysql != NIL
      AEval( ::aQueries, {| o | If( o != NIL, o:End(), ) } )
      //MySqlClose( ::hMysql )/* NOTE: Deprecated */
      ::hMysql = NIL
   ENDIF

   IF ::hMysql != NIL
      nHost = AScan( aHost, { | a | Upper( a[ 2 ] ) == Upper( ::cNameHost ) } )
      ADel( aHost, nHost )
      ASize( aHost, Len( aHost ) - 1 )
   ENDIF

RETURN NIL

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Continue the discussion