Eine byteweise Verarbeitung ist extrem langsam ... ließ ganze Blöcke aus und vergleiche diese z.B. mit CompareMemory deren Inhalt.
Jedesmal Seek aufzurufen ist auch unnötig, da Read den Positionszeiger schon verschiebt.
Read ohne Auswerten des Rückgabewertes zu verarbeiten ist nicht gut, da Lesefehler irgnoriert werden könnten. (verwende besser ReadBuffer oder werte das Result aus)
Ansonsten sollten schon einige Codes dafür in der
DP existieren
(Einer ist z.B. in meinem
SearchSameFiles verbaut)
Und eigentlich dürfte bestimmt auch Einer in der CodeLib zu finden sein.
[edit] jupp, ist gleich der 11. Eintrag in "Dateien / Laufwerke"
http://www.delphipraxis.net/internal...ct.php?t=60645
Die Fehlerbehandlung ist sehr schlecht, denn wann werden die Streams freigegeben, wenn eine
Exception auftritt oder wenn die Dateigrößen unterschiedlich sind? (garnicht)