ReadString() Bug?

[Thorsten1867]

Scheinbar wird nicht dasselbe ausgelesen, was geschrieben wurde:

Code: Alles auswählen

Test.s = "Das ist ein Test"
Debug "--- Schreiben ---"
FId = CreateFile(#PB_Any, "E:\Temp\Test.dat")
If FId
  Debug "Text: " + Test + " ("+Str(Len(Test))+")"
  WriteString(FId, Test)
  WriteLong(FId, Len(Test))
  Debug "Länge: "+Str(Len(Test))
  CloseFile(FId)
EndIf
Debug "--- Lesen ---"
RId = ReadFile(#PB_Any, "E:\Temp\Test.dat")
If RId
  Test.s = ReadString(RId)
  Debug "Text: " + Test + " ("+Str(Len(Test))+")"
  TestLen.l = ReadLong(RId)
  Debug "Orginallänge: "+Str(TestLen)
EndIf

--- Schreiben ---
Text: Das ist ein Test (16)
Länge: 16
--- Lesen ---
Text: Das ist ein Test (17)
Orginallänge: 0

[Kiffi]

[ReadString()] Liest einen String aus der '#Datei', bis ein 'End Of Line'
(deutsch: "Ende der Zeile") Zeichen gefunden wird (Unix- und
DOS-Dateiformate werden unterstützt).

... oder aber vorher EOF() eintritt.

also wird Dein Long ebenfalls mit ReadString() gelesen

Grüße ... Kiffi

[Thorsten1867]

Sollte WriteString() nicht genau dies EOF() am Ende des Strings anhängen?

[ts-soft]

Sollte WriteString() nicht genau dies EOF() am Ende des Strings anhängen?

WriteString schreibt doch kein EOF() (end of file) hinterm string
Wenn Du Strings mit anderen Daten mixt, mußte selber für eine Trennung
sorgen. In früheren Versionen wurde wohl automatisch eine 0 angefügt, aber
das ist ja nicht immer gewünscht.

Andere Sprachen haben deshalb meist einen Text und einen Binärmodus, in
PB haste immer einen Binärmodus, so das man Text und andere Daten
mixen kann, aber selber für die Trennung beim mixen zuständig ist.

Gruß
Thomas

[Thorsten1867]

Bin wohl von PokeS() usw. ausgegangen, wo das Stringende immer automatisch mit angehängt wird.
Hätte nicht gedacht, dass sich ein String im Speicher einfacher auslesen lässt als aus eine Datei.

Aber Danke, mein komprimiertes Dateiformat funktioniert jetzt. Hätte den String vielleicht direkt aus dem Speicher mit WriteData() schreiben sollen, dann hätte ich mir eine Menge Ärger erspart.

[HeX0R]

Ähhh, wieso nimmst du nicht WriteStringN() ?

[ts-soft]

Ähhh, wieso nimmst du nicht WriteStringN() ?

Gute Frage, hab ich auch gerade nicht dran gedacht

[Thorsten1867]

Habe ich auch gemacht, nachdem ich wusste wo das Problem zu suchen war.
WriteStringN() hatte ich bisher nur mit Textdateien und Zeilenumbrüchen in Verbindung gebracht und nicht mit dem Setzen eines EndOfString-Zeichens.