盒子论坛 v2.1

var
MyStr:String;
Dcphttp:TIdHTTP;
IsUtf8 :Boolean;
begin

    Dcphttp:=TIdHTTP.Create(Application);
    IsUtf8:=False;
  try
    Dcphttp.ReadTimeout:=5000;
    Dcphttp.ConnectTimeout:=5000;
    Dcphttp.HandleRedirects := True;
    Dcphttp.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8';
    Dcphttp.Request.ProxyConnection:='keep-alive';
    Dcphttp.Request.UserAgent := 'Mozilla/5.0';
    MyStr := Dcphttp.Get('http://test网址');
    if IsUtf8 then
      MyStr:= Utf8ToAnsi(MyStr);
      edit3.Text:=MyStr;
  except

   Showmessage('网络出错!');
    Exit;

  end;
    FreeAndNil(dcphttp);
----------------------------------------------

http://www.jiesky.com
共同学习，共同努力！

信息

登陆以后才能回复