String evt. auch Unicode in ein Byte Array umwandeln

[pajofego]

In .NET kann man mit Hilfe der ASCIIEncoding.GetBytes Methode den entsprechenden String bzw. Unicode String in ein Byte Array zu wandeln. Wenn ich das in Delphi WIN32 machen möchte, welche Funktion muss ich da benutzen? Wie schließe ich evt. Probleme mit Unicode aus?

Danke,

Gruß
pajofego

[cruiser]

ungetestet:

Delphi-Quellcode:

TBinArray = Array of Byte;

procedure StringToBinArray(const s: String; var bin: TBinArray);
var
  l: Integer;
begin
  l := Length(s);
  SetLength(bin, l);
  CopyMemory(@bin[0], @s[1], l);  
end;

procedure WideStringToBinArray(const ws: WideString; var bin: TBinArray);
var
  l: Integer;
begin
  l := Length(ws)*SizeOf(WideChar);
  SetLength(bin, l);
  CopyMemory(@bin[0], @ws[1], l);  
end;

greetz

[pajofego]

Hi, danke für deine Mühen. Ich konnte es zu Laufen bringen und es scheint auch richtig zu funktionieren.

Danke und schönen Abend noch,

Gruß
pajofego