Hi,
ich bastel grad an einem eigenen Dateiformat. Ich speichere da diverse Sachen mit rein (z.B. Author), dabei wird auch ein Text gespeichert der immer der gleiche ist, damit ich erkennen kann ob das mein Dateiformat ist.
Der Text (ist nur nen Testtext) heißt so:
Zitat:
So, wenn der in die Datei gespeichert wird, sieht das ganze so aus:
Zitat:
DC-Hochleistungsformat Ein Test.dcd <Kein> 22.01.2005 16:26:25 <Kein>µ
(Da sind noch solche Kästchen dazwischen. Kann ich nicht mitkopieren.)
Wenn ich nun in dieser gespeicherten Datei aus dem
DC-Hochleistungsformat ein
DCHochleistungsformat mache, und lade diese Datei mit meinem Programm wieder, kommt es zu einem Stream-Lesefehler.
Hier noch die relevante Codestelle:
Delphi-Quellcode:
function TfDoc.ReadStringFromStream(F: TStream): string;
var
aStrLen: Integer;
begin
F.ReadBuffer(aStrLen, SizeOf(Integer));
SetLength(Result, aStrLen);
if aStrLen > 0 then
F.ReadBuffer(Pointer(Result)^, aStrLen);
end;
{eine Procedure}
if Pos('.dcd', FileName) > 0 then
begin
Temp := ReadStringFromStream(aStream);
Die wahrscheinlichkeit, das jemand den Text ändert ist eh gering, aber falls es jemand tut, möchte ich eine Messagebox ausgeben.
Da aber an der besagten Stelle ein Fehler auftaucht, geht das gleich weiter in den except-Block.
Was könnte ich dagegen tun?