Actuazalicion / Update

Esta funcionando exportar a SQL SCRIPT

Export to SQL SCRIPT is working

oExp = oQry:Export( EXP_SQL, "client.sql" )

Download Here

Download Script

TDolphin para Microsoft 32/64 Bits

Dolphin  disponible  para el compilador de Microsoft, para las versiones de 32 y 64 Bits, se pueden descargar los compiladores de Harbour y xHarbour en la etiqueda nombrada Harbour/xHarbour arriba-derecha del blog
Dolphin available to Microsoft compiler, 32 and 64 bits Versions, download Harbour and xHarbour comipilers from Harbour-xHarbour lables, in Top-Right of blog

Igualmente disponible la version de 64 bit de la libreria y DLL de MySql, enlace de descarga en la etiqueta LibMysql
Mysql library and DLL available too to 64 bits, Download link in Label LibMySql

Nota: xHarbour no esta disponible para 64Bits
Note: xHarbour isn't available to 64 Bits


Instrucciones para generar las librerias:
Instructions to build library 

Usar  make.exe de borland para ejecutar los .Mak,  descargarlo desde AQUI
To use make.exe of borland to build .Mak. Download HERE

Harbour para msvc 32 bits / Harbour to msvc 32 Bits
abrir mtdolphm.bat y cambiar las variable de acuerdo a las necesidades
Open mtdolphm.bat and change variables if you need

c:\bcc582\bin\make -ftdolpm.mak HPATH=\HARBOURM VCDIR=c:\vc2008 LIBNAME=dolphm OBJS=objm HARBOUR=

HPATH Ruta principal de harbour para msvc 32bits / Harbour to msvc main path

VCDIR Ruta principal del compilador de Microsoft / msvc compiler main path

LIBNAME Nombre de libreria / library name

ejecutar / Run mtdolphm.bat

xHarbour para msvc 32 bits / xHarbour to msvc 32 bits

abrir mtdolpxm.bat y cambiar las variable de acuerdo a las necesidades

Open mtdolphm.bat and change variables if you need

c:\bcc582\bin\make -ftdolpm.mak HPATH=\xharbm VCDIR=c:\vc2008 LIBNAME=dolpxm OBJS=objmx HARBOUR=OBJS=objm HARBOUR=

HPATH Ruta principal de xharbour para msvc 32bits /  xHarbour to msvc main path

VCDIR Ruta principal del compilador de Microsoft / msvc compiler main path

LIBNAME Nombre de libreria  / library name

ejecutar / Run  mtdolpxm.bat 

Harbour para msvc 64 bits / Harbour to msvc 64 Bits

abrir mtdh64.bat y cambiar las variable de acuerdo a las necesidades

Open mtdolphm.bat and change variables if you need

c:\bcc582\bin\make -ftdolp64.mak HPATH=\HARBOUR VCDIR=c:\vc64 LIBNAME=dolph64 OBJS=objh64 HARBOUR=

HPATH Ruta principal de harbour para msvc 64bits / Harbour  64 bits to msvc main path

VCDIR Ruta principal del compilador de Microsoft / msvc compiler main path

LIBNAME Nombre de libreria / library name

ejecutar / Run mtdh64.bat 

TDolphin

Debo decir que me siento muy complacido con el proyecto TDolphin, desde hace  varios dias no he recibido reporte de errores, al parecer todo esta funcionando como se espera
Gracias a todos por el apoyo


I'm feeling very happy with TDolphin project, I haven't error report so many day ago, thinks all is working perfectly 
Thanks all for supports

Actuazalicion / Update

Esta funcionando exportar a WORD,

Export to WORD is working

oExp = oQry:Export( EXP_WORD, CurDrive() + ":\" + CurDir() + "\client", , { "@!", "@!" } )

Download Here

Actuazalicion / Update

Esta funcionando exportar a HTM/HTML, se debe asignar el  nombre del archivo con la extencion valida (htm/html)
Export to HTM/HTML is working, we should write filename with valid extention (htm/html)

Download Here

www.sitasoft.net/dolphin/files/client.html

Actualizacion/Update

Finalizado elproceso de exportacion a DBF, podemos seleccionas los campos a exportar
Finished export to DBF, we can select field to export

el ejemplo a constinuacion consta de 10.000 registros
the next sample is 10.000 record

Download Here


   oQry = oServer:Query( "SELECT * FROM clientes" )
  
   oExp = oQry:Export( EXP_DBF, "client.dbf" )
   oExp:bOnStart = { || QOut( "Started..."), QOut( ""), cTime := Time() }
   oExp:bOnRow = {| o, n | ShowLine( n, oQry:LastRec() ) }
   oExp:bOnEnd = { || QOut( "Elapse time: " + ElapTime( cTime, Time() ) ), QOut( "Finished...") }

Actuazalicion / Update

Se inio el proceso de exportacion de Consultas a otros formatos, por ahora estan listo TEXTOS y EXCEL, la idea es exportar a HTML, WORD, SQL SCRIPT, XML y por supuesto DBF
Se pueden personalizar encabezados y finales de archivo y manipular linea a linea creada
Started queries export process to other format, for now is working TEXT and EXCEL, the idea is export to HTML, WORD, SQL SCRIPT, XML and off course DBF
We can customize Headers and Footers and handle row by row

Samples to TEXT

Download here


   oQry = oServer:Query( "SELECT first, last FROM clientes limit 100" )
  
   oExp = oQry:Export( EXP_TEXT, "client.txt" )
  
   oExp:bOnStart = {| o | FWrite( o:hFile, Replicate( "=", Len( cHead ) ) + CRLF, Len( cHead ) + 1 ),;
                          FWrite( o:hFile, cHead, Len( cHead ) ),;
                          FWrite( o:hFile, Replicate( "=", Len( cHead ) ) + CRLF , Len( cHead ) + 1 ) }
   oExp:bOnRow = {| o, n, cText| ShowLine( o, n, cText, oQry:LastRec() ) }

   oExp:bOnEnd = {| o | FWrite( o:hFile, Replicate( "=", Len( cEnd ) ) + CRLF, Len( cEnd ) + 1 ),;
                        FWrite( o:hFile, cEnd, Len( cEnd ) ) }

Export to Excel

Download Here


   oQry = oServer:Query( "SELECT first, last, salary FROM clientes limit 20" )
   oExp = oQry:Export( EXP_EXCEL, CurDrive() + ":\" + CurDir() + "\client", , { , , "999,999.99" } )
   oExp:lMakeTotals = .T.  
   oExp:bOnStart = {| o | Header( o ) }
   oExp:bOnRow = {| n, cText| ShowLine( n, cText, oQry:LastRec() ) }