delphi 一句话,一分钟,取得网页源码

2024-04-28 06:56•服务端开发•阅读 3271

拖三个组件: memo ,idhttp,edit 加一个Button

然后在procedure TForm1.Button1Click(Sender: TObject);里加上一句话

1.可以这么写

memo1.Text:= idHTTP1.Get(edit1.Text);

2.也可以这么写

memo1.Lines.Add(IdHTTP1.Get(edit1.Text));

这件事就这么简单.

不过,别用它来试百度,因为百度屏蔽了 ‘Indy Library’ 这个客户端标识的。

hehe,除非修改http头

User-Agent: Mozilla/3.0 (compatible; Indy Library) 修改前面绿色的部分

注:如果出现的是乱码,查一下html的文件头,看看编码方式,然后比如改成这样

memo1.Text:=utf8toansi( idHTTP1.Get(edit1.Text));

更进一步:

function TForm1.Get(URL: string):string;

var

IDHTTP: TIDHttp;

ss: String;

begin

IDHTTP:= TIDHTTP.Create(nil);

try

idhttp.Disconnect;

idhttp.HandleRedirects:= true; //必须支持重定向否则可能出错

idhttp.ReadTimeout:= 30000; //超过这个时间则不再访问

ss:=utf8toansi( IDHTTP.Get(URL)); //UTF8编码转换

// if ss='' then

ss:=UTF8Decode(idhttp.Get(url));

if IDHTTP.ResponseCode=200 then

Result :=ss;

except

//ss:='';

end;

finally

IDHTTP.Free;

end;