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?

Zitat von 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?

So wie ich das sehe, holst Du dir Lese- und Schreibrechte. Wie wäre es, wenn du dir nur Leserechte holst? Zum Kopieren brauchst Du bei der vorhandenen Datei schließlich keine Schreibrechte.

Ja, das hatte ich wahrscheinlich übersehen. Ich werde das mal einbauen und schauen, ob die Meldung wiederkommt.

Danke für den Tipp.