本文整理自网络,侵删。
procedure TForm1.btn1Click(Sender: TObject);
var
Http:TIdHTTP;
begin
Http := TIdHTTP.Create(nil);
Http.ProxyParams.ProxyServer := '91.211.141.249'; //代理IP
Http.ProxyParams.ProxyPort := 8080;
Http.ProxyParams.ProxyUsername := '';
Http.ProxyParams.ProxyPassword := '';
//百度和GG屏蔽了idhttp控件,所以需要修改请求头
Http.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.9.2.15) Gecko/20110303 Firefox/3.6.15';
mmo1.Text := Http.Get( 'http://www.baidu.com' );
FreeAndNil( Http );
end;
相关阅读 >>
Delphi xe增强的rtti妙用--动态创建包中的窗口类
Delphi用twebbrowser组件在Delphi中post数据和取得网页源文件
关于公历与农历换算和时间处理的单元 calendar.pas
Delphi tstringdynarray 使用,分割字符串
更多相关阅读请进入《Delphi》频道 >>