Hi,
ich hab hier schon danach gesucht und bin auf einen Beitrag von Luckie gestoßen. Seine Lösung hat auch fast geklappt^^.
Also, erstma bisschen Code:
Delphi-Quellcode:
TTEDInfo = record
CORE_VERSION: String;
CONTAINER_VERSION: String;
DOCUMENT_VERSION: String;
EDITOR_VERSION: String;
TED_VERSION: String;
SAVE_TEXT: String;
end;
[...]
function TContainer.ReadTedInfoFromStream(F: TStream): TTEDInfo;
begin
F.ReadBuffer(Result, SizeOf(TTEDInfo)); // <- Da
end;
procedure TContainer.WriteTedInfoToStream(F: TStream; aInfo: TTEDInfo);
begin
F.WriteBuffer(aInfo, SizeOf(TTEDInfo));
end;
An der markierten Stelle bekomme ich einen Stream-Lesefehler.
Woran könnte der Fehler liegen?