PWideChar im Strem speichern, wie geht das?

[Alter Mann]

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.

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

[Uwe Raabe]

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?

[fajac]

Ungetestet:

Delphi-Quellcode:

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

[jbg]

Zitat:

Zitat von fajac

Ungetestet

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

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]

[Alter Mann]

Hallo

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

Danke und viele Grüße

Alter Mann