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;

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;

相关文章:

  • 2021-11-15
  • 2022-12-23
  • 2021-10-07
  • 2021-11-26
  • 2021-11-26
  • 2021-04-25
  • 2021-11-08
  • 2022-12-23
猜你喜欢
  • 2022-12-23
  • 2021-12-04
  • 2021-05-27
  • 2021-11-07
  • 2021-08-27
  • 2021-12-04
相关资源
相似解决方案