Hm,
ich würde es anders machen. Ich hoffe ich erzähle keinen Mist
Also. Mit Blockread kann man (so weit ich weiß) alle Dateitypen einlesen. Somit auch Bilder. Das würde in etwa so aussehen:
Delphi-Quellcode:
var
datei1,datei2: file;
NumRead1, NumRead2: Integer;
Buf1, Buf2: byte;
aufhoeren: boolean;
begin
aufhoeren:=false;
AssignFile(datei1,'Pfad1');
Reset(datei1, 1);
AssignFile(datei2,'Pfad2');
Reset(datei2, 1);
repeat
BlockRead(datei1, Buf1, SizeOf(Buf1), NumRead1);
BlockRead(datei2, Buf2, SizeOf(Buf2), NumRead2);
if Buf1<>Buf2 then
begin
aufhoeren:=true; //ganze Prozedure abbrechen
end;
until eof(datei1) or eof(datei2) or (aufhoeren=true);
closefile(datei1);
closefile(datei2);
end;
Der ganze Code ist ungetestet. Mit blockread wird jedes Byte eingelesen und verglichen. Wenn der 1. Unterschied auftritt, wird alles abgebrochen, da es sonst unsinnig wäre, weiter zu suchen.
Ich hoffe mal, alles was ich erzählt habe ist wahr
.