Strings kommen nicht richtig an..

[EWeiss]

Ich sende einen String den ich vorher in ein byte Array konvertiert habe.
Der String sieht als BEispiel vorher so aus.

"C:\Programme"

Wenn ich nun diesen in VB mit meinen Tracer entgegennehme
sieht er so aus.

"C : \ P R O G R " usw...

Den string konvertiere ich auf diese weise..

Delphi-Quellcode:

var
  IntI: Integer;
begin
  IntI := Length(_string);
  SetLength(_binary, IntI);
  CopyMemory(@_binary[0], @_string[1], IntI);

warum kommt nun so ein verkrüppelter String dabei raus ?

gruss

[Sir Rufo]

Welche Delphi-Version?

Riecht ein wenig nach Unicode (2 Byte)

[EWeiss]

Zitat von Sir Rufo:

Welche Delphi-Version?

Riecht ein wenig nach Unicode (2 Byte)

D2009

gruss

[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.

[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

[Sir Rufo]

Logisch, ist ja definitiv Unicode

[EWeiss]

Zitat von Sir Rufo:

Logisch, ist ja definitiv Unicode

Ich habe das ergebnis bei beiden
Auch nach der geänderten Fassung.
Muss nochmal prüfen ob ich das gleiche ergebnis auch von VB nach VB habe ..

Wenn ich so überlege scheint es doch richtig zu sein denn ich setze es ja selbst ins Unicode Format wenn es in VB ankommt
Der Übeltäter könnte dann auch #9 = vbTab sein oder aber es wird der Delemiter "," nicht mit übergeben.

EDIT:
Nop ist nicht richtig wie es ankommt
Von VB to VB sieht es aus wie auf Bild 2 (mist2.jpg)

gruss

[himitsu]

VB ist Ansi

Wenn du Unicode versendest, dann empfängt man auch Unicode.

Willst du ANSI empfangen, dann mußt du natürlich ANSI versenden.

[EWeiss]

Zitat von himitsu:

VB ist Ansi

Wenn du Unicode versendest, dann empfängt man auch Unicode.

Willst du ANSI empfangen, dann mußt du natürlich ANSI versenden.

Arghh leuchtet mir ein

Danke !
Hoffe es funktioniert jetzt.

EDIT:Jetzt kommt alles korrekt an und wird richtig ausgegeben.

gruss