EReadError beim Lesen der mit TWriter geschriebenen Daten

[DualCoreCpu]

Zitat von Uwe Raabe:

Zitat von Klaus01:

vielleicht hilft diese Routine:

Wohl kaum! Das würde voraussetzen, daß die Daten auch in diesem Format abgespeichert wurden, was hier aber nicht der Fall ist.

@DualCoreCpu: Kannst du die Datei einfach mal hier anhängen? Dann kann auch mal jemand anders versuchen, die einzulesen.

Ok, will es versuchen. Obwohl Endung .txt, ist es keine reine Textdatei, nur meine ursprüngliche Dateiendung .def akzeptiert der hiesige Uploader nicht.

Um die LoadFromStream() Methode von @Klaus einsetzen zu können, musste ich die Testdaten unter Deaktivierung der Lesemethode nochmals schreiben.

Vorher fehlte das Listenendezeichen $00 und das ListBegin Zeichen $01. Alles andere (Kennzeichnung $06 und Längenbyte vor dem String, dann der eigentliche String, war schon vorher da.

Das hier sind jetzt die wesentlichen Änderungen:

Delphi-Quellcode:

procedure TForm1.btnOkClick(Sender: TObject);
var Directory: String;
begin
  Directory := GetCurrentDir;
  if Directory[Length(Directory)]<>'\' then Directory := Directory + '\';
  FStream := TFileStream.Create(Directory+'Testfile.def', fmCreate);
  SaveToStream(FStream);
  { So hatte ich es vorher
  FFileWriter.WriteListBegin;
  FFileWriter.WriteString(FTestFields.Feld1);
  FFileWriter.WriteString(FTestFields.Feld2);
  FFileWriter.WriteString(FTestFields.Feld3);
  FFileWriter.WriteListEnd;
  }
end;

Hier FormCreate:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var Directory: String;
begin
  //Erzeugen des Streams zum Lesen
  Directory := IncludeTrailingPathDelimiter(ExtractFilePath(Paramstr(0)));
  //ShowMessage(Directory); wird richtig angezeigt.

  FReader := TFileStream.Create(Directory+'TestFile.def', fmOpenRead, fmShareDenyWrite);

  //Lesen der Daten
  LoadFromStream(FReader);

  //Überprüfen, ob richtig gelesen  
  Edit1.Text := FTestFields.Feld1;
  Edit2.Text := FTestFields.Feld2;
  Edit3.Text := FTestFields.Feld3;
  //Inhalt stimmt anschließend
end;

und hier die Lese- und Schreibmethode:

Delphi-Quellcode:

procedure TForm1.LoadFromStream(const Stream: TStream);
var Reader: TReader;
begin
  Reader := TReader.Create(Stream, $0FFF);
  Reader.ReadListBegin;
  while not Reader.EndOfList do
  begin
  FTestFields.Feld1 := Reader.ReadString;
  FTestFields.Feld2 := Reader.ReadString;
  FTestFields.Feld3 := Reader.ReadString;
  end;
  FreeAndNil(Reader);
  Stream.Free; //sonst EfOpenError beim nächsten Öffnen für Schreiben!!!
end;

procedure TForm1.SaveToStream(const Stream: TStream);
var
  Writer: TWriter;
begin
  Writer := TWriter.Create(Stream, $0FFF);
  Writer.WriteListBegin;
  Writer.WriteString(Edit1.Text);
  Writer.WriteString(Edit2.Text);
  Writer.WriteString(Edit3.Text);
  Writer.WriteListEnd;
  FreeAndNil(Writer);
  Stream.Free;
end;

Mit diesen Methoden funktioniert es jetzt. Danke wie verrückt Euch allen! ))))

P.S. Wollte eigentlich nen schönen Smilie eifügen, geht aber beim Nachbearbeiten nicht. schade!