Форум: "Основная";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];
ВнизПРИВЕТ ВСЕМ!!! Как мне зная УРЛ вернуть содержание страницы? Найти похожие ветки
← →
@andrew (2002-06-08 13:39) [0]Есть на форме TEdit, есть TButton и есть TMemo (или что-нибудь др) Хочу в Edit1 задавать адрес, нажимать на Button1 и получать в Memo1 код страницы (типа View Source) Как мне это сделать?
Спасибо.
← →
Сатир (2002-06-08 14:52) [1]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;
← →
Song (2002-06-08 17:00) [2]URLDownLoadToFile()
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c