s62Из того, что я просмотрел, там все результаты в виде XML как раз и представляются.
Ну если дадите ссылку на XML-файл, в котором есть такая валюта:
VAL_NM_RQ=R01265
NumCode=376
CharCode=ILS
то я буду просто счастлив)
В принципе в Delphi есть специализированные компоненты для работы с веб-службами (закладка WebServices), но я не знаю, как с ними работать.
Используем компонент TNetHTTPClient, например. Надо послать POST запрос, такой, как указано вот тут:
http://www.cbr.ru/DailyInfoWebServ/DailyInfo.asmx?op=GetReutersCursDynamicXML
Выберем, например, SOAP 1.2. Задаем тело запроса такое:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
<?xml version="1.0" encoding="utf-8"?>
<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
<soap12:Body>
<GetReutersCursDynamicXML xmlns="http://web.cbr.ru/">
<FromDate>dateTime</FromDate>
<ToDate>dateTime</ToDate>
<NumCode>int</NumCode>
</GetReutersCursDynamicXML>
</soap12:Body>
</soap12:Envelope>
Даты надо задать в формате YYYY-MM-DD. Код - 376. Задаем свойство NetHTTPClient.ContentType := 'application/soap+xml; charset=utf-8', как указано в описании (я задал через инспектор объектов). Отправляем запрос и выводим ответ для примера в Memo.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
procedure TForm1.Button1Click(Sender: TObject);
var SS: TStringStream;
begin
SS := TStringStream.Create(BodyStr, TEncoding.UTF8);
try
Memo.Lines.LoadFromStream(Client.Post('http://www.cbr.ru/DailyInfoWebServ/DailyInfo.asmx', SS, nil, nil).ContentStream,
TEncoding.UTF8);
finally
SS.Free;
end;
end;
Задал даты как у вас
22398033 , с 11.11.2021 по 19.11.2021. Получил ответ:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<soap:Body>
<GetReutersCursDynamicXMLResponse xmlns="http://web.cbr.ru/">
<GetReutersCursDynamicXMLResult><ReutersValuteData xmlns="">
<VCD><DT>2021-11-11T00:00:00+03:00</DT><val>3.1210</val><dir>0</dir></VCD>
<VCD><DT>2021-11-12T00:00:00+03:00</DT><val>3.1151</val><dir>0</dir></VCD>
<VCD><DT>2021-11-15T00:00:00+03:00</DT><val>3.1047</val><dir>0</dir></VCD>
<VCD><DT>2021-11-16T00:00:00+03:00</DT><val>3.1052</val><dir>0</dir></VCD>
<VCD><DT>2021-11-17T00:00:00+03:00</DT><val>3.0866</val><dir>0</dir></VCD>
<VCD><DT>2021-11-18T00:00:00+03:00</DT><val>3.0822</val><dir>0</dir></VCD>
<VCD><DT>2021-11-19T00:00:00+03:00</DT><val>3.0846</val><dir>0</dir></VCD>
</ReutersValuteData></GetReutersCursDynamicXMLResult>
</GetReutersCursDynamicXMLResponse>
</soap:Body>
</soap:Envelope>
