Umlaute von UTF16 (?) zu UTF8 codieren

[xZise]

Hallo ihr,
da wir Turbo Delphi und Delphi 2009 gleichzeitig einsetzen, ist die Speicherung in einer SQLite Datenbank etwas fummelig. Anfangs haben wir die Ansistrings von TDE mittels "AnsiToUTF8" und umgekehrt kodiert. Das lief auch immer wunderbar. Aber sobald ich das unter Delphi 2009 verwende gibt das Probleme, da er mit UTF8 direkt umgehen kann.

An sich natürlich perfekt, aber sobald ich dann das in einen AnsiString umwandle gibt es Probleme. Inzwischen konnte ich das beheben, indem ich via Compilerschalter prüfe ob "Unicode" gesetzt ist. Jetzt geht nur nicht mehr das Speichern der Daten. Und zwar habe ich einen Unicodestring (also doch UTF16 oder?) mit Umlauten. Wie kann ich nun den in einen UTF8-String (ohne BOM... den brauch ich nicht) umwandeln? Bisher steht bei mir der Code:

Delphi-Quellcode:

function TDatenbankWrapper.EncodeUTF(const ASource: string): string;
begin
  Result := {$IFDEF Unicode}UTF8Encode{$ELSE}AnsiToUtf8{$ENDIF}(ASource);
  if Result = '' then
    Result := ASource;
end;

Leider codiert aber UTF8Encode nicht richtig (es kommt ein Leerstringdas gleiche heraus). Das heißt er verwendet dann den UTF16 String, was nicht gut geht.

[edit]Selbst ein Result := ändert daran nichts. Nur, dass der Ergebnisstring nicht leer ist. Stattdessen steht in Result GENAU das gleiche wie in ASource[/edit]

MfG
xZise

[jfheins]

Es könnte sein, dass du das Zeug in UTF8 konvertierst und dann aber (implizit) wieder in string (also UnicodeString) konvertiert wird - möglich dass da das gleiche rauskommt ...

Probier mal, unter D2009 den Rückgabewert als UTF8string zu deklarieren

[xZise]

Hmm okay... Das sieht schon mal besser aus, weil jetzt nur der Umlaut mit 2 Bytes codiert wurde und die normalen Zeichen (a..zA..Z) mit einem Byte.

Aber weiter hackt es dann. Aber das muss ich mir dann mal ansehen.

MfG
xZise

[himitsu]

den Typ des UTF8String gibt's ja auch schon in Delphi2006 (sogar mindestens D7)


vergiß nicht, daß hier Result = UnicodeString (unter D2009) is und demnach nun Delphi den UTF8String an einen UnicodeString zuweist

Delphi-Quellcode:

function TDatenbankWrapper.EncodeUTF(...): string; 
  Result := [UTF8]