Actuazalicion / Update

Agregado metodo GetServerInfo.

Retorna Una cadena de caracteres que representa el número de versión del servidor 

Agregado metodo GetClientInfo

Una cadena de caracteres que representa la versión de la biblioteca de cliente MySQL

Added  Method GetServerInfo() 

Returns a string that represents the server version number

Added Method GetClientInfo

Return a string that represents the MySQL client library version

Servidor incrustado / Embedded Server

Actualizado SVN para el uso de servidor incrustado
Updated SVN for embedded server

se agregaron a la carpeta sample los archivos necesarios
los nuevos script para ejecutar los ejemplos con el servidor incrustado son los terminados en "_e" ejemplo bldhm_e.bat, construye el ejemplo para el servidor inscrustado usando el compilador de microsoft
(por los momentos todos en modo consola)

added to samples folder the files necessaries to run embedded server
the new script to build embedded samples are all finished with "_e", ie. bldhm_e.bat, build the embedded server sample with microsoft compiler 
(for now all are in console mode)

download samples here

Harbour/xHarbour

Eliminada carpetas Harbour / xHarbour del SVN, ahora seran descargadas directamente del link suministrados en el blog
Deleted folders Harbour / xHarbour from SVN, now can download from blog

Actualizado/Updated Harbour 2.1 (Rev 15490)  (borland y msvc)
Actualizado/Updated xHarbour build 1.2.1 (simplex) (Rev 6733) (borland y msvc)

Actualizacion/Update

Hay muchas actualizaciones al svn las cuales ire detallando individualmente en los proximos post
Inclusion de xcommand
Control de multiples intencias de cnexion
Mejoras a los procesos de Backup / Restore
Nuevo Metodo ExecuteScript

There are several updates to the svn, i'll explain individually  in the next posts
Added xcommand
Multiple connection instance control
Improved Backup / Restore Process
New Method ExecuteScript

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 

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() ) }

Actuazalicion / Update

> tdolpqry.PRG
> function.c
Nuevas funnciones y metodos para localizar registros en una consulta

New functions and Method to locate record
METHOD Find( aValues, aFields, nStart, nEnd, lRefresh )

aValues = Array de datas a buscar / data array to seek

aField = Array de campos que filtrara la busqueda / Field array to filter seek

nStart = Registro  comienzo para buscar / start record to seek

nEnd = Registro final a bsucar / end record to seek

Este metodo no tiene ninguna restriccion, buscara de forma secuencial dentro de la consulta activa, devolvera el primer registro que satisfaga la condicion de busqueda

this method dont have any restriction,  will seek sequentally inside active query, return the first record that, will return the first record that satisfies the search condition

METHOD Locate( aValues, aFields, nStart, nEnd, lRefresh )

igual al metodo Find, la diferencia es, este metodo es mas rapido y para obtener los resultados deseados, debera estar la consulta ordenada de igual forma a los campos a buscar

ejemplo.

si desea buscar por field1, field2 y field3 la consulta debera estar ordenada ORDER BY field1, field2, field3

same Method Find, the difference is: this method is more fast, to get better result, the query should be order same  to field seek

ie.

if you want seek  field1, field2 and field3 the query should be order like ORDER BY field1, field2, field3

sample:

Download Here

oQry = oServer:Query( "SELECT * FROM clientes ORDER BY first, last " )

oQry:Find( { "Vincent", "Brook" }, {"first", "last" } )

oQry:Locate( { "Vincent", "Brook" }, {"first", "last" } )

Actuazalicion / Update

+ Nuevo: Funcion D_LogicalValue( lOnOff ), activa / Desactiva el uso de valores logicos, permitiendo hacer uso de las variables logicas de [x]Harbour como 1/0, sin argumento retorna el estatus actual sino retorna el estatus anterior,  por omision esta activado

+ New: function D_LogicalValue( lOnOff ), activate / Deactivate Logical values, for use [x]Harbour logical values like 1/0, without argument return current value else return Old Status, default status is Activated

Usar / To Use

D_LogicalValue( .F. ) //Deactivate

Gracias a Willi por la sugerencias / Thanks Willi by suggestion  

Actuazalicion / Update

* tdolpqry.PRG

* tdolpsrv.PRG

* tdolp.mak

Nuevas opciones para construir: 

Podemos asignar ON/OFF el uso de errores internos, asignando YES/NO a la variable USE_INTERNAL dentro de tdolp.mak

podemos asignar  ON/OFF el Debug,  asignar YES/NO a la USE_DEBUG dentro de tdolp.mak

si DEBUG es ON la DATA bDebug en TDolphinSrv esta habilitada para ser usada, Los argumentos son: cQuery, ProcName( 1 ), ProcLine( 1 )

! Pequeño ajuste al Method Update

+ samples/testupd.PRG



* tdolpqry.PRG
* tdolpsrv.PRG
* tdolp.mak
New build options: 
we can set ON/OFF internalerror, setting YES/NO USE_INTERNAL variable inside tdolp.mak
we can set ON/OFF Debug setting YES/NO USE_DEBUG variable inside tdolp.mak
if DEBUG is ON the DATA bDebug in TDolphinSrv is avalaible to use, Arg cQuery, ProcName( 1 ), ProcLine( 1 )
! minor change in Method Update

+ samples/testupd.PRG

Actualizacion/Update

He subido al SVN las versiones de harbour y xHarbour que uso
no las volvere a actualizar al SVN, para ello dejare un link de descarga y avisare cuando sean cambiadas

I uploaded to SVN the Harbour and xharbour versions, used by dolphin, i would not upload to SVN again, but will leave a download link and will notice when be change

Actuazalicion / Update

* Reversada a la revison 68, eliminada la caracteristica Lock/Unlock para ser remplazada por la nueva clase TDolphinRow con la informacion del record seleccionado, este objeto puede ser tratado igual al objeto query al que pertenece

* El method GetBlackRow devuelve un objeto TDolphinRow 

+ METHOD GetRowObj( nRow ), devuelve un objeto TDolphinRow 

* mejorada funcion ClipValue2SQL para el manejo de campos no null

* Reverted to rev 68, eliminated the features Lock / Unlock
to be replaced by the new class TDolphinRow with information of current record selected, this object can be treated the same as the query object to which it belongs

*  method GetBlackRow return  TDolphinRow objeto

+ METHOD GetRowObj( nRow ), return  TDolphinRow objeto

* Improved function ClipValue2SQL for handling "not null" fields

Actuazalicion / Update

Español

* tdolpqry.PRG

* tdolpsrv.PRG

Implementado registro de bloqueo (METHOD Lock ( nRec )), ahora podemos bloquear un registro específico o registro actual, para no recargar el valor mientars se navega por el Query, para desbloquear el registro usar MÉTODO UnLock()
se desbloquea  automáticamente el registro en METHOD Save
utilice el método Unlock para desbloquear cualquier registro bloqueado
+ Nueva DATA Cargo para el uso programador, puede establecer cualquier cosas ahí dentro

English
* tdolpqry.PRG
* tdolpsrv.PRG


Implemented Lock record ( METHOD Lock( nRec ) ), now we can lock a specific record or current record to not refresh while skipping inside query, to Unlock record use METHOD UnLock() 
Lock record is automatically Unlock in METHOD Save
use METHOD Unlock to Unlock any record locked
+ New DATA Cargo for programmer user, you can set any things in there

Actuazalicion / Update

Nuevas actualizaciones / New updates 


rev. 80

* tdolpqry.PRG
! memo filed now is not affect by PadR, thanks Ariel

rev. 81

> tdolpqry.PRG
! fixed bug in fieldput using HASH, nos is fixed... Thanks Alejandro
! fixed bug in VerifyValue is a wrong nPadR value, nos is fine... Thanks Gabriel

rev. 83

* minor fix in GetBlankRow(), reported by Gabriel, thanks

rev.84

* tdolpqry.PRG

- discontinued internal error ERR_NOTHINGTOSAVE 9017, is not functional 

+ METHOD UnDo( cnField ), to revers original value for specific num/field name, if is empty cnField, will affect all field 

Actuazalicion / Update

> tdolp.mak
> mtdolph.bat
* minor change to build with harbour

> tdolphin.ch
> function.c
> tdolpqry.PRG
> tdolpsrv.PRG
! the fieldname should be lower case, the case sensitive is over tablename
+ add max PadR (see MAX_BLOCKSIZE ) to internal control character data
+ D_SetPadRight( lOnOff ) to activate PadR in character data

The PadR value es take from Max value between Len Default value, Len Current value

> testqry1.PRG

Actuazalicion / Update

Nueva actuzalcion, algunas mejoras, bug correjidos y nuevo ejemplo
ver seccion ultima actualizacion para mas detalles

New Update, some enhancement, fixed bud and new sample
check last update section for more detail

Actuazalicion / Update

Nueva Actualizacion

* dolerr.ch
2 nuevos errores internos / 2 new internal errors
+ ERR_INVALIDQUERYARRAY
+ ERR_MULTIQUERYFAULIRE

> tdolpqry.PRG
* Mejorado METHOD BuildDatWhere(), ahora hace la conversion a un string valido para ser usado en una sentencia mysql
enhanced METHOD BuildDataWhere(), now convert to create a legal SQL string that you can use in a SQL statement if is necessary

> tdolpsrv.PRG
- METHOD Insert parameter lTransaction, is not necessary
- METHOD Update parameter lTransaction, is not necessary
+ METHOD MultiQuery( aQuery, lTransaction ), to execute multiples queries, ideal to transactions
+ FUNCTION BuildInsert( cTable, aColumns, aValues ), return a INSERT command with specific data