delphi的connection closed Gracefully错误

 

将这个放到调用页面上....一个处理地址函数..

function GetWebPage(URL: string):string;

var

  IDHTTP: TIDHttp;

  ss: String;

begin

  IDHTTP:= TIDHTTP.Create(nil);

  try

    try

        idhttp.Disconnect;

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

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

        ss:=idhttp.Get(url);

        //ss:=UTF8ToAnsi( ss);                  //UTF8编码转换

        if IDHTTP.ResponseCode=200 then

        Result := ss;

    except

        //ss:='';

    end;

  finally

    IDHTTP.Free;

  end;

end;

 

===========================================================

注意：

get百度时，需要修改http头： User-Agent: Mozilla/3.0 (compatible; Indy Library)   因为百度屏蔽了 ‘Indy Library’ 这个客户端标识的。