Zugriff auf Dateien, die ein FTP Server "betreut"

**zeras**

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:

zusammenfalten · markieren

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?

Zugriff auf Dateien, die ein FTP Server "betreut"

Zugriff auf Dateien, die ein FTP Server "betreut"

Forumregeln