17.08.2007, 15:50
общий
это ответ
Здравствуйте, Ибрагимов Дмитрий Владимирович!
В каком смысле другие котировки? Посмотрите код в приложении - он скачивает страницу http://quote.ru и сохраняет ее на диск. После загрузки можете "разобрать" TStringList для сохранения нужных котировок. Пример этого (программа показывает курсы валют) присоединен к ответу.
Приложение:
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DateUtils, StdCtrls, idHTTP, Menus, ExtCtrls,Clipbrd, ComCtrls,INIFiles;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; HTTP: TIdHTTP;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var S: TStringList; P,I: integer; USD,EUR,AFS,pM,pP: string;begin HTTP:=TIdHTTP.Create(nil); HTTP.HandleRedirects:=True; HTTP.ProtocolVersion:=pv1_0; HTTP.ProtocolVersion:=pv1_0; S:=TStringList.Create; S.Text:=HTTP.Get(‘http://quote.ru‘); HTTP.Free; s.SaveToFile(‘123.html‘);end;end.