Strings kommen nicht richtig an..

[EWeiss]

Zitat von himitsu:

Jupp, Unicode.

Wenn _string: String , dann

Delphi-Quellcode:

begin
  IntI := Length(_string) * SizeOf(Char);
  SetLength(_binary, IntI);
  CopyMemory(@_binary[0], @_string[1], IntI);

Aber Achtung: Beim Datentransfer NIE dynamische Typen verwenden.

Besser direkt generische Typen, wie AnsiString oder UnicodeString/WideString, bzw. AnsiChar oder WideChar verwenden, damit das Datenformat nicht Compilerabhängig ist.

Ich werde es mal versuchen Danke
Obwohl ich bei WideString genau das gleiche ergebnis bekomme..

Hier meine Widestring function

Delphi-Quellcode:

var
  IntI: Integer;
begin
  IntI := Length(_WString) * SizeOf(WideChar);
  SetLength(_binary, IntI);
  CopyMemory(@_binary[0], @_WString[1], IntI);

gruss