Ich habe einen Record in eine Klasse verpackt und speichere die Records in einer generischen TObjectList. Ich möchte jetzt die knapp 130.000 Datensätze mit einem Stream in eine Datei speichern. Hierzu verwende ich einen TFileStream und einen TReader/TWriter. Das alles klappt ohne Probleme.
Nun möchte ich gern einen TMemoryStream verwenden, um ihn mit der
DEC zu ver-/entschlüsseln. Das mache ich so:
Delphi-Quellcode:
procedure TZielListe.SaveToFile(Dateiname:string;PW:string = '');
var Writer: TWriter; Stream:TMemoryStream; i:integer;
begin
Stream := TMemoryStream.Create;
Writer:= TWriter.Create(Stream, 4096);
Try
Writer.WriteListBegin;
For i := 0 to Self.Count - 1 do begin
Writer.WriteInteger(Self[i].Int1);
Writer.WriteInteger(Self[i].Int2);
Writer.WriteString(Self[i].Text1);
Writer.WriteString(Self[i].Text2);
Writer.WriteInteger(Self[i].Int64A);
Writer.WriteInteger(Self[i].Int64B);
Writer.WriteInteger(Self[i].Int64C);
end;
Writer.WriteListEnd;
Stream.SaveToFile(Dateiname);
Finally
Writer.Free;
Stream.Free;
End;
end;
Nunmehr knallt es aber beim Einlesen. Nach mühseliger Suche habe ich mit einem Hexeditor herausgefunden, dass das daran liegt, dass nicht alle Bytes in die Datei geschrieben werden. Der Fehler hat mit der Größenangabe bei
Writer:= TWriter.Create(Stream, 4096);
zu tun. Der letzte Block wird offenbar nicht geschrieben. Nehme ich eine durch 16 teilbare Größe, so werden die letzten über 16 hinausstehenden (hier 4) Bytes nicht mitgespeichert. Nehme ich eine Größe von 1, so wird das letzte Byte nicht geschrieben (nämlich das
Writer.WriteListEnd;
). Nehme ich eine andere Größe (15, 1024 oder 4096), so wird ein entsprechend großer Rest nicht geschrieben.
Weiß jemand, was hier vorgeht?