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

ungetestet:

zusammenfalten · markieren

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

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