FTP-Download in einem Dienst

[Igotcha]

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