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:

zusammenfalten · markieren

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

zusammenfalten · markieren

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

Du kannst ja mal
ein Listview vwersuchen

markieren

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;

Hallo,

Grid.Items.BeginUpdate/ EndUpdate verwenden.


Heiko

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

Hallo,

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

Heiko

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