Guardar letras griegas en Firebird

[bulc]

Va perfectamente pero no hay que poner comillas al carácter set.
He usado:

ALTER TABLE definido
ADD EXPLAIN BLOB SUB_TYPE 1 CHARACTER SET UTF8;

COMMIT;

Cierro, buenas noches. Y gracias.

[Casimiro Noteví]

Empezado por bulc

Va perfectamente pero no hay que poner comillas al carácter set.

Nadie dijo que había que ponerlas

Empezado por bulc

He usado:
ALTER TABLE definido
ADD EXPLAIN BLOB SUB_TYPE 1 CHARACTER SET UTF8;
COMMIT;
Cierro, buenas noches. Y gracias.

Entonces se supone que te ha funcionado bien así, ¿no?

[bulc]

Nada... sigue igual que antes con ISO8859_I
Mientras se está en edición, las letras griegas se ven OK, pero al guardar aunque el conjunto de caracteres sea UTF8, se convierten en signos de interrogación.
Esperaré a que alguien pueda ayudar. De momento lo dejo estar.
Gracias

[Casimiro Noteví]

Empezado por bulc

Nada... sigue igual que antes con ISO8859_I
Mientras se está en edición, las letras griegas se ven OK, pero al guardar aunque el conjunto de caracteres sea UTF8, se convierten en signos de interrogación.
Esperaré a que alguien pueda ayudar. De momento lo dejo estar.
Gracias

Esperaremos a "alguien"

No nos cuentes cómo estás guardando la información, cómo la presentas, no pongas nada de código, no muestres nada.... Deja que adivinemos, a ver si "alguien" acierta

[bulc]

Código Delphi [-]
procedure TPalabras.BitBtn4Click(Sender: TObject); // GUARDAR DATOS
begin
BitBtn2.Enabled:=True; BitBtn1.Enabled:=True; Button2.Click;
if ClientDataSet1.State in [dsInsert, dsEdit] then
begin
       if DataSource1.DataSet.FieldByName('WORD').asString=''  then
          begin
          DataSource1.DataSet.Cancel;
          EsAlta:=False;
          Exit;
          end else
          begin
          If esAlta then PasaUno:=True;
          ClientDataSet1.Post;
          ClientDataSet1.ApplyUpdates(-1);
          //Detrás del Apply porque el nuevo número ya se guardó.
          REVISA_GEN(IBQuery1, PasaUno, Label1);
         end;
     end;
 EsAlta:=False; PasaUno:=False;
 BitBtn2.Enabled:=True;
end;

Por otra parte el campo (llamado Notes) se define con el character set ISO8859_I. Guarda correctamente.
Eso es todo lo que puedo aportar.
Saludos. Bulc

[Casimiro Noteví]

¿Hay algún motivo especial para usar un campo BLOB para guardar el texto?

[Casimiro Noteví]

He hecho un simple insert y luego un select y verás que se guarda y se lee correctamente.

[pacopenin]

Empezado por bulc

Nada... sigue igual que antes con ISO8859_I
Mientras se está en edición, las letras griegas se ven OK, pero al guardar aunque el conjunto de caracteres sea UTF8, se convierten en signos de interrogación.
Esperaré a que alguien pueda ayudar. De momento lo dejo estar.
Gracias

Yo tuve un problema que no se si es similar o no. Fué con los componentes ZEOS al pasar de la versión 6 a la 7, y es que en los campos donde guardaba RTFs (era BLOB SUB_TYPE 1 de texto que en la versión 6 y funcionaba perfectamente), al pasar a la versión 7 me guardaba signos de interrogación. Se arreglo al ponerlos de tipo BLOB SUB_TYPE 0 o sea binarios.
No se si te ayudará....

[bulc]

No he conseguido guardar los caracteres griegos. Y me ha surgido otro problema al listar palabras que empiezan por Á (a con tilde). A pesar de usar un Collate ES_ES_Ci_Ai, no se clasifican alfabéticamente las palabras prescindiendo del acento. (Es el resultado de los diccionario en castellano, no tienen en cuenta los acentos).
Primero usaba la orden:

Código SQL [-]
select * from DEFINIDO where palabro STARTING WITH :Param ORDER BY palabro;

El :Param =A (sin acento).
y en el listado no salía ninguna Ä acentuada. Lo cual tampoco es de extrañar.
Tras consultarlo en la red, lo cambié por :

Código SQL [-]
 SELECT * FROM definido WHERE UPPER( palabro COLLATE ES_ES_Ci_AI) STARTING WITH :Param ORDER BY palabro;

Ahora sí que salen las Á acentuadas pero todas al final del listado, como si fueren Aes especiales.
He llegado hasta ahí. Si llego a avanzar en el tema lo comunicaré.
Saludos y buena suerte.
Bulc