EReadError beim Lesen der mit TWriter geschriebenen Daten

[baumina]

Dateiname ohne Pfadangebe vielleicht?

[DualCoreCpu]

Zitat von baumina:

Dateiname ohne Pfadangebe vielleicht?

Nein, leider nicht die Ursache. Wenn ich vor

  FReader := TFileStream.Create(...); das hier ergänze:

Delphi-Quellcode:

  Directory := GetCurrentDir;
  if Directory[Length(Directory)]<>'\' then Directory := Directory + '\';
  FReader := TFileStream.Create(Directory + 'Testfile.def', fmOpenRead, fmShareDenyWrite);

erhalte ich dieselbe EFReadError Exception.

Was also kann ich noch tun?

[Klaus01]

Lass Dir doch das Verzeichnis mal ausgeben.
Oder setze einen Haltepunkt und schau es dir im Debugger an.

Grüße
Klaus

[Luckie]

Welche R+ückgabe erwartest du von GetCurrentDirectory? Tipp: es muss nicht zwingend das Verzeichnis deiner Anwendung sein.

[p80286]

Zitat von Luckie:

Welche R+ückgabe erwartest du von GetCurrentDirectory? Tipp: es muss nicht zwingend das Verzeichnis deiner Anwendung sein.

Da er auch beim Schreiben mit GetCurrentDirectory hantiert, augenscheinlich eine verlässliche Information.

@dualCoreCpu
GetCurrentDirectory ist genauso zuverlässig wie relative Pfadangaben, und sobald auch nur ganz kurz "das passiert sowieso nicht" bei der Überlegung ob etwas schief gehen kann, aufblitzt, dann geht das garantiert schief.
Entweder du nutzt selbst definierte Pfadangaben oder (meiner Meinung nach besser), du nutzt die Windows-Standardverzeichnisse.

Gruß
K-H

[DualCoreCpu]

Zitat von Luckie:

Welche R+ückgabe erwartest du von GetCurrentDirectory? Tipp: es muss nicht zwingend das Verzeichnis deiner Anwendung sein.

Upps, wieso das nicht?

Von GetCurrentDir aud dem Hauptprogramm aufegerufen wewarte ich jenes Verzeichnis, in welchem meine Anwendung liegt.

Hab es jetzt so gemacht:

Directory := IncludeTrailingPathDelimiter(ExtractFilePath(Param str(0)));

führt aber nicht zm gewünschten Erfolg. Die EReadError Exception kommt immer noch.

[Luckie]

Das sagt doch schon der Name: "Gib das aktuelle Verzeichnis zurück". Einmal einen Open- oder Savedialog benutzt und dabei das Verzeichnis gewechselt, schon ist das aktuelle Verzeichnis nicht mehr das Anwendungsverzeichnis. Wenn du das Anwendungsverzeichnis willst, dann guck dir in der Hilfe mal ParamStr an. Davon mal abgesehen, dass es eine ganz schlechte Idee ist irgendwelche Dateien die auch geschrieben werden sollen im Anwendunsgverzeichnis abzulegen. Da dort nur Benutzer der Administratorengruppe schreiben können. Und wen du es anders einrichtest, überschreiben sich die verschiedenen Benutzer gegenseitig die Datei.

[DualCoreCpu]

Zitat von Luckie:

Das sagt doch schon der Name: "Gib das aktuelle Verzeichnis zurück". Einmal einen Open- oder Savedialog benutzt und dabei das Verzeichnis gewechselt, schon ist das aktuelle Verzeichnis nicht mehr das Anwendungsverzeichnis. Wenn du das Anwendungsverzeichnis willst, dann guck dir in der Hilfe mal ParamStr an. Davon mal abgesehen, dass es eine ganz schlechte Idee ist irgendwelche Dateien die auch geschrieben werden sollen im Anwendunsgverzeichnis abzulegen. Da dort nur Benutzer der Administratorengruppe schreiben können. Und wen du es anders einrichtest, überschreiben sich die verschiedenen Benutzer gegenseitig die Datei.

Ok, danke für den Hinweis. Werd ich bei praktischen Anwendungen beherzigen.

Open und Savedialog verwende ich in meinem Testprogramm nicht, aber das könnte in einer praktischen Anwendung natürlich schnell passieren. Dort werd ich wohl dann ein für Anwendungs bzw. Konfigurationsdaten ein eigenes Verzeichnis einrichten.

Zitat von baumina:

Wie heißt die Fehlermeldung genau und in welcher Zeile tritt sie auf?

Die Meldung lautet 'Stream Lesefehler' und tritt beim ersten ReadString auf.

  FTestFields.Feld1 := FileReader.ReadString;
.

[DualCoreCpu]

Um weiteren Zwischenfragen vorzubeugen:

Die Datei aus der ich lesen will, existiert im Pfad und enthält auch Strings, die ich nun auslesen will.

Das Format ist

Byte
0 Inhalt $06 vermulich eine Signatur, denn dieses Byte steht vor hedem String.

1 Längenbyte obwohl Ansistrings geschrieben werden können, lt. Hilfe, gibt es nur ein
Längenbyte.

2-... der String

Danach die gleiche Abfolge -> SIgnatur, Längenbyte, String. Bis Dateiende. Am Dateiende steht das letzte Zeichen des letzten Strings.

[baumina]

Wie heißt die Fehlermeldung genau und in welcher Zeile tritt sie auf?