Datei auslesen

[Kurai-Domi]

hoi, ich hab noch nie mit FileStreams gearbeitet und möchte jetzt eine datei auslesen
Bild der Datei

ich möchte alle einträge des typs LHELxxx einlesen, wie stelle ich das an?

[konda]

Vielleicht hilft dir das weiter:
Stream-Tutorial

[marabu]

Hallo,

ohne weitere Informationen muss der Lesebereich über die Adressen eingeschränkt werden:

Delphi-Quellcode:

procedure ExtractHLEL(fn: TFileName; start, stop: Cardinal; s: TStrings);
var
  len, gap: Cardinal;
  buf: String;
begin
  s.Clear;
  with TFileStream.Create(fn, fmOpenRead or fmShareDenyWrite) do
  try
    Position := start;
    while Position < stop do
    begin
      Read(len, SizeOf(Cardinal));
      SetLength(buf, len);
      Read(buf[1], len);
      s.Add(buf);
      gap := (4 - Position mod 4) mod 4; // dword aligned ?
      Position := Position + gap;
    end;
  finally
    Free;
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu

[Mavarik]

Nicht die klassische Datei für FileStream, oder?

Wie wäre es mit Blockread?

Frank

[Kurai-Domi]

Zitat von konda:

Vielleicht hilft dir das weiter:
Stream-Tutorial

thx! hat mir sehr geholfen

jetzt hab ich aber noch ein problem. nach der stelle 0x03FB ein part kommt mir dem ich überhaupt nichts anfangen kann, ich finde da einfach kein system drin, ab 0x2E3A sind allerdings wieder daten die ich auswerten kann, die stelle ist allerdings in jeder datei von diesem datentyp verschieben, gibts da ne möglichkeit wie man weiter kommt?
(ich hab die datei mit der ich arbeite mal angehängt, vllt könnt ihr ja nen blick drauf werfen)