Forum: Programmieren allgemein
by fux75,
3. Apr 2020
Ich kann momentan auch nicht erklären, was mit dem Originalcode nicht funktioniert. Meine ersten Gedanken gingen in Richtung Integerüberlauf oder ein Problem durch 32-64 Bit Integer. Uwes Blogpost ist ursprünglich von 2017. Ich habe mehrere Stunden damit zugebracht, die vermuteten Probleme zu bestätigen. Leider war ich damit nicht erfolgreich. Der Code sollte genau so funktionieren, wie Uwe...
Forum: Programmieren allgemein
by fux75,
31. Mär 2020
Hallo WiPhi,
Ich bin auf genau das selbe Problem gestoßen. Allerdings ging es bei mir um viele kleine Dateien.
Wie du auch, vermutete ich das Problem im Seek des TDecryptStream.
Ich habe die Implementierung folgendermaßen angepasst:
function TDecryptStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
var