Problem beim einlesen einer Datei in einen Stream

[Chilled86]

Hi Leute,
hab leider wieder ein kleines Problem. Ich will eine Datei in einen Stream einlesen. Meine Pfadangabe stimmt auf jeden Fall, hab ich bereits gecheckt. Wenn ich es ausführe bekomme ich eine Exception der Klasse ERangeError "Fehler bei Bereichsprüfung". Ich kenne mich mit Streams nicht so gut aus und habe das ganze aus einem Tutorial. Kann mir einer sagen was ich falsch mache?

Delphi-Quellcode:

type
  TDatensatz = record
    ID: integer;
    Name: AnsiString;
  end;
  TDatenArray = array of TDatensatz;




procedure TForm1.Button1Click(Sender: TObject);
var
  Daten: TDatenArray;
  Stream: TStream;
  I: integer;
  Len: LongInt;
begin
  Stream := TFileStream.Create(Sett_QIPPath + '\Users\' + Sett_ICQNumber + '\History\' + HistoryData[2].FileName, fmOpenRead);
  try
    Stream.Read(Len, SizeOf(Len));
    SetLength(Daten, Len);
    for I := 0 to Len - 1 do begin
      Stream.Read(Daten[I].ID, SizeOf(Daten[I].ID));
      Stream.Read(Len, SizeOf(Len));
      SetLength(Daten[I].Name, Len);
      Stream.Read(PChar(Daten[I].Name)^, Len);
    end;
  finally
    Stream.Free;
  end;
  //ShowData(Daten);
end;

[ste_ett]

An welcher Stelle tritt der Fehler auf?

[Chilled86]

Weiß ich nicht genau, wenn ich auf Anhalten gehe, zeigt er mir leider nicht die Stelle an, bei der das ganze passiert.

[CCRDude]

Der Typecast zum PChar erscheint mir etwas umständlich... versuch doch stattdessen mal
[i]Stream.Read(Daten.Name[1], Len);

PS: Warum ist Len ein LongInt und kein LongWord/Cardinal? Erwartest Du negative Zeichenlängen?

PPS: Wenn man mit F7/F8 durchsteppt, merkt man doch, wann der Fehler erscheint

[Chilled86]

Zitat von CCRDude:

Der Typecast zum PChar erscheint mir etwas umständlich... versuch doch stattdessen mal
[i]Stream.Read(Daten.Name[1], Len);

^^ Lässt Delphi und mein Tool crashen... Totalabsturz

Zitat von CCRDude:

PS: Warum ist Len ein LongInt und kein LongWord/Cardinal? Erwartest Du negative Zeichenlängen?

Stimmt auch wieder

Zitat von CCRDude:

PPS: Wenn man mit F7/F8 durchsteppt, merkt man doch, wann der Fehler erscheint

Hier stürzt das Teil ab
SetLength(Daten, Len);
***EDIT***
SizeOf gibt einen SmallInt zurück, kanns sein dass der zu klein is? Wenn ja, wie kann ich das denn anders lösen?

[TeronG]

Hab mit Streams auch noch net so viel gemacht aber evtl. isses ja nur:

var
Stream: TStream;
begin
Stream := TFileStream.Create(....);



BTW: hab mal gelesen, daß man aus gründern der Kompatibilität keine Generischen Typen Speichern soll. (Integer = Generisch -> nicht in jeder Delphiversion gleich)

EDIT: BTW: Sind die roten Kästen deaktiviert!?

[Gruber_Hans_12345]

Zitat von Chilled86:

Hier stürzt das Teil ab
SetLength(Daten, Len);

dann zeig dir mal den eingelesenen wert von Len an, ich vermute mal, das Len ein ungültiger wert ist (kleiner 0 oder viel zu groß)

[CCRDude]

Da TFileStream ein Enkel von TStream ist, dürfte das eigentlich kein Problem bedeuten.

Stream.Read(stringvariable[1], stringlaenge) benutze ich vielfach problemlos.

SizeOf(was?) gibt einen SmallInt zurück?

Zitat von TeronG:

BTW: hab mal gelesen, daß man aus gründern der Kompatibilität keine Generischen Typen Speichern soll. (Integer = Generisch -> nicht in jeder Delphiversion gleich)

Könnte ein Problem ergeben, sobald es einen Delphi-Compiler für 64 bit gibt. Dummerweise ist das noch in weiter Ferne Aber stimmt, daran sollte man jetzt schon denken.

Zitat von Chilled86:

Hier stürzt das Teil ab
SetLength(Daten, Len);

Was sagen denn die lokalen Ausdrücke (oder die Watch), wie groß Len zu diesem Zeitpunkt ist? Wenn es negativ wäre, wäre das ein guter Grund für den Fehler bei der Bereichsprüfung (siehe auch zwischenzeitlich erschienener anderer Beitrag).

Warum aber bei Dir SizeOf(Len) = SizeOf(SmallInt) und nicht SizeOf(LongInt) (wenn ich das jetzt richtig verstanden habe) kann ich auch nicht beantworten

[Chilled86]

Zitat von Gruber_Hans_12345:

dann zeig dir mal den eingelesenen wert von Len an, ich vermute mal, das Len ein ungültiger wert ist (kleiner 0 oder viel zu groß)

Len ist 757935405

[lizardking]

    Stream.Read(Len, SizeOf(Len)); An der Stelle sollte es eigentlich schon knallen. Versuch mal

    Stream.Read(@Len, SizeOf(Len));