Problem mit Delphi XE, MySQL und Codepage

[mkinzler]

Ja.

[k0ppki11ah]

Das mit dem AsAnsiString hab ich in meinem Testprojekt direkt mal versucht.

Funktioniert aber nicht. Er trägt mir für Umlaute immer noch kryptische Zeichen ein.

Momentan steht die Collation der DB auf latin1_german1_ci, in der ZEOS-Connection wird Client_Encoding=latin1 verwendet.

Liegt es denn nun daran, das Delphi UTF8 verwendet, oder eher daran, dass ZEOS die Daten an den MySQL Server im UTF8 Format schickt?

[mkinzler]

Ändere den Typ auf AnsiString

[k0ppki11ah]

Welchen Typ soll ich auf AnsiString ändern?
Es handelt sich ja in diesem Fall um ein DB-Feld. Das spreche ich an über:
zquery1.fieldbyname('MEMO').asAnsiString := memo1.lines.text; Dabei tritt der Fehler auf (SQL-Error:Incorrect string value \xf6\xf6\xf6) für den Eintrag ööö im Memo-Feld.

Wenn ich stattdessen so eintrage:
zquery1.fieldbyname('MEMO').asAnsiString := AnsiToUtf8(memo1.lines.text); trägt er die Daten aus dem Memo korrekt ein.

Wenn ich die ZEOS-Connection auf codepage=utf8 einstelle und die Tabelle auf utf_general_ci trägt der die Daten korrekt in die Tabelle ein.

Wenn ich mir die Daten in einem Grid anzeigen lasse, habe ich wieder kryptische Zeichen anstatt der Umlaute. Querys, die Umlaute im WHERE enthalten, haben kein Ergebnis (aus Delphi abgesetzt), über den MySQL QueryBrowser abgesetzt funktionieren sie aber.

[mkinzler]

Delphi-Quellcode:

s: AnsiString;
...
    s := memo1.lines.text;
    zquery1.fieldbyname('MEMO').Value := s;

[k0ppki11ah]

Zitat von mkinzler:

Delphi-Quellcode:

s: AnsiString;
...
    s := memo1.lines.text;
    zquery1.fieldbyname('MEMO').Value := s;

Habe ich ausprobiert. Geht aber auch nicht.

In meinem Testprojekt werden die Daten korrekt in die DB geschrieben. Querys, die Umlaute enthalten, funktionieren aber auch nicht.
Versuche ich das gleiche in dem richtigen Projekt, kriege ich wieder den Fehler:
(SQL-Error:Incorrect string value \xf6\xf6\xf6) für den Eintrag ööö im Memo-Feld

[k0ppki11ah]

Fall es noch jemand interessieren sollte:
Ich habe anscheinend eine Lösung für das Problem gefunden.

In der JCL gibt es eine Unit JclStringConversions, die eine Funktion AnsiStringToUtf8() enthält.
Wenn man den komplett zusammengesetzten Query vor dem absetzen mit dieser Funktion umwandelt, funktionieren auch Abfragen, in denen Umlaute enthalten sind.
Die Funktion AnsiStrToUtf8() von Delphi hat an dieser Stelle nicht funktioniert.

Das einzige Problem, das ich bis dato festgestellt habe, tritt bei DB-Memos auf. Diese arbeiten anscheinend nicht mit dem UTF zusammen. Das lässt sich aber umgehen, in dem man ein normales TMemo-Feld verwendet, in das man die Daten per Konvertierung durch die Funktion UTF8ToAnsiString reinlädt:
memo1.lines.text := UTF8ToAnsiString(zquery1.fieldByName('MEMO').AsAnsiString); Speichern kann man das Memo dann über:

Delphi-Quellcode:

zquery1.edit;
   zquery1.fieldByName('MEMO').asAnsiString := JclStringConversions.AnsiStringToUTF8(memo1.lines.text);
zquery1.post;