Ich habe einen
FTP Server auf meinem Rechner (XP) installiert. Die Dateien in den Pfaden überwache ich mit einem Delphiprogramm. Da man ja auf offene Dateien nicht zugreifen kann, habe ich folgende Funktion im Netz gefunden und ein wenig angepaßt:
Delphi-Quellcode:
function FileInUse(const FileName: String): boolean;
var
HFileRes : HFILE;
begin
Result := false;
if not FileExists(FileName) then exit;
HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
Result := (HFileRes = INVALID_HANDLE_VALUE);
if not Result then CloseHandle(HFileRes);
end;
Ich prüfe mit der Funktion, ob die Datei nicht genutzt wird und dann kopiere ich mir diese auf einen anderen Pfad, um diese dann auszuwerten.
Trotzdem erscheint manchmal eine Windowsmeldung, dass der Zugriff auf die Datei nicht geklappt hat.
Oder hat jemand eine andere Idee, solche Dateien auszuwerten?