[Uniq!]

Что средствами RAD Studio можно сотворить для выполнения задачи:

Каждые 24 часа сервис должен лезть на сайт ЦБРФ и забирать от туда курс валют, и запихивать его в Таблицу БД.

Сервис? Один раз поставил и забыл.
Или может быть ещё какие технологии вроде Windows "планировщика задач" есть для решения такой задачи?

[Страдалецъ]

Да зачем перегружать систему дополнительными сервисами, как вы и сказали - планировщик для запуска обычного приложения.

[Uniq!]

Сообщение от Страдалецъ

Да зачем перегружать систему дополнительными сервисами, как вы и сказали - планировщик для запуска обычного приложения.

Я почему к сервису больше склоняюсь: бывает такое, что в момент выполнения запланированного запуска программы интернет отсутствует. В итоге обновление курса в БД не происходит.

Сделать запланированное действие раз в час, и в реестре хранить какой-нибудь ключ с информацией о том был ли обновлён курс на сегодняшний день или нет. Тогда всё равно остаётся 60мин, в которых люди не смогут нормально работать.

В конце концов сервис будет висеть на Серверной машине. Я не думаю, что это будет дикий перегруз



Кстати, код для реализации хранения Курса Валют EUR на основе SOAP:
Статья по теме.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

procedure TForm1.GetDailyEUR(Sender: TObject); var   DIS: DailyInfoSoap;   XSDateTime: TXSDateTime;   Res: GetCursOnDateResult;   i: integer; begin   DIS := GetDailyInfoSoap();     XSDateTime := TXSDateTime.Create;   try     XSDateTime.AsUTCDateTime := Now;     Res := GetCursOnDateResult.Create;     try       with TXMLDocument.Create(Application) do         try           Active := True;           DocumentElement := DIS.GetCursOnDateXML(XSDateTime).XMLNode;           SaveToFile('DIS.xml');           for i := 0 to ChildNodes.FindNode('ValuteData')             .ChildNodes.Count - 1 do           begin               if ChildNodes.FindNode('ValuteData').ChildNodes.Nodes[i]               .ChildNodes.FindNode('VchCode').NodeValue = 'EUR' then               Caption := ChildNodes.FindNode('ValuteData').ChildNodes.Nodes[i]                 .ChildNodes.FindNode('Vcurs').NodeValue;           end;         finally           Free;         end;     finally       Res.Free;     end;   finally     XSDateTime.Free;   end; end;

[Freeman]

Забавно, в стандартном планировщике не нашел возможности указать реакцию на ошибку. Если в модных версиях Windows ничего не изменилось, возможность реакции на ошибку -- годный аргумент для написания чего-то своего.

[Bargest]

Еще можно сделать прогу, которая при отсутствии соединения будет уходить в сон на какое-то время (несколько минут) и пробовать снова несколько раз. Тогда эти 60 минут будут уменьшены до времени восстановления инета + несколько минут (в худшем случае).

[NumLock]

Сообщение от Uniq!

Я почему к сервису больше склоняюсь: бывает такое, что в момент выполнения запланированного запуска программы интернет отсутствует. В итоге обновление курса в БД не происходит.

тогда и сервис не сможет обновить данные.
при невозможности обновить данные следует повторять попытки.