Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Скачивание информации о курсах валют [D7, WinXP]

mefodiy © (2007-09-25 15:21:00)
Как можно организовать автоматическое (например, по нажатию кнопки) скачивание информации о курсах валют с сайта банка? Что для этого нужно со стороны банка (помимо сайта и собственно информации о курсах)? Нужны ли для этого какие-либо дополнительные компоненты для Дельфи?
Просьба поделиться информацией, у кого она есть.

Prohodil Mimo (2007-09-26 01:54:00) [1]
Anatoly Podgoretsky © (25.09.07 19:30) [6]

так вроде только главный банк и должен предоставлять эту информацию.

palva (2007-09-25 21:07:00) [2]
cbr.ru предоставляет информацию в виде XML
Вот здесь можно об этом посмотреть
http://www.cbr.ru/scripts/Root.asp?Prtid=SXML

Anatoly Podgoretsky (2007-09-25 19:30:00) [3]
> Desdechado (25.09.2007 19:00:05) [5]

Вроде некоторые банки предоставляют такую информацию в удобоваримом виде, именно для этой цели, центробанк точно.

Desdechado (2007-09-25 19:00:00) [4]
> информации о курсах валют с сайта банка?
Зависит от того, в каком виде она там выставляется. Может, есть дополнительный web-сервис, работающий, например, по SOAP-технологии. А может в виде RSS...

PZ (2007-09-25 18:24:00) [5]
Сохранилась копия вопроса и ответа:

«
Приветствую, Мастера!
Есть некоторая программа, которой позарез требуется курс нескольких валют. Как сделать так, чтобы по определенному
событию программа лезла в интернет и доставала их оттуда? Заранее благодарен.

SlyFox © (12.11.04 14:50)

Когда то давным давно делал вот так. Качается страница с курсами c cbr.ru, парсится и выводится все это в файл. Код под
себя уж сам адаптируй.

procedure TForm1.XPSpeedButton2Click(Sender: TObject);
var
Fin, Fout: TextFile;
Dat,Str,OutF,Mess: String;
I: Integer;
sr: TSearchRec;
begin
Mess:='';
OutF:='curs.htm';
NMHTTP1.InputFileMode:=True;
NMHTTP1.Body:=OutF;
NMHTTP1.Get(' http://www.cbr.ru/currency_base/D_print.asp?date_req='+date1);
begin
if FindFirst(OutF,faReadOnly,sr)=0 then
begin
AssignFile(Fin, OutF);
Reset(Fin);
AssignFile(Fout, '\curs.txt';
Rewrite(Fout);
Str:='';
While Pos('',Str)=0 do
begin
ReadLn(Fin,Str);
I:=Pos('установил с ',Str);
if I>0 then Dat:=Copy(Str,I+12,10);
end;
While not EOF(Fin) do
begin
ReadLn(Fin,Str);
I:=Pos('>',Str);
if (Copy(Str,I+1,3)='810') or (Copy(Str,I+1,3)='978') then
begin
WriteLn(Fout,CnvAnsiToOem('ФОНД :')+Copy(Str,I+1,3));
WriteLn(Fout,CnvAnsiToOem('ДАТА :')+Copy(Date1,1,2)+'.'+Copy(Date1,4,2)+'.'+Copy(Date1,7,4));
ReadLn(Fin,Str);
ReadLn(Fin,Str);
I:=Pos('>',Str);
Str:=Copy(Str,I+1,100);
I:=Pos('',Str);
Str:=Copy(Str,I+1,100);
I:=Pos('

Denis_ (2007-09-25 15:35:00) [6]

> например, по нажатию кнопки

Обрабатываешь OnClick и скачиваешь то, что тебе нужно.

Anatoly Podgoretsky (2007-09-25 15:32:00) [7]
> mefodiy (25.09.2007 15:21:00) [0]

Все необходимые компоненты есть в составе.

novill (2007-09-25 15:30:00) [8]
1.курсы скачиваются так же как, и любой другой документ.
2.достаточно апи функций.
3.Примеров куча.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »