Pes� que hab�a terminado con la funci�n de conversi�n de caracteres ya que logr� que la misma me devolviera lo mismo que el programa de Visual Basic 6, pero resulta que a la hora de grabar los datos en la base de datos de Firebird 2.1.3 con conjunto de caracter ISO8859_1 me da el error: (no lo hab�a probado aun la parte de salvar porque estaba enredado en otras cosas y pens� que funcionar�a bien.)

EIBDatabaseError: arithmetic exception, numeric overflow, or string truncation.

Se que el error es que me est� truncado el string y por tanto no salva nada en la BD. Pero esa misma cadena el Visual Basic 6 la salva sin error alguno.

Devuelvo los datos de la funci�n con Result := AnsiToUTF8(strdato);

Si no la convierto lo que me devuelve signos de ?.

Saludos reiterados
=========
�� ISMAEL ��
=========

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20091214/45710216/attachment.html> ------------ pr�xima parte ------------
A non-text attachment was scrubbed...
Name: no disponible
Type: image/jpeg
Size: 7159 bytes
Desc: no disponible
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20091214/45710216/attachment.jpe>

Hello Ismael,

Monday, December 14, 2009, 11:40:26 PM, you wrote:

ILDG> EIBDatabaseError: arithmetic exception, numeric overflow, or string truncation.

Eso es casi seguro por que se produce un "string truncation".

ILDG> Se que el error es que me est� truncado el string y por ILDG> tanto no salva nada en la BD. Pero esa misma cadena el Visual ILDG> Basic 6 la salva sin error alguno.
ILDG> Devuelvo los datos de la funci�n con Result := AnsiToUTF8(strdato); ILDG> Si no la convierto lo que me devuelve signos de ?.

Que charset tienes puesto en la conexi�n a firebird ?

Hello Ismael,

Monday, December 14, 2009, 11:59:34 PM, you wrote:

ILDG> Disculpen el problema es otro, lo acabo de verificar ahora mismo. ILDG> Cuando pongo para salvar:
ILDG> sqlstr := 'update mpdatge set mpdatge.clave=''' + ILDG> UTF8ToAnsi(scadena('Ismael6602')) + '''';
ILDG> Si me salva bien en la base de datos, pero en el grid me ILDG> muestra ??????, yo pens� que salvaba ?????? porque eso era lo ILDG> que mostraba el grid, pero entre en el flamerobin y si salva ILDG> bien, ahora es ver como lo muestro en el grid bien, �sea que no ILDG> salga ?????? sino los datos correctos.
ILDG> Si salvo con:
ILDG> sqlstr := 'update mpdatge set mpdatge.clave=''' + ILDG> scadena('Ismael6602') + '''';
ILDG> Si da el error:
ILDG> EIBDatabaseError: arithmetic exception, numeric overflow, or string truncation.

El grid te lo muestra mal por que el grid siempre espera los datos en UTF8, no hace ninguna conversi�n y como le llegan datos en ANSI pues se ha liado.

Una forma m�s o menos simple que puede ser que te funcione, divide en dos conexiones la base de datos tus SQL, los que van a componentes gr�ficos (tipo DBGrid) directamente usa una conexi�n con charset UTF8, los que controles manualmente con sentencias SQL a mano a una con charset ANSI (El ISO que corresponda).

Si sacas datos del interfaz visual para enviarlos por uno manual o al rev�s recuerda de hacer siempre la conversi�n ANSI->UTF8->ANSI que sea apropiada seg�n la direcci�n.

Disculpen el problema es otro, lo acabo de verificar ahora mismo.

Cuando pongo para salvar:

sqlstr := 'update mpdatge set mpdatge.clave=''' + UTF8ToAnsi(scadena('Ismael6602')) + '''';

Si me salva bien en la base de datos, pero en el grid me muestra ??????, yo pens� que salvaba ?????? porque eso era lo que mostraba el grid, pero entre en el flamerobin y si salva bien, ahora es ver como lo muestro en el grid bien, �sea que no salga ?????? sino los datos correctos.

Si salvo con:

sqlstr := 'update mpdatge set mpdatge.clave=''' + scadena('Ismael6602') + '''';

Si da el error:

EIBDatabaseError: arithmetic exception, numeric overflow, or string truncation.

Saludos reiterados
=========
�� ISMAEL ��
=========

El error EIBDatabaseError: arithmetic exception, numeric overflow, or string truncation.

sucede cuando la cadena a almacenar en Firebird es mayor al campo string de Firebird (lo arreglaron en la version SVN)

por Ej: cuando almacenas desde Lazarus un UTF8(�A�EZ) tiene 7 bytes y tu campo nombre es char(6), ahi Firebird da error.

Asi que chequea los largos de tus cadenas y el campo Firebird (tal vez tengas que agrandar el campo char).

Saludos

ISO8859_1

Saludos reiterados
=========
�� ISMAEL ��
=========

Pues he probado eso de las 2 conexiones, ese precisamente era el problema, que enredo y todav�a me dicen algunos que el Visual Basic es m�s malo. Pero bueno tendr� que acostumbrarme a este mundo de estar convirtiendo para aqu� y para all�.

Saludos cordiales
=========
�� ISMAEL ��
=========

No sabes que d�a lo arreglaron, talvez no tenga la versi�n arreglada.

Saludos
=========
�� ISMAEL ��
=========

Ante tremendo enredo no ser�a mejor implementar alguna funci�n para usar solo una conexi�n? En lo personal no me gusta eso de las 2 conexiones.

Creo que he ca�do de nuevo en el aspecto que no estoy de acuerdo contigo de que el componente TIBConneciton est� mal implementado.

Deb�a tener 2 propiedades CharSet una para visualizar los datos y otra para salvar en la base de datos.

Saludos cordiales
=========
�� ISMAEL ��
=========

--- El mar 15-dic-09, Ismael L. Donis Garc?a <ismael en citricos.co.cu> escribi�:

Tal enredo es solo imaginario.

implementar alguna funci�n para usar solo una conexi�n? En lo personal no me gusta eso de las 2 conexiones.

Tambien creo que eso de tener dos conexiones para este proposito no es lo mas aconsejable.

Creo que he ca�do de nuevo en el aspecto que no estoy de acuerdo contigo de que el componente TIBConneciton est� mal implementado.

No esta mal implementado. Si acaso el soporte esta incompleto, pero esa es otra historia que no tiene nada que ver con el problema que se te ha presentado.

Deb�a tener 2 propiedades CharSet una para visualizar los datos y otra para salvar en la base de datos.

Tienes una base de datos que usa el encoding ISO8859_1?, esta perfecto, los componentes sqldb pueden con eso, lazarus puede con eso solo se necesita que tu puedas con eso.

Primero, si pones en la conexion (TIBConnection) el charset UTF8, todo esta resuelto. Simplemente, la conexion (es decir el componente TIBConnection) no manipula los datos, es el servidor firebird que se hara cargo de todo.

Es decir, y esto ya se te ha comentado, *firebird* convertira *automaticamente* cualquier informacion que le des en UTF8 al encoding de la base de datos ISO8859_1, simetricamente, al extraer datos de la base de datos codificada en ISO8859_1, *firebird* los convertira al charset especificado en la conexion, es decir UTF8.

Eso si, al especificar UTF8 en charset, adquieres el compromiso de unicamente enviarle al servidor informacion codificada en UTF8, nada de unas cosas en UTF8 y otras en ISO8859_1. simetricament, cuando extraigas datos de la base de datos, siempre obtendras informacion codificada en UTF-8, no unas cosas en UTF-8 y otras en ISO8859_1

Por eso lo primero que deberias hacer es una revision de tu codigo. Verifica que siempre uses UTF8 en todo, Lazarus te la pone facil aqui, pues usa UTF8 en todo. Si a fuerzas quieres usar ISO8859_1, eso es nadar contra la corriente. (notese que quizas hay la forma de hacer que lazarus funcione con ISO8859_1 en lugar de UTF8, pero de eso mejor ni hablar pues ya no esta soportado). O sea si usas funciones como UTF8ToAnsi o similares para convertir a ISO8859_1 y de paso le mandas eso al servidor, no esperes milagros.

Ahora, si especificas ISO8859_1 como charset en TIbConnection (o no pones nada en charset que si estoy en lo correcto viene a ser lo mismo pues creo, usa el encoding de la base de datos) pues no esta bien. Eso quiere decir que has adquirido la responsabilidad de enviarle a la base de datos informacion codificada en ISO8859_1, mientras que es posible hacer eso en Lazarus, la verdad es que nadas contra la corriente pues ahora debes convertir todo usando UTF8ToAnsi en todo lo cual es mas trabajo. Por favor, no trabajen de mas :D.

�Por que da la impresion de que funciona?, simplemente, a excepcion de unos cuantos caracteres (ver tabla ISO8859_1) todos los demas son validos en ese encoding. es decir que probablemente cualquier cadena UTF-8 es valida en ISO8859_1. Con esto en mente si en tu base de datos defines un campo como Char(1), y quieres introducir una cadena UTF-8 como '�' ahi, claro que no va a caber, pues la cadena UTF-8 '�' ocupa 2 caracteres.

Saludos cordiales ========= �� ISMAEL ��

Jesus Reyes A.

�Obt�n la mejor experiencia en la web! Descarga gratis el nuevo Internet Explorer 8. http://downloads.yahoo.com/ieak8/?l=mx

Hello Jesus,

Tuesday, December 15, 2009, 8:44:34 PM, you wrote:

JR> �Por que da la impresion de que funciona?, simplemente, a JR> excepcion de unos cuantos caracteres (ver tabla ISO8859_1) todos JR> los demas son validos en ese encoding. es decir que probablemente JR> cualquier cadena UTF-8 es valida en ISO8859_1. Con esto en mente JR> si en tu base de datos defines un campo como Char(1), y quieres JR> introducir una cadena UTF-8 como '�' ahi, claro que no va a JR> caber, pues la cadena UTF-8 '�' ocupa 2 caracteres.

Justamente eso me ha recordado un bug que quer�a revisar en el SQLDb y que al final se me pas�. El problema era:

Database:
Campo VarChar(10) ISO88591

Programa
Query.FieldByName('Campo').AsString='����������';

Eso antes daba ese error (String Truncation) cuando en realidad no lo hay, eso si no recuerdo ahora si era en FireBird 1.5 o en SQLDb :-? Cuando me pase por la m�quina de desarrollo lo pruebo, ya que all� tengo un FireBird 1.5 y un 2.5.

Hola...
Bueno, despu�s de tanto leer y aprender, y as� poder encontrar la soluci�n a un problema que me ven�a quemando la cabeza, ( aunque lo ten�a en Delphi 7 ), mi pregunta (tonta, ingenua, tal vez in�til y hasta obvia) es, para preparar un sistema que usar� Firebird (v. 2.1 por ahora) y que manejar� letras acentuadas y "raras" como la � o la � o algo por el estilo, �que me recomiendan...con que charset definir las tablas de firebird con campos varchar, por ej., y el TIConnection o cualquier componente que cumpla la misma tarea ?.Estoy por encarar un mini proyecto que trabajar� con esos caracteres y como dice Jes�s, no quiero trabajar de m�s ni renegar.

Muchas gracias por el aporte.

En mi caso uso todo UTF8, en Firebird se graba UTF8, entonces para leer y guardar desde la base no hago conversiones.

Funciona incluso si creas la base Firebird con charset NONE.

Las conversiones solo las necesito si exporto datos a windows (ansi) o algo asi. Pero no para el trabajo diario.

Saludos
2009/12/16 Walter Mes�n <wmeson en gmail.com>:

Hello Ismael,

Wednesday, December 16, 2009, 5:03:53 PM, you wrote:

ILDGa> Precisamente ese el error que me da a mi cuando pongo CharSet = UTF8 al ILDGa> actualizar con Firebird 2.1.3 si lo pongo de la siguiente forma: ILDGa> 'update mpdatge set mpdatge.clave=''' +
ILDGa> dtm.setlogin(txtcont.Text) + '''
ILDGa> where ((mpdatge.entidad)=''' + strentidad + ''')'; ILDGa> Y si lo pongo de la siguiente forma me da string malformado: ILDGa> 'update mpdatge set mpdatge.clave=''' +
ILDGa> UTF8ToAnsi(dtm.setlogin(txtcont.Text)) + ''' where ((mpdatge.entidad)=''' + ILDGa> strentidad + ''')';
ILDGa> Sin embargo si uso CharSet = ISO8859_1 no me da el error y salva bien los ILDGa> datos.

Har� unas pruebas con una base de datos limpia creada a tal efecto, a ver si confirmo que es un problema y de paso averiguo en donde est� el mismo.

Precisamente ese el error que me da a mi cuando pongo CharSet = UTF8 al actualizar con Firebird 2.1.3 si lo pongo de la siguiente forma:

'update mpdatge set mpdatge.clave=''' + dtm.setlogin(txtcont.Text) + '''
where ((mpdatge.entidad)=''' + strentidad + ''')';

Y si lo pongo de la siguiente forma me da string malformado:

'update mpdatge set mpdatge.clave=''' +
UTF8ToAnsi(dtm.setlogin(txtcont.Text)) + ''' where ((mpdatge.entidad)=''' + strentidad + ''')';

Sin embargo si uso CharSet = ISO8859_1 no me da el error y salva bien los datos.

Saludos Reiterados
=========
�� ISMAEL ��
=========

Si quieres te puedo pasar lo que he realizado hasta ahora con la BD y todo, si te comprometes a no criticarme mucho porque seguro que para tu conocimiento ver�s un desastre jajajaja.

Saludos
=========
�� ISMAEL ��
=========

Ante todo saludos.

Como podr�a conocer los formularios cargados en una aplicaci�n?

GRACIAS
=========
�� ISMAEL ��
=========

Hello Ismael,

Wednesday, December 30, 2009, 4:41:29 PM, you wrote:

ILDGa> Ante todo saludos.

ILDGa> Como podr�a conocer los formularios cargados en una aplicaci�n?

Si no recuerdo mal la colecci�n "Screen.Forms"

no sera que los liberas y cambia la cantidad de forms cargados ...

2009/12/30 Ismael L. Donis Garc�a <ismael en citricos.co.cu>

JoshyFun trato de hacer:

  for i := 0 to Screen.FormCount - 1 do begin
    Screen.Forms[i].Free;
  end;

Y me da el siguiente error:

=========
�� ISMAEL ��
=========
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20091230/8a9e9f30/attachment-0001.html> ------------ pr�xima parte ------------
A non-text attachment was scrubbed...
Name: no disponible
Type: image/jpeg
Size: 16550 bytes
Desc: no disponible
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20091230/8a9e9f30/attachment-0001.jpe>

  for i := Pred(Screen.FormCount) downto 0 do begin
    Screen.Forms[i].Free;
  end;

2009/12/30 christian Ortiz <xortix en gmail.com>

Hello Ismael,

Wednesday, December 30, 2009, 8:00:50 PM, you wrote:

ILDG> JoshyFun trato de hacer:
ILDG>   for i := 0 to Screen.FormCount - 1 do begin
ILDG>     Screen.Forms[i].Free;
ILDG>   end;
ILDG> Y me da el siguiente error:

Normal, en el momento que haces el primer ".Free" el formcount ya no vale 2, si no 1 ;)

Hazlo as�:

  for i := Screen.FormCount - 1 downto 0 do begin
    Screen.Forms[i].Free;
  end;

Que instrucci�n tengo que poner para que el for camine hacia atr�s:

for i := 0 to Screen.FormCount - 1 do begin
�sea en ves de i:=0 to Screen.FormCount - 1

sea de:

Screen.FormCount - 1 to 0

Espero ver si as� no da el error anterior.

GRACIAS
=========
�� ISMAEL ��
=========

Yo lo solucion� en parte de la siguiente forma:

  for i := Screen.FormCount - 1 downto 0 do begin
    Screen.Forms[i].Free;
  end;

Digo en parte porque ahora me da otro error, pero tengo que ver donde.

GRACIAS
=========
�� ISMAEL ��
=========

No era que al liberar 1 los valores de Screen.FormCount cambian, por lo que hay que liberarlos de atr�s para alante. �sea del �ltimo hacia el primero.

Gracias de todos modos.
=========
�� ISMAEL ��
=========

Hola los ejemplos los tienes en tu maq, si usas HuindoUS la ruta seria C:\lazarus\components\lazreport\samples

si Usas linux, generalmente la ruta seria
/usr/lib/lazarus/components/lazreport/samples o
/usr/bin/lazarus/components/lazreport/samples

El 4 de enero de 2010 12:01, Ismael L. Donis Garc?a <ismael en citricos.co.cu>escribi�:

Ante todo saludos y feliz a�o nuevo para todos los integrantes de la lista.

Comienzo el a�o y con el con mis dudas.

Nunca en la vida he utilizado el LazReport y por tanto no tengo idea de como dise�ar y visualizar un reporte.

Abr� el dise�ador, pero no veo donde est� la parte de encabezamiento de reporte y p�gina ni la parte de pie de reporte y p�gina.

Por tal motivo es que me dirijo a ustedes para ver si alguien me puede enviar un peque�ito ejemplo al privado.

GRACIAS
=========
�� ISMAEL ��
=========

instala el componente powerpdf , busca por la pag de lazarus, te permitira exportar tus reportes a pdf ...

2010/1/4 Ismael L. Donis Garc�a <ismael en citricos.co.cu>

Gracias, los busqu� dentro de c:\lazarus\examples pero ah� no estaban. =========
�� ISMAEL ��
=========

Cuando doy abrir un ejemplo me pide el componente pack_powerpdf y no lo tengo instalado, ni lo encuentro en las carpetas.

Hay que descargarlo de forma independiente?

GRACIAS
=========
�� ISMAEL ��
=========

Sigo enredado con los reportes.

Trato de dise�ar un reporte: inserto en un formulario los componentes:

- TSQLTransaction el cual enlazo a un TIBConnection del modulo de datos
- TSQLQuery el cual enlazo con el TSQLTransaction
- TfrDBDataSet el cual enlazo con el TSQLQuery
- TfrReport el cual enlazo con el TfrDBDataSet

Ahora le introduzco par�metros al TSQLQuery y no encuentro la forma de agregar estos par�metros al reporte por ning�n lado.

Como podr�a realizar tal operaci�n?

GRACIAS a todos
=========
�� ISMAEL ��
=========
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100105/02fcd349/attachment.html>

Hola:
Aqu� tienes un tutorial de lazreport.
Un saludo.

2010/1/5 Ismael L. Donis Garc�a <ismael en citricos.co.cu>

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100111/214098bc/attachment.html>

2010/1/11 Anxo V�zquez <xanxov en esdebian.org>

Hola:

Aqu� tienes un tutorial sobre lazreport.
http://lazreport.sourceforge.net/index.php

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100111/a15e12b3/attachment.html>

1 Mill�n de grac�as, vere si alguien me lo puede enviar porque no tengo acceso a Internet.

Saludos desde CUBA

=========
�� ISMAEL ��
=========

Ismael L. Donis Garc�a escribi�:

1 Mill�n de grac�as, vere si alguien me lo puede enviar porque no tengo acceso a Internet.

Hola Ismael..
es el material que ya te mand�..
chauuuuuuuuuuu

Gracias por la aclaraci�n.

=========
�� ISMAEL ��
=========