Einzelnen Beitrag anzeigen

mytbo

Registriert seit: 8. Jan 2007
461 Beiträge
 
#7

AW: Konzeptfrage: Aufgabe einmal am Tag ausführen

  Alt 14. Nov 2022, 20:17
ich habe einen in Delphi geschriebenen Server und dieser soll einmal am Tag auf einem anderen Server prüfen, ob eine Datei vorhanden ist und diese ggf.
Du hast nicht erwähnt, mit welcher Library der Server erstellt wurde. Die mORMot REST-Server haben dafür einen Mechanismus implementiert. Damit reicht folgender Quelltext:
Delphi-Quellcode:
var
  timer: TRestBackgroundTimer;
begin
  timer := TimerEnable(DownloadFile, 60 * 60 * 24);
  if timer <> Nil then
    timer.ExecuteNow(DownloadFile);
end;

procedure ...DownloadFile(pmSender: TSynBackgroundTimer; const pmcMsg: RawUtf8);
var
  content: RawByteString;
begin
  content := HttpGet(URL);
  ...
end;
Man kann die Klasse TSynBackgroundTimer auch eigenständig verwenden.

Bis bald...
Thomas
  Mit Zitat antworten Zitat