THashSHA1 funktioniert nicht mehr in 10.2(.1)?

[TiGü]

Aber an den Update-Methoden wurde ja laut meinen Beyond-Compare zwischen \18.0\source\rtl\common\System.Hash.pas und \18.0\source\rtl\common\System.Hash.pas nix geändert?

Sicher das ihr euch da nicht irrt?
procedure Update(const AData: TBytes; ALength: Cardinal = 0); overload; inline; ist ja INLINE deklariert und wird dadurch vom Debugger gar nicht angesprungen?

[TiGü]

Einzige Änderung die ich sehe ist die Hinzunahme von System.Classes in die Uses, aber kann das die Ursache sein?

[gammatester]

Zumindest bei kleinen Files bringt LSHA1.Update(LFile.Memory^, LFile.Size) das richtige Ergebnis. Kann aber Zufall sein, daß die Größe paßt, also besser mit Original-Filegröße.

[TiGü]

Zitat von gammatester:

Zumindest bei kleinen Files bringt LSHA1.Update(LFile.Memory^, LFile.Size) das richtige Ergebnis. Kann aber Zufall sein, daß die Größe paßt, also besser mit Original-Filegröße.

Wahrscheinlich wird alles kleiner als BUFFERSIZE = 4 * 1024; Bytes funktionieren.
Wer die Konstante in der Tokyo-System.Hash-Unit findet, darf sie behalten.

[gammatester]

Für Filesize=1000000 funktioniert's jedenfalls noch. Es wäre doch ein noch schwererer 'Bug', wenn die Größen (von File und Stream) wirklich von einander abweichen. Von der Hilfe her (habe leider keinen Quellcode), bleibt dem Compiler IMO gar nichts anderes übrig. Vielleicht hat sich die Compiler-Magic im Vergleich zu Berlin geändert.

[Der schöne Günther]

Ich verstehe nicht warum ihr euch das mit untypisierten Zeigern überhaupt antut. Warum nicht einfach ein TBytesStream , dessen Bytes nehmen und fertig?

PS: Bytes noch auf die entsprechende Länge einkürzen

PPS: Oder direkt einfach mit einem Byte-Array, ganz ohne Stream:

Delphi-Quellcode:

uses System.IoUtils;

procedure TForm1.Button1Click(Sender: TObject);
Var
   LSHA1: THashSHA1;
   payload: TBytes;
begin
   if OpenDialog1.Execute() then
      begin
         payload := TFile.ReadAllBytes(OpenDialog1.FileName);
         LSHA1 := THashSHA1.Create();
         LSHA1.Update(payload);
         Edit1.Text := LSHA1.HashAsString();
      end;
end;

[Whookie]

Zitat von Der schöne Günther:

Ich verstehe nicht warum ihr euch das mit untypisierten Zeigern überhaupt antut. Warum nicht einfach ein TBytesStream , dessen Bytes nehmen und fertig?

(Bei mir) zum größten Teil aus historischen Gründen, never change running code ...

Ich habe das jetzt auch auf TBytesstream umgestellt und dabei dann im System.Classes Source Code ein verrschrecktes

  end; // deprecated 'Use TBytesStream'; bei der Klassendeklaration entdeckt , aber Grund dafür warum man das Compilerverhalten einfach so ändert das der alte Code nicht mehr funktioniert (und auch noch still und heimlich Unsinn treibt) sehe ich trotzdem keinen.