Hi,
ich hoffe, mir kann hier jemand helfen.
Ich hab
MySQL installiert,
MySQL Workbench, und hab Delphi XE3 zu laufen.
MySQL 5.1, weil neuere Versionen anscheinend nicht mit Delphi XE3 laufen.
Ich hab in der Datenbank Namen mit Sonderzeichen: Marie Geneviève z.B.
Ich hab in der Datenbank alle Zeichensätze auf UTF8 gestellt.
Wenn ich in der Workbench nach Marie Geneviève suche
select * from xxx where forename="Marie Geneviève";
krieg ich die entsprechende richtige Antwort.
setze ich dieselbe Suche mit Delphi XE3 ab, krieg ich als Antwort, daß es keine solchen Datensätze gibt.
Ich hab schon diverse Lösungsversuche probiert, wie
procedure XSQLConnectionAfterConnect(
Sender: TObject);
begin
XSQLConnection.ExecuteDirect('set names utf8;');
XSQLConnection.ExecuteDirect('set character set utf8;');
end;
oder das Umwandeln der Abfrage
tempClientDataSet.Active:=False;
sql2:='select * from xxx where forename="Marie Geneviève";';
sqlstring:=AnsitoUTF8(sql2); // diverse andere Versionen probiert
tempSQLDataSet.CommandText := sqlstring;
tempClientDataSet.Active:=True;
Leider hat davon nichts geklappt.
Frage wäre:
Wo muß man was einstellen, damit eine Abfrage mit UTF8-Sonderzeichen auch als UTF8 am Server ankommt?
oder Alternativ
gibt es eine Funktion, mit der man die Abfrage so umwandeln kann, damit eine Abfrage herauskommt, die vom Server verstanden und richtig beantwortet wird?
eine Idee wäre z.B., wenn aus
select * from xxx where forename="Marie Geneviève";
ein
select * from xxx where forename="Marie Genevieve";
würde, also die Sonderzeichen durch kompatible
ASCII-Zeichen ersetzt würden.
Die Lösung mit der Funktion
function Ansi2Ascii(const s:AnsiString):AnsiString;
begin
Result := s;
if Result <> '' then
begin
UniqueString(Result);
CharToOem(Pchar(Result), Pchar(Result));
end;
end;
funktioniert übrigens nicht, da bei DelphiXE3 diverse Char und string-Varianten nicht mehr kompatibel zueinander sind (wie es z.B. bis Delphi2010 noch war)
Für Vorschläge wäre ich sehr dankbar.