Binärdatei mit TFileStream auslesen

[wicht]

Hast du diese Datei geschrieben? Oder eine Beschreibung des Formats? Kannst du Beispieldaten posten?

Edit: Der rote Kasten macht wohl gerade Mittag...

[litsa]

Danke für die Antworten.

Der Code mit TFileStream sieht so aus:

Delphi-Quellcode:

type
  TDatensatz = packed record
  HH, HL, LH, LL: Byte;
end;

function wert(ld: TDatensatz): Double;
var w: Double;
    v: boolean;
begin
  if ld.HH > 128 then
    begin
      ld.HH := ld.HH -128;
      v := True;
    end
    else v := False;
    w := (ld.HH * 256 * 256 * 256) + (ld.HL * 256 * 256) + (ld.LH * 256 + ld.LL);
    if v = true then w := w -2147483648;
    wert := w/100;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,k: integer;
  lDatensatz: TDatensatz;
  lStream : TFileStream;
begin
  k := -1;  //Anzahl Datensätze
  lStream := TFileStream.Create('100322.MIN', fmOpenRead);
  try
    while not EOF do
      begin
        lStream.Read(lDatenSatz, SizeOf(lDatenSatz)); //Daten einlesen
        k := k + 1;
      end;
        Edit1.Text := INtToStr(k); //Anzahl anzeigen
    for i := 1 to k do
      StringGrid1.Cols[4].Add(FloatToStr(wert(lDatenSatz))); //function wert
  finally
    lStream.Free;
  end;
end;

Hier bekomme ich einen I/O Error.

Zu der Binary: diese wird aus einem Programm erstellt, mir ist bekannt welche Daten ich brauche. Die Dateien sind über 1MB groß, anbei ein Beispiel.

Zitat:

Edit: Der rote Kasten macht wohl gerade Mittag...

Sorry ich verstehe nicht was Du damit meinst... Ist das für mich gedacht?

Danke, Eva

[xZise]

Moin Eva,
das Problem ist die Methode "EOF" oder was auch immer das ist. Woher weiß die das der Stream damit gemeint ist? Ich weiß nicht ob es TStream.EOF gibt, aber ansonsten kannst du auch testen:
while (stream.position + SizeOf(<dein record>) < stream.size) do

Zitat von litsa:

[...]

Zitat:

Edit: Der rote Kasten macht wohl gerade Mittag...

Sorry ich verstehe nicht was Du damit meinst... Ist das für mich gedacht?[...]

Die Redbox oder der rote Kasten erscheint (normalerweise), wenn jemand zwischenzeitlich was geschrieben hat, um seinen Post anzupassen. Aber manchmal halt nicht, und dann kommen solche Kommentare dabei raus Also nein es ist keiner gemeint.

MfG
Fabian

[Progman]

Und warum nicht File of Byte? Ist zwar etwas veraltet, aber funktioniert

Delphi-Quellcode:

...
var TestFile: File of Byte;
...
procedure ReadTestFile(fileName: String);
var b: Byte; s: String;
begin
  AssignFile(TestFile,fileName);
  Reset(TestFile);
  s:='';
  while not EoF(TestFile) do begin
    Read(TestFile,b);
    s:=s+Char(b);
  end;
  CloseFile(TestFile);
end;

Statt einem String könnte man auch in ein Array of Char einlesen. Dessen Größe müsste vorher mit
SetLength(Array, FileSize(TestFile); gesetzt werden.

[p80286]

Zitat von Progman:

Und warum nicht File of Byte? Ist zwar etwas veraltet, aber funktioniert

entschuldige Progman, aber noch schlimmer geht doch kaum, Byte für Byte auslesen ist ja beinahe wie Buchstaben meißeln.

Jeder bevorzugt ja seine eigene Vorgehensweise, darum ist das nicht der Weisheit letzter Schluß:

Delphi-Quellcode:

const
  maxbuff=1023;
var
  buffer   : array [0..maxbuff] of byte;
  fs       : tFileStream;
  bytesred : integer;


fs:=Tfilestream.create(meinedatei,meineparameter);
repeat
  bytesred:=fs.read(buffer,sizeof(bugffer));
  { tu was mit buffer }
until bytesred<>sizeof(buffer);
fs.free;

Nichts spricht dagegen statt buffer/array..of byte z.B. Buffer/array of tDatetime zu verwenden, dann könnten die Daten schon verarbeitungsfertig vorliegen.
Wenn man als Typen ein selbstdefiniertes Record nutzen will sollte man aber auf packed achten, damit keine Daten verloren gehen.

Gruß
K-H

Gruß
K-H

[Progman]

Zitat von p80286:

Zitat von Progman:

Und warum nicht File of Byte? Ist zwar etwas veraltet, aber funktioniert

entschuldige Progman, aber noch schlimmer geht doch kaum, Byte für Byte auslesen ist ja beinahe wie Buchstaben meißeln.

Jeder bevorzugt ja seine eigene Vorgehensweise, darum ist das nicht der Weisheit letzter Schluß:

Es war nur als Möglichkeit angegeben. Ich nutze die Methode, wenn ich relativ kleine Binärdateien (z.B. Beschreibung und Inhalt eines ein- oder zweidimesionalen Arrays) zu speichern und wieder einzulesen habe. Da wäre TFileStream ja wie mit Kanonen auf Spatzen schießen *g*

[p80286]

Und mir kommt nichts anderes mehr in den Source. Die richtige Datenstruktur als Buffer, und schon ist alles da wo es hingehört.

Jeder wie es ihm beliebt, solange es gut klappt.
(versuch es trotzdem mal)

Gruß
K-H