Stimmen aus RawByteString string nicht automatisch aufrufen UTF8Decode?

In Ansi-Versionen von Delphi (vor D2009), UTF8Encode() gibt einen UTF-8-kodiert AnsiString. In Unicode-Versionen (D2009 und später), gibt es ein UTF-8-kodiert RawByteString mit einer code-Seite von CP_UTF8 (65001) zugeordnet.

In Ansi-Versionen, ShowMessage() nimmt eine AnsiString als Eingabe, und die UTF-8-string ist eine AnsiString, so wird es dargestellt-ist. In Unicode-Versionen ShowMessage() nimmt eine UTF-16-kodiert UnicodeString als Eingabe, so ist die UTF-8-kodiert RawByteString wird in UTF-16 konvertiert die Verwendung der Ihr zugewiesenen CP-UTF8 code Seite.

Wenn Sie tatsächlich schrieb die blob Daten direkt an die Datenbank, die Sie finden würde, dass er möglicherweise oder möglicherweise nicht UTF-8 codiert sein, je nachdem, wie Sie es schreiben. Aber dein Ansatz ist falsch; die Verwendung von RawByteString ist falsch in dieser situation. RawByteString verwendet werden soll als parameter für eine Prozedur nur. Verwenden Sie es nicht als eine lokale variable. Das ist die Quelle Ihres Problems. Aus der Dokumentation:

Zweck der RawByteString ist zu reduzieren die Notwendigkeit für mehrere
überladungen von Prozeduren, die das Lesen von string-Daten. Dies bedeutet, dass
Parameter von Routinen, Prozess-strings ohne Berücksichtigung der
string code-Seite sollte in der Regel vom Typ RawByteString.

RawByteString sollte nur verwendet werden, als parameter-Typ, und nur in
Routinen, die sonst benötigen würden mehrere überladungen für AnsiStrings
mit unterschiedlichen codepages. Solche Routinen geschrieben werden müssen mit Sorgfalt
für die aktuelle codepage der string zur Laufzeit.

Für Unicode-Versionen von Delphi, statt RawByteString würde ich vorschlagen, dass Sie verwenden TBytes zu halten Ihre UTF-8-Daten und Kodieren Sie es mit TEncoding:

var
  utf8: TBytes;
  str: string;
...
str := ...;
utf8 := TEncoding.UTF8.GetBytes(str);

Du suchst einen Datentyp, der keine implizite text-Codierungen, wenn herum, und TBytes ist der Typ.

Für Ansi-Versionen von Delphi können Sie AnsiString, WideString und UTF8Encode genau so, wie Sie tun.

Persönlich würde ich jedoch empfehlen, mit TBytes konsequent für Ihre UTF-8-Daten. Also, wenn Sie brauchen eine einheitliche code-Basis, unterstützt Ansi und Unicode-Compiler (ugh!) dann sollten Sie einige Helfer:

{$IFDEF Unicode}
function GetUTF8Bytes(const Value: string): TBytes;
begin
  Result := TEncoding.UTF8.GetBytes(Value);
end;
{$ELSE}
function GetUTF8Bytes(const Value: WideString): TBytes;
var
  utf8str: UTF8String;
begin
  utf8str := UTF8Encode(Value);
  SetLength(Result, Length(utf8str));
  Move(Pointer(utf8str)^, Pointer(Result)^, Length(utf8str));
end;
{$ENDIF}

Die Ansi-version verursacht mehr heap-Zuweisungen als notwendig. Sie könnten auch entscheiden, zu schreiben, ein effizienter Helfer, die Anrufe WideCharToMultiByte() direkt.

In den Unicode-Versionen von Delphi, wenn Sie aus irgendeinem Grund nicht verwenden wollen TBytes für UTF-8-Daten, die Sie verwenden können UTF8String statt. Dies ist eine Besondere AnsiString dass immer die CP_UTF8 code Seite. Sie können dann schreiben:

var
  utf8: UTF8String;
  str: string;
....
utf8 := str;

und der compiler konvertiert von UTF-16 zu UTF-8 hinter den kulissen für Sie. Ich würde nicht empfehlen dies aber nicht, weil es nicht unterstützt, auf mobilen Plattformen oder in Ansi-Versionen von Delphi (UTF8String existiert seit Delphi 6, aber es war nicht eine echte UTF-8-string bis Delphi 2009). Das ist, unter anderen Gründen, warum ich schlage vor, daß du TBytes. Meine Philosophie ist, zumindest in der Unicode-Zeitalter, daß es die native string geben, und jeder anderen Codierung gespeichert werden soll TBytes.