THashSHA1 funktioniert nicht mehr in 10.2(.1)?

[Whookie]

Zitat von TiGü:

Vergleich doch mal, ob LFile.Size und Length(TBytes(LFile.Memory)) exakt gleich groß sind.

Das ist ja interessant, die sind tatsächlich unterschiedlich???!

Beispiel:
Dateigröße im System: 296759
LFile.Size: 296759
Length(TBytes(LF..)): 327684

Zitat von TiGü:

Alternativ TBytesStream verwenden? Dann mit LFile.Bytes (von Typ TBytes) übergeben?

Mit TByteStream und

LSHA1.Update(LFile.Bytes, LFile.Size); Scheint es zu funktionieren, auch hier ist

Length(LFiles.Bytes) <> LFile.Size , aber soweit ich das verstehe entspricht Length(LFiles.Bytes) LFiles.Capacity und die kann natürlich größer sein!

Das erklärt dann auch gleich die Zahlen im ersten Fall! Ich nehme sogar an, das im ersten Fall (casten) ein TArray<Byte> erzeugt wird und die Daten dahin umkopiert werden, bevor die Updatemethode aufgerufen wird.

Bleibt noch festzuhalten, dass unter 10.1 die folgende Methode aufgerufen wurde:

Delphi-Quellcode:

procedure THashSHA1.Update(const AData: TBytes; ALength: Cardinal = 0);
var
  Len: Integer;
begin
  if ALength = 0 then
    Len := Length(AData)
  else
    Len := ALength;
  Update(PByte(AData), Len);
end;

Und in 10.2.1 diese:

Delphi-Quellcode:

procedure THashSHA1.Update(const AData; ALength: Cardinal);
begin
  Update(PByte(@AData), ALength);
end;

und mit dem PByte(@AData) greifen wir nicht mehr auf unseren Buffer zu, sondern auf den Speicher wo AData liegt...

[Fritzew]

Ich habe es gerade auch mal durchgespielt, zur Sicherheit auch noch die System.Hash von Tokio ins Projekt
kopiert und zu test.Hash umbenannt .

Berlin und Tokio rufen unterschiedliche Funktionen auf.

Das ist gar nicht schön....

Code:

Berlin: 
   procedure THashSHA1.Update(const AData: PByte; ALength: Cardinal);
 
Tokio: 
 procedure THashSHA1.Update(const AData; ALength: Cardinal);

Wobei beide jetzt gegen test.Hash kompiliert haben.

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