8 respuestas en este tema

[luk2009]

Utilizando firebird 2.1 con zeos 6.6.6 tanto en delphi como en lazarus

Cuando hago algun cambio en el nombre de un cliente en ibexpert o delphi la letra Ñ se muestra perfecta en todos los formularios de delphi y en ibexpert. Sin embargo en Lazarus se muestra un caracter extraño. Si lo modifico en lazarus, se ve perfecto en todos los forms o programas de lazarus, pero se ve un caracter extraño en delphi y en Ibexpert.

Alguien tiene una idea de porque pasa esto.

[Marc]

Utilizando firebird 2.1 con zeos 6.6.6 tanto en delphi como en lazarus

Cuando hago algun cambio en el nombre de un cliente en ibexpert o delphi la letra Ñ se muestra perfecta en todos los formularios de delphi y en ibexpert. Sin embargo en Lazarus se muestra un caracter extraño. Si lo modifico en lazarus, se ve perfecto en todos los forms o programas de lazarus, pero se ve un caracter extraño en delphi y en Ibexpert.

Alguien tiene una idea de porque pasa esto.

Yo diría que en Lazarus no le queda configurado el charset iso8859_1 (ese o el que utilices también en IBExpert y Delphi). Por eso el carácter Ñ queda almacenado con códigos distintos.

Saludos.

[fredycc]

Q tal Luk2009, he tenido ese tipo de detalles; usé una unit la cual te puede ser de mucha utilidad, solo no sabría decirte al momento de guardar si se hacer correctamente pero se podría adaptar, solo si sé que muestra lso caracteres especial correctamente en el grid o lo que sea, aquí el enlace:
http://www.lazarus.f...ic,5963.30.html
Cualquier cosa, cuenta con vos.
Saludos.

[luk2009]

Yo diría que en Lazarus no le queda configurado el charset iso8859_1 (ese o el que utilices también en IBExpert y Delphi). Por eso el carácter Ñ queda almacenado con códigos distintos.

Saludos.

Marc pues resulta que lo pongo igual que en delphi  default charset y aun asi me da el mismo inconveniente.


Fredycc pues dejame revisar lo que me indicas y ver como adaptarlo. Gracias.

[fredycc]

Q tal luk2009, he creado un pequeño ejemplo del uso de la unidad de la cual te hice mención con una pequeña modificación, la cual se conecta a firebird (ISO8859_1) y muestra correctamente caracteres como Ñ,ñ,Ü,ü y letras con acento tanto en la aplicación de lazarus como ibexpert y creo con la aplicación en Delphi no habría problema.

Si tu base tiene un charset distinto al que he utilizado para el ejemplo pon atención en los siguientes procedimientos, de la unit antes mencionada.

delphi

procedure TGetSetTextClass.GetText(Sender: TField; var aText: string;
  DisplayText: Boolean);
begin
  aText := ISO_8859_1ToUTF8(Sender.AsString);
end;
procedure TGetSetTextClass.SetText(Sender: TField; const aText: string);
begin
  Sender.AsString := UTF8ToISO_8859_1(aText);
end;

Porque este modo?, en lo particular creo la forma de implementación es muy fácil y solo bastan dos pasos para que todo nuestros dataset en la form donde declaremos lo siguiente, funcione perfectamente:

delphi

uses UnitGetSetText; 
procedure TForm2.FormCreate(Sender: TObject);
begin
 
  // Inicializamos todo lo necesario
 
  GetSetTextClass.AssignGetTextToQueries(Self);
end;

Adjunto el archivo con el demo, los fuentes (solo es funcional el select a la tabla y el insert), la bd (FB 2.5), el fbk, ddl de la base en caso de ser necesario.

La versión de Lazarus que use es: 0.9.31 y FPC: 2.4.3.
Espero te ayude. Saludos

Archivos adjuntos

•  2325_da116e2ba0c54653f89037d64ba22e953bd4a49d.jpg   326,53KB   15 descargas

[German]

Me parece que el problema es mas facil de resolver de lo que parece. Primero deberias ver cual es la codificacion que tiene la base de datos, que de seguro no es UTF8. Me parece que por defecto cuando creas una base en windows, firebird le pone NONE o WIN1251.

El tema es que delphi o ibexpert trabajan con la codificacion que usa el sistema, en este caso windows. En cambio la LCL trabaja si o si con UTF8.

Pero no hay problema, todos los motores de base medianamente respetables, en este caso Firebird, pueden resolvernos el problema. La forma de hacerlo es al conectarte. En la propiedades de la conexion (que debe llamarse charset o en params o algo parecido, nunca he usado zeos) tienes que indicarle que lo que espera tu programa es UTF8. De esa forma el motor se encargara de realizar la conversion por ti.

Espero esto resuelva tu problema.

Saludos!!

[luk2009]

Gracias a todos por responder.


Gracias Fredycc por siempre estar dispuesto a ayudar.


Gracias German tenias razon, solo debia encontrar la forma de cargar el charset a la conexion de zeos. El problema es que zeos en zconnection no tiene ninguna propiedad  "charset o param"  pero buscando encontre la forma de hacerlo y es esta:


en el evento beforeconnect de mi zconnection

delphi

ZConnection1.Properties.Add('codepage=UTF8');

con esto ha funcionado bien y puedo ver en lazarus los caracteres de forma correcta.


saludos y gracias de nuevo

[fredycc]

Q bien luk2009,  este problema lo tenian con oracle y en mi caso con interbase, siempre me dicia algo de Cannot transliterate o algo así al poner el codepage, por ello utilizaba esa pequeña unit que solo convierte a UTF8.
Lo intentaré con mi Firebird, gracias por el apunte.
Saludos.

[pastorluiscordero]

delphi

ZConnection1.Properties.Add('codepage=UTF8');

esto es lo que andaba buscando para resolver mi problema.. muchas gracias!