Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2008.07.27;
Скачать: [xml.tar.bz2];

Вниз

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

 
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=&raquo;#ffffff&laquo;>",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=&raquo;#ffffff&laquo;>",Str)=0 then break;
    end;
  end;
  CloseFile(Fin);
  CloseFile(Fout);
  ShowMessage(Mess);
       end
       else
       begin
  ShowMessage("Файл испорчен! Повторите загрузку еще раз.");
  Exit;
       end;
end
end;
&raquo;


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

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


 
Anatoly Podgoretsky ©   (2007-09-25 19:30) [6]

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

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


 
palva ©   (2007-09-25 21:07) [7]

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


 
Prohodil Mimo ©   (2007-09-26 01:54) [8]

Anatoly Podgoretsky ©   (25.09.07 19:30) [6]

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



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2008.07.27;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.012 c
2-1214300224
qwert
2008-06-24 13:37
2008.07.27
Запуск *,exe


6-1190719291
mefodiy
2007-09-25 15:21
2008.07.27
Скачивание информации о курсах валют


11-1188808520
Nikfel
2007-09-03 12:35
2008.07.27
Отображение системного контекстного меню эксплорера.


2-1214278389
АндрейК
2008-06-24 07:33
2008.07.27
работа с ecxel: ошибка Lock file has grown too large


2-1214340173
lewka-serdceed
2008-06-25 00:42
2008.07.27
оперции с числами





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский