FileStream to Buffer

[HPW]

Hallo,

Ich habe folgenden Code der schon tut was er soll.
Die Funktion HashBuf erwartet einen Buffer und meine Daten kommen aus einem Stream.
Ist der Code so in Ordnung oder gibt es andere (bessere) Methoden?

Code:

procedure TForm1.Button7Click(Sender: TObject);
 var
   DestStr : String;
   FStream : TFileStream;
   Size    : Integer;
   Buffer  : TBytes;
begin
 FStream := TFileStream.Create(Edit3.Text,fmOpenRead);
 Size    := FStream.Size;
 SetLength(Buffer, Size);
 FStream.ReadBuffer(Pointer(Buffer)^, Size);
 HashBuf( HASH_SHA256, Buffer , Size , DestStr );
 Edit2.Text := DestStr;
 FStream.Free;
end;

Grüsse,
Hans-Peter

[Andreas13]

Hallo Hans-Peter,
es ist wichtig, den PositionsZeiger des Streams vor dem Lesen immer auf die Startposition zu setzen:

Delphi-Quellcode:

FStream.Position:= 0;

Sonst fängt es bei einer undefinierten (zufälligen) Position an, zu lesen.
Gruß, Andreas

[HPW]

Hallo,

Danke für den Hinweiss.

Sonst ist die Methode die richtige?

Grüsse,

Hans-Peter

[himitsu]

Delphi-Quellcode:

Position:=0;

ist hier nicht nötig, da nur einmal gelesen wird und zu Beginn, nach dem Create, die Position immer auf 0 steht. (außer beim Append)

Ja, geht so, so lange die Datei klein genug ist und immer in deinen virtuellen Speicher (2 GB) passt, sonst muß der Buffer kleiner sein und die Datei stückchenweise eingelesen werden.

Warum hast du keinen Ressourcenschutzblock verbaut?

Und ansonsten gibt es auch Streams, welche direkt einen "Buffer" eingebaut haben,
wie z.B. TMemoryStream und TBytesStream (ich glaub erst ab D2009 oder so).

Delphi-Quellcode:

// falls man HashBuf auch mit einem Pointer füttern kann, anstatt TBytes
FStream := TMemoryStream.Create;
try
  FStream.LoadFromFile(Edit3.Text);
  HashBuf(HASH_SHA256, FStream.Memory, FStream.Size, DestStr);
  Edit2.Text := DestStr;
finally
  FStream.Free;
end;

Und wie immer die Frage, warum so ein altes Delphi?
Denn THashSHA2 und

Delphi-Quellcode:

Edit2.Text := THashSHA2.GetHashStringFromFile(Edit3.Text);

.

[HPW]

Hallo,

Nochmal Danke für den Tip.

>>Warum hast du keinen Ressourcenschutzblock verbaut?

Das hatte ich gestern auch schon nachträglich eingebaut.

Den TMemorystream-Tip finde ich dann auch noch viel eleganter als meinen Code. Werde testen ob die Hash Funktion das unterstützt.

D7 ist notwendig weil es um die Pflege eines umfangreichen Alt-Systems handelt, welches nicht mehr umgetellt werden soll/kann.
Tot-gesagte leben halt länger! ;-)

Grüsse,

Hans-Peter

[HPW]

Hallo,

>>Den TMemorystream-Tip finde ich dann auch noch viel eleganter als meinen Code. Werde testen ob die Hash Funktion das unterstützt.

Hat funktioniert! ;-)

Grüsse,
Hans-Peter