Hi,

wie kann ich einen PWideChar-Wert in einem Strem speichern?

Ich habe hier schon alles mögliche gelesen und versucht, es kommt immer
zu dem gleichen Ergebnis: Es wird nur der erste Buchstabe geschrieben.

zusammenfalten · markieren

Delphi-Quellcode:

...
var
  FFileName : PWideChar;
  FFileNameLength : Word;
...
FFileNameLength := Length(FFileName);
...
Write( FFileName^, FFileNameLength );
Write( FFileName[1], FFileNameLength );
Write( Pointer(FFileName)^, FFileNameLength );
...

Wie müsste es richtig sein?

Gruß

Alter Mann

1) Ein WideChar ist zwei Bytes groß. Die Anzahl zu schreibender Bytes ist also zweimal so groß wie die Länge des Strings.

2) Wie kontrollierst du, welche Zeichen in den Stream geschrieben wurden?

Ungetestet:

markieren

Delphi-Quellcode:

var
  FFileName : PWideChar;
  FFileNameLength : Word;
  FFileString : WideString;
...
FFileString := WideString (FFileName);
FFileNameLength := Length (FFileString);
...
Write (FFileString, FFileNameLength * SizeOf (WideChar));

Zitat von fajac:

Ungetestet

Genau. Denn der Code schreibt den Zeiger statt die Daten in den Stream.

markieren

Delphi-Quellcode:

var
  FFileName: PWideChar;
  FFileNameLength: Word;
  FFileString: WideString;
...
FFileString := WideString(FFileName);
FFileNameLength := Length(FFileString);
...
if FFileNameLength > 0 then { <== }
  Write(FFileString{ ==> }[1]{ <== }, FFileNameLength * SizeOf(WideChar));

[/quote]

Hallo

scheinbar geht es nur über die 'Krücke' WideString, schade.

Danke und viele Grüße

Alter Mann