Conversion d'une chaîne AnsiString en chaîne Unicode

Question

Je convertis un programme D2006 en D2010. J'ai une valeur stockée dans un seul octet par chaîne de caractères dans ma base de données et je dois le charger dans un contrôle qui a un LoadFromStream, donc mon plan était d'écrire la chaîne dans un flux et l'utiliser avec LoadFromStream. Mais cela n'a pas fonctionné. En étudiant le problème, je vois un problème qui me dit que je ne comprends pas vraiment comment la conversion d'AnsiString en chaîne Unicode fonctionne. Voici un morceau de code autonome qui illustre le problème que je suis confus:

procedure TForm1.Button1Click(Sender: TObject); {$O-} 
var 
    sBuffer: String; 
    oStringStream: TStringStream; 
    sAnsiString: AnsiString; 
    sUnicodeString: String; 
    iSize1, 
    iSize2: Word; 
begin 
    sAnsiString := '12345'; 
    oStringStream := TStringStream.Create(sBuffer); 
    sUnicodeString := sAnsiString; 
    iSize1 := StringElementSize(sAnsiString); 
    iSize2 := StringElementSize(sUnicodeString); 
    oStringStream.WriteString(sUnicodeString); 
end; 

Si vous cassez sur la dernière ligne, et inspectez la propriété Bytes de ostringstream, vous verrez qu'il ressemble à ceci:

Bytes (49 {$31}, 50 {$32}, 51 {$33}, 52 {$34}, 53 {$35} 

Je me attendais qu'il pourrait ressembler à

(49 {$31}, 00 {$00}, 50 {$32}, 00 {$00}, 51 {$33}, 00 {$00}, 
52 {$34}, 00 {$00}, 53 {$35}, 00 {$00} ... 

Apparemment, mes attentes sont erronées. Mais alors, comment convertir un AnsiString en unicode? Je n'obtiens pas les bons résultats de LoadFromStream car il lit le flux deux octets à la fois, mais les données qu'il reçoit ne sont pas disposées de cette façon. Que dois-je faire pour donner à LoadFromStream un flux de données bien formé basé sur une chaîne unicode?

Nous vous remercions de votre aide.

Answer 1

Quel est le type du paramètre oStringStream.WriteString? Si c'est AnsiString, vous avez une conversion implicite d'Unicode en Ansi et cela explique votre exemple.

---

Mise à jour: Maintenant, la vraie question est de savoir comment TStringStream stocke les données en interne. Dans l'exemple de code suivant (Delphi 2009)

procedure TForm1.Button1Click(Sender: TObject); 
var 
    S: string; 
    SS: TStringStream; 

begin 
    S:= 'asdfg'; 
    SS:= TStringStream.Create(S); // 1 byte per char 
    SS.WriteString('321'); 
    Label1.Caption:= SS.DataString; 
    SS.Free; 
end; 

TStringStream utilise le codage à l'intérieur du système par défaut ANSI (1 octet par char). Les procédures constructor et WriteString convertissent un argument de chaîne d'unicode en ANSI.

Pour remplacer ce comportement, vous devez déclarer le codage explicitement dans le constructeur:

procedure TForm1.Button1Click(Sender: TObject); 
var 
    S: string; 
    SS: TStringStream; 

begin 
    S:= 'asdfg'; 
    SS:= TStringStream.Create(S, TEncoding.Unicode); // 2 bytes per char 
    SS.WriteString('321'); 
    Label1.Caption:= SS.DataString; 
    SS.Free; 
end; 

Answer 2

Je pense que vous voulez utiliser:

LoadFromStream(stream, TEncoding.ASCII); 

Si votre texte d'un seul octet n'est pas ASCII, mais est basé sur une page de code, alors cela pourrait fonctionner:

LoadFromStream(stream, TEncoding.GetEncoding(1252)); 

où le "1252" est la page de code que yo Votre texte à un octet est basé sur.

Answer 3

Le format de flux dépend en grande partie de TStringStream.Encoding. Dans votre exemple, la page de codes utilisée doit être la même que sBuffer (voir implentation de TStringStream.Create).

Puisque oStringStream.WriteString(sUnicodeStream); semble enregistrer en octets simples, je suppose que sBuffer est un Ansistring ou un RawByteString.

Maintenant ... pourquoi la lecture échoue ... Vous n'avez pas encore fourni un exemple de la façon dont vous relisez ce flux.