TFileStream.read-> Binärdaten darstellen; Geschwindigkeit

[merovinger]

Hallo Community,

ich bin derzeit dabei, ein Programm zu schreiben, dass eine Datei visuell in Bytes darstellen soll.
Ich lese diese Datei wie folgt aus:

Delphi-Quellcode:

procedure TForm1.Date1Click(Sender: TObject);
var
  fs: TFilestream;
  buf : array of byte;
  l : int64;
  i,j:integer;
begin
  with Opendialog1 do begin
    if Execute then begin
      fs := TFilestream.Create(FileName, fmOpenread or fmShareDenyNone);
      try
        l := fs.Size;
        SetLength(Buf, l);
        fs.Seek(0, soFromBeginning);
        l := fs.Read(buf[0], l);
      finally
        fs.Free;
      end;
    end;
    {.....}
  end;
end;

Im Anschluss möchte ich nun den Buffer visuell darstellen.
Dazu verwende ich derzeit eine TStringGrid

Delphi-Quellcode:

procedure TForm1.Date1Click(Sender: TObject);
var
  fs: TFilestream;
  buf : array of byte;
  l : int64;
  i,j:integer;
begin
    {.......}
    //Form1.byteSG == TStringGrid;

    last := -16; //last wird lediglich verwendet, um den Pointer im Buffer zu steuern
    byteSG.RowCount := ceil((length(buf)-1) / 16)+1;
    for I := 1 to byteSG.RowCount-1 do begin
      last:=last+16;
      byteSG.Cells[0,i] := inttohex(last,8); //linke Spalte der TStrinGrid

      for j := 0 to 16 do begin
        if(last+j <= length(buf)-1) then begin
          byteSG.Cells[1+j,i] := inttohex(buf[i+j],2); //Bytewerte eintragen
        end;
      end;
      application.ProcessMessages;
    end;
end;

Mein Problem ist, dass diese Art der Umsetzung sehr langsam ist.
Bei einer Dateigröße von rund 7MB brauch der PC ca. 13 sec.

Wie kann ich die Darstellung beschleunigen?
Falls eine TStringGrid zur Darstellung ungeeignet/langsam ist, welches Objekt eigent sich besser?


Ich hoffe Ihr könnt mir da weiterhelfen.
Vielen Dank schon mal im Vorraus.

MfG Merovinger

[Bummi]

Du kannst ja mal
ein Listview vwersuchen

Delphi-Quellcode:

   Listview1.ViewStyle := vsReport;
   Listview1.OwnerData := true;
   Listview1.Items.Count := Länge/WasauchImmerDuAufEinmalAnzeigenWillst;

......

procedure TForm2.ListView1Data(Sender: TObject; Item: TListItem);
begin
   Item.Caption := DeineDarstellungDerDaten;
end;

[hoika]

Hallo,

Grid.Items.BeginUpdate/ EndUpdate verwenden.


Heiko

[Bernhard Geyer]

Byteweises einlesen von Dateien.
Auch ein Möglichkeit Zeit zu schinden

[hoika]

Hallo,

es wird ein TFileStream benutzt.
Der liest das nicht byteweise.

Heiko

[Aphton]

Nun du zeigst ja nicht die ganze Datei an sondern nur ein Segment (~500 bytes evt).
Daher solltest du auch nicht alles Laden sondern nur das, was gebraucht wird - das geht dann dementsprechend schneller.

Dabei musst du halt immer beim Scrollen laden usw

[p80286]

Erstell doch einfach einen String aus den 16 Bytes/Zeile diesen String gibst Du dann in einem Tmemo oder TLabel aus oder du nutzt eine Canvas und schreibst mit Textout.

Gruß
K-H

[merovinger]

Vielen Dank schon mal für die ganzen Antworten!

@Bummi
Diese Idee Funktioniert recht gut.
Die ListView erscheint mir nur recht langsam bei dem Prozess, so dass man beobachten kann, wie der Inhalt stets neu aufgebaut wird. Kennst du einen Trick, wie man das umgehen kann?

@p80286
Die Idee hört sich sehr gut an. Mir mangelt es jedoch leider an der Umsetzung. Wie sähe dafür ein Codeschnipsel aus?

@Aphton
Lediglich Teile zu laden, ist auch eine sehr gute Idee. Dies könnte gerade für größere Dateien wichtig werden, damit diese den Arbeitsspeicher nicht überfordern.
Ich werde das im Hinterkopf behalten.

@hoika
Begin/EndUpdate funktioniert recht gut. Die Ladezeit wird auf etwa 3 sec verkürzt. Bei entsprechend größeren Datei natürlich verlängert. Mit einer Kombination mit der Idee von Aphton denke ich, kann man es so sehr gut anstellen.

@Bernhard Geyer
Vor der oben vorgestellten Version hatte ich die Bytes einzelt aus dem Stream gelesen. Diese Option ist enorm langsam. By 7 MB wird ca. eine Minute benötigt.

[Bernhard Geyer]

Zitat von merovinger:

@Bernhard Geyer
Vor der oben vorgestellten Version hatte ich die Bytes einzelt aus dem Stream gelesen. Diese Option ist enorm langsam. By 7 MB wird ca. eine Minute benötigt.

Oh. Hatte das l als 1 interpretiert un die Zeile l := fs.Size; übersehen.

[p80286]

Ich hab da eine ältere Version (stammt noch aus TP-Zeiten) einer Unit für Hex-Darstellung ausgegraben.
Ich denke, da ist die eine oder andere Anregung dabei.

Gruß
K-H