TFileStream: Binäre datei lesen und hex als string anzeigen

[Pseudemys Nelsoni]

hi,

kann mir einer sagen was an folgendem falsch ist? (ja ich weiss das es schwachsinnig aussieht *g*...):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  e, b: char;
begin
  fs := TFileStream.Create('C:\datei', fmOpenRead);
  try
    while fs.Position <= fs.Size-1 do
    begin
      fs.Read(b, 1);
      BinToHex(pchar(b), pchar(e), sizeof(b));
      memo1.Text := memo1.Text + e;
    end;
  finally
    fs.Free;
  end;
end;

ich bekomme immer eine access violation.

ich möchte die datei in einem memo anzeigen (bzw die hexwerte)... also sowas wie FF...usw

[Luckie]

Na meine Seite ( http://www.luckie-online.de/Delphi/S...HexLoader.html ) noch nicht in den Favoriten drinne?

[Pseudemys Nelsoni]

danke luckie, der code sieht perfekt aus

seite hatte ich in den favoriten, aber habe bis jetzt immer nur auf die api tuts geachtet

[Luckie]

Na dann merk dir mal, dass es da noch andere nette Dinge gibt.

[Pseudemys Nelsoni]

Werd ich machen =)

[Robert_G]

Zitat von Pseudemys Nelsoni:

Werd ich machen =)

Dann werfe am besten gleich mal einen Blick auf Luckies Artikel zum Thema CodeDesign.

[jim_raynor]

Folgendes ist sehr Performance lastig:

Delphi-Quellcode:

 while fs.Position <= fs.Size-1 do
    begin
      fs.Read(b, 1);

Bei fs.Size wird jedes mal an das Ende der Datei gesprungen und anschliessend an die aktulle Stelle zurück. Die Funktion Read gibt die Anzahl der gelesenen Bytes zurück. Das ganz du ausnutzen:

Delphi-Quellcode:

 while (fs.Read(b, 1)<>0) do
    begin

Deine Access-Violation liegt daran, dass du einen Char nicht so in einen PChar konvertieren kannst.

Am besten du nutzt ganz einfach StrToHex:

e:=StrToHex(Integer(b),2) dann muss aber e als String definiert werden.