Binärdatei mit TFileStream auslesen

[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

[litsa]

Hallo!

Ich bin jetzt soweit dass ich Daten mit TFileStream ausgelesen bekomme, die schauen aber nicht so aus wie sie sollten! Mit dem array [0..maxbuff] of byte weiss ich ehrlich gesagt nicht wie ich die Werte auslesen soll.

Ich habe ja 2 functions, einmal für die Uhrzeit und einmal für den Wert. Die Binärdatei ist so aufgebaut, dass für jede Minute eines Tages 350 Werte gespeichert werden. Ich muss also jedesmal den ersten Wert als Uhrzeit speichern, dann die 350 Werte und das ganze 24*60*60 Mal.

Aber schon bei der Uhrzeit bekomme ich keine korrekte Daten heraus, bzw. nicht alle:

Delphi-Quellcode:

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

function ZWert(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;
    ZWert := w/100;
end;

function ZTime(ld: TDatensatz): String;
var w, s, m: longint;
begin
  w := ld.LH * 256 + ld.LL;
  s := Trunc(w/100);
  m := w - s * 100;
  if (s > -1) and (s < 24) and (m > -1) and (m < 60) then
    ZTime := IntToStr(s) + ':' + IntToStr(m)
  else
    ZTime := '--:--';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FS, Uhrzeit, Wert: String;
  lDatensatz: TDatensatz;
  lStream: TFileStream;
  pList: TStringList;
begin
  pList := TStringList.Create;
  FS := '100322.MIN';
  if (not FileExists(FS)) then Exit;
  while (lStream.position + SizeOf(lDatenSatz)) <= lStream.size do
    begin
      lStream.Read(lDatenSatz, SizeOf(lDatenSatz));
      Uhrzeit := ZTime(lDatenSatz);
      if not (Uhrzeit = '--:--') then
        begin
          Memo2.Lines.Add(Uhrzeit);
          pList.Add(IntToStr(lStream.position)); //Pos. der Uhrz. speichern
        end;
    end;
  //hier dann Werte auslesen
  lStream.Free;
  pList.Free;
end;

Wenn ich dann nochmal die Binärdatei nach den gespeich. Positionen durchsuche, um die 350 Werte zu finden kommt dabei auch nur Käse raus! Lese ich die Bytes falsch in die Datensätze ein?

Danke, Eva

[SirThornberry]

@xzise: folgendes dürfte nicht funktionieren:

Delphi-Quellcode:

procedure ShowBinary(var Data; Count: Cardinal; FileName : string); 
var
  s : TStream;
begin
  s := TFileStream.Create(FileName, fmCreate);
  try
    s.Write(@Data, Count);
  finally
    s.Free;
  end;
end;

explizit die Zeile s.Write(@Data, Count); Write erwartet eine Referenz und keinen Pointer. Durch ein vorangestelltes @ wird die Adresse auf die Data Variable geschreiben + die Daten die dahinter im Speicher liegen. (falls es überhaupt kompiliert)

[Sir Rufo]

Wieso definierst du dein Record nicht wie folgt

Delphi-Quellcode:

Type
  TDatensatz = packed record // Größe = 1404 Bytes
    RawUnkn : word; // 2 Byte (diese Daten wertest du nicht aus, also mir unbekannt, was die bedeuten
    RawTime : word; // 2 Byte
    RawData : Array[ 0..349 ] of integer; // 350* 4 Bytes
    Function TimeStr : string;
    Function Data( Index : integer ): double;
  end;

{...}

function TDatensatz.TimeStr : string;
  begin
    Result := Format( '%d:%d', [ RawTime div 100, RawTime mod 100 ] );
  end;

function TDatensat.Data( Index: integer ) : double;
  Begin
    Result := RawData[ Index ] / 100;
  end;

{...}

var
  ds : TDatensatz;

// Prüfen ob die Recordgröße stimmt, denn dann ist die Dateigröße ein ganzes Vielfaches von der Recordgröße
if fs.Size mod SizeOf( ds ) = 0 then

// Auslesen des aktuellen Records aus der Datei
fs.Read( ds, SizeOf( ds ) );

[xZise]

Moin SirThornberry,
stimmt das ergibt Sinn, ich dachte Write erwartet einen Pointer, aber Gegenvorschlag einfach das @ wegnehmen?

Delphi-Quellcode:

procedure ShowBinary(var Data; Count: Cardinal; FileName : string); 
var
  s : TStream;
begin
  s := TFileStream.Create(FileName, fmCreate);
  try
    s.Write(Data, Count);
  finally
    s.Free;
  end;
end;

MfG
Fabian