THashSHA1 funktioniert nicht mehr in 10.2(.1)?

[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.