Es ist ja schon ein paar Tage her, aber vielleicht ist mittlerweile
dies hier auch nicht uninteressant...
Ich benutze gerade die Umgehung des File Caches für den Vergleich von zwei Dateien.
Das Codegerüst sieht ungefähr so aus:
Delphi-Quellcode:
var i:integer;
DatnameQuelle,DatnameZiel:string;
HQuelle,HZiel:THandle;
BufQuelle,BufZiel:TBytes;
AnzBytesQ,AnzBytesZ:Cardinal;
const K256 = 256 * 1024;
HQuelle := CreateFile(PChar(DatnameQuelle), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_FLAG_NO_BUFFERING, 0);
HZiel := CreateFile(PChar(DatnameZiel), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_FLAG_NO_BUFFERING, 0);
Try
If (HQuelle <> INVALID_HANDLE_VALUE) and (HZiel <> INVALID_HANDLE_VALUE) then begin
Repeat
ReadFile(HQuelle, BufQuelle[0], K256, AnzBytesQ, nil);
ReadFile(HZiel, BufZiel[0], K256, AnzBytesZ, nil);
If (AnzBytesQ <> AnzBytesZ) or not CompareMem(BufQuelle,BufZiel,K256) then begin
break;
end;
until AnzBytesQ < K256;
end;
Finally
FileClose(HQuelle);
FileClose(HZiel);
End;
(Der Wert der Konstante K256 stammt übrigens von
hier, er sorgt auch für die Teilbarkeit durch 512.)
Ich frage mich aber, ist das eigentlich sinnvoll, den Cache hier zu umgehen? In meinem Szenario werden die Dateien nicht nochmal eingelesen, der Cache würde also keinen Vorteil bringen.