Zugriffsfehler bei Kopiervorgang

[Sir Rufo]

@bAlaRk

Um das mit einfachen Mitteln und ohne viel Aufwand zu beheben, mach doch einfach folgendes:

Immer wenn du das Verzeichnis scannst, suche den Dateinamen in einer TStringList .

1. Ist der Dateiname dort nicht vorhanden, dann schreibe diesen dort hinein.
2. Ist der Dateiname dort vorhanden, dann entferne diesen Eintrag und kopiere die Datei.

Wenn du jetzt alle 2 Minuten schaust, dann wird eine neue Datei beim ersten Lauf in die TStringList geschrieben, aber noch nicht kopiert.
Beim nächsten Lauf wird der Dateiname in der TStringList gefunden und folglich erst jetzt kopiert.

Nach 2 Minuten sollte der Upload der Datei per FTP ja wohl erledigt sein und die Häufigkeit der Ausnahmen ist schon mal erheblich verringert.

Das Kopieren selber solltest du auch in einem try .. except Block erledigen.Die Exceptions werden davon gefangen dein Programm bleibt auch nicht hängen.

Delphi-Quellcode:

try
  
  // hier der Code zum Kopieren der Datei

except
  on E: Exception do
    begin
      // hier könnte ein Code sein, um diese Fehlermeldung in einem Log zu speichern
    end;
end;

Es ist natürlich nicht die beste Lösung (wegen Pollen) aber eine für dich leicht umsetzbare und darauf kommt es am Ende immer an

BTW: Es sollte für dein Programm sogar ausreichen, die Exception mit dem try .. except zu fangen

[DeddyH]

Wenn man eh schon pollt, könnte man dann nicht auch die Dateigröße vergleichen? So nach dem Motto: wenn die seit 10 Sekunden unverändert ist, dürfte der Schreibvorgang abgeschlossen sein.

[Sir Rufo]

Zitat von DeddyH:

Wenn man eh schon pollt, könnte man dann nicht auch die Dateigröße vergleichen? So nach dem Motto: wenn die seit 10 Sekunden unverändert ist, dürfte der Schreibvorgang abgeschlossen sein.

Dürfte ist genau richtig aber eben nicht eindeutig, darum ist das Fangen der Exception eh Pflicht und dann kann man es sich auch sparen

[DeddyH]

Zitat von Sir Rufo:

dann kann man es sich auch sparen

Das sehe ich ein wenig anders (jede vermiedene Exception ist eine gute Exception), aber bevor das jetzt ausartet...

[p80286]

Zitat von DeddyH:

Wenn man eh schon pollt, könnte man dann nicht auch die Dateigröße vergleichen? So nach dem Motto: wenn die seit 10 Sekunden unverändert ist, dürfte der Schreibvorgang abgeschlossen sein.

Nach meiner Erfahrung geht das warum auch immer in die Hose,da manche Kopiervorgänge lt. Anzeige im Explorer sehr ungleichmäßig verlaufen.

Gruß
K-H