Hallo zusammen,
ich möchte einen Dienst schreiben, der in regelmäßigen Abständen von einem Server per
FTP (
Indy 9) eine Datei runterlädt.
Ich verwende dazu in meinem Dienst einen Timer und im OnTimer-Event folgenden Code:
Delphi-Quellcode:
Timer1.Enabled := false;
WriteLog('Prüfen auf neue Updates...');
// -----------------------------------------------------
xFTP.Connect(true);
xFTP.Get('version.txt', 'd:\version.txt');
xFTP.Disconnect;
// -----------------------------------------------------
WriteLog('Prüfen auf neue Updates beendet.');
Timer1.Enabled := true;
Ohne die
FTP-Kommandos läuft der Service rund:
Delphi-Quellcode:
07.03.2007 10:28:03: Update-Server:
localhost
07.03.2007 10:28:03: Update-Service started...
07.03.2007 10:28:13: Prüfen auf neue Updates...
07.03.2007 10:28:13: Prüfen auf neue Updates beendet.
07.03.2007 10:28:23: Prüfen auf neue Updates...
07.03.2007 10:28:23: Prüfen auf neue Updates beendet.
07.03.2007 10:28:33: Prüfen auf neue Updates...
07.03.2007 10:28:33: Prüfen auf neue Updates beendet.
07.03.2007 10:28:43: Prüfen auf neue Updates...
07.03.2007 10:28:43: Prüfen auf neue Updates beendet.
07.03.2007 10:28:53: Prüfen auf neue Updates...
07.03.2007 10:28:53: Prüfen auf neue Updates beendet.
07.03.2007 10:28:56: Update-Service stopped.
Mit diesen erhalte ich in der Log-Ausgabe
Delphi-Quellcode:
07.03.2007 10:13:18: Update-Server:
localhost
07.03.2007 10:13:18: Update-Service started...
07.03.2007 10:13:28: Prüfen auf neue Updates...
07.03.2007 10:13:38: Prüfen auf neue Updates...
07.03.2007 10:13:48: Prüfen auf neue Updates...
07.03.2007 10:13:58: Prüfen auf neue Updates...
07.03.2007 10:14:08: Prüfen auf neue Updates...
07.03.2007 10:14:18: Prüfen auf neue Updates...
07.03.2007 10:14:28: Prüfen auf neue Updates...
07.03.2007 10:14:38: Prüfen auf neue Updates...
07.03.2007 10:14:42: Update-Service stopped.
Gruß Igotcha