| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ПРИВЕТ ВСЕМ!!! Как мне зная УРЛ вернуть содержание страницы?

@andrew ©   (2002-06-08 13:39:00) 

Есть на форме TEdit, есть TButton и есть TMemo (или что-нибудь др) Хочу в Edit1 задавать адрес, нажимать на Button1 и получать в Memo1 код страницы (типа View Source) Как мне это сделать?
Спасибо.

---

Song   (2002-06-08 17:00:00) [1]

URLDownLoadToFile()

---

Сатир   (2002-06-08 14:52:00) [2]

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdBaseComponent;


var
Form1: TForm1;
http:TIdHTTP;

procedure TForm1.FormCreate(Sender: TObject);
begin
http:=TIdHTTP.Create(self);
with http do begin
ReadTimeout:=1000000;
protocolVersion:=pv1_1;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
memo1.Lines.Text := HTTP.Get(edit1.text);
end;

---

Наверх