Скачивание информации о курсах валют

← →
mefodiy (2007-09-25 15:21) [0]

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

← →
novill © (2007-09-25 15:30) [1]

1.курсы скачиваются так же как, и любой другой документ.
2.достаточно апи функций.
3.Примеров куча.

← →
Anatoly Podgoretsky © (2007-09-25 15:32) [2]

> mefodiy (25.09.2007 15:21:00) [0]

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

← →
Denis_ © (2007-09-25 15:35) [3]

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

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

← →
PZ (2007-09-25 18:24) [4]

Сохранилась копия вопроса и ответа:

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

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("<tr bgcolor=»#ffffff«>",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);
WriteLn(Fout,CnvAnsiToOem("КОЛИЧЕСТВО:")+Copy(Str,1,I-1));
ReadLn(Fin,Str); ReadLn(Fin,Str); ReadLn(Fin,Str); ReadLn(Fin,Str);
I:=Pos(">",Str);
Str:=Copy(Str,I+1,100);
I:=Pos("<",Str);
Str:=Copy(Str,1,I-1);
I:=Pos(",",Str);
If I>0 then Str[I]:=".";
WriteLn(Fout,CnvAnsiToOem("СТОИМОСТЬ :")+Str);
ReadLn(Fin,Str); ReadLn(Fin,Str);
IF Pos("<tr bgcolor=»#ffffff«>",Str)=0 then break;
end;
end;
CloseFile(Fin);
CloseFile(Fout);
ShowMessage(Mess);
end
else
begin
ShowMessage("Файл испорчен! Повторите загрузку еще раз.");
Exit;
end;
end
end;
»

← →
Desdechado © (2007-09-25 19:00) [5]

> информации о курсах валют с сайта банка?
Зависит от того, в каком виде она там выставляется. Может, есть дополнительный web-сервис, работающий, например, по SOAP-технологии. А может в виде RSS...

> Desdechado (25.09.2007 19:00:05) [5]

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

cbr.ru предоставляет информацию в виде XML
Вот здесь можно об этом посмотреть
http://www.cbr.ru/scripts/Root.asp?Prtid=SXML

Скачивание информации о курсах валют Найти похожие ветки