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:

DC-Hochleistungsformat

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:

zusammenfalten · markieren

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?

Schon wieder der gleiche Fehler:
Aus
F.ReadBuffer(Pointer(Result)^, aStrLen); Würde ich das:
F.ReadBuffer(Result[1], aStrLen); draus machen.

Hi,

habs jetzt so gebaut:

zusammenfalten · markieren

Delphi-Quellcode:

function TfDoc.ReadStringFromStream(F: TStream): string;
var
  aStrLen: Integer;
  Len: Cardinal;
begin
  Len := F.Size;
  F.ReadBuffer(aStrLen, Len);
  SetLength(Result, aStrLen);
  if aStrLen > 0 then
    F.ReadBuffer(Result[1], aStrLen);
end;

Jetzt stürzt das Programm ohne irgendeine Fehlermeldung ab. Geht einfach zu.

[edit]
Wenn du editiert, dann mach ich das auch . Wenn ich das wieder so schreibe:

markieren

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(Result[1], aStrLen);
end;

Gehts zwar immernoch nicht, aber es kommt wieder der Stream-Lesefehler

[/edit]