Forum: Programmieren allgemein
Delphi
by TiGü,
24. Aug 2017
Einzige Änderung die ich sehe ist die Hinzunahme von System.Classes in die Uses, aber kann das die Ursache sein? :gruebel:
Forum: Programmieren allgemein
Delphi
by TiGü,
24. Aug 2017
Vergleich doch mal, ob LFile.Size und Length(TBytes(LFile.Memory)) exakt gleich groß sind.
Da hab ich jetzt irgendwie mit einen Auge Unterschiede beim Debuggen gesehen.
Alternativ TBytesStream verwenden? Dann mit LFile.Bytes (von Typ TBytes) übergeben?
Forum: Programmieren allgemein
Delphi
by TiGü,
24. Aug 2017
Also Whookie verwendet diesen Code:
procedure TForm1.Button1Click(Sender: TObject);
Var
LSHA1: THashSHA1;
LFile: TMemoryStream;
begin
if OpenDialog1.Execute then
begin
LFile := TMemoryStream.Create;
Forum: Programmieren allgemein
Delphi
by TiGü,
24. Aug 2017
Nach dem Studium und Vergleich der Quelltexte zwischen Berlin und Tokyo...probiere es mal ab Tokyo so:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Edit1.Text := THashSHA1.GetHashStringFromFile(OpenDialog1.FileName);
end;
end;