habs hinbekommen
frage mit folgendem code das Letzte Änderungsdatum der Datei ab die vom Scanner erstellt wird wenn das Änderungsdatum nicht um über 1 minute kleiner ist als now wird die Datei übergangen
Delphi-Quellcode:
procedure THauptForm.Timer1Timer(Sender: TObject);
var
i : Integer;
LSrch: TSearchRec;
DirScanEing : String;
DatzuVerarb : String;
begin
VrProgressBar1.Position:=VrProgressBar1.Position+1;
if VrProgressBar1.Position >= 100 then VrProgressBar1.Position:=1;
Timer1.Enabled:=False;
DirScanEing := leseRegValue('ScannerEingang')+'\';
i := FindFirst(DirScanEing + '*.tif', faAnyFile, LSrch);
try
while i = 0 do if (LSrch.Attr and faDirectory) = 0 then
begin
VerzLauf:=0;
(* Überprüfen ob Datei frei ist nicht in Verwendung von anderem Prg
Abfrage des Änderungsdatums weitere Operationen nur wenn Änderungsdatum
< ist wie jetzt mit 1min 5sec *)
if FileDateToDateTime(LSrch.Time) < (Now-0.00075)
then begin
.....