url:="http://www.baidu.com";
sid:=Createhttpsession();
sethttpacceptencodingon(sid,false);//设定为不允许压缩传输
sethttpcallback(sid,findfunction("DownProg01")); //进度回调
r:=GetHttp(url,60000,v,code);
echo "\r\nDone",'->code:',code,'->返回内容总长度:',length(v),"\r\n";
return 0;

//--------------进度回调函数---------------------
function DownProg01(sid,AlldnB,dnB,AllupB,upB); //progresscallback-不提前结束
begin
 if dnB > 0 then //如果大于0则打印
 begin
   echo "AlldnB:",AlldnB,",dnB:",dnB,",AllupB:",AllupB,",upB:",upB,"\r\n";
 end;
 return 0; //not done
end;