请问如何改进----这个IDHttp的简单取网页的代码? 本帖最后由 cowbo 于 2011-06-23 23:32:51 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 上一次还没取完,下一次又进来了,timer事件中,先 enable = false,下载完并处理完,然后再 enable=true IDHTTP创建后没有释放procedure TMyDownLoad.Download;Var UnitName,PathName:String; IDHTTP: TIDHttp; htm:string;begin Inc(i); screen.Cursor:=crHourGlass; IDHTTP:= TIDHTTP.Create(nil); try try //Form1.Memo1.Clear; htm:=IdHTTP.Get('http://www.163.com'); Form1.Memo1.Text:=htm; except showmessage( '网络出错未能下载完成! '); Exit; end; finally IDHTTP.Free; end; screen.Cursor:=crDefault; showmessage( '下载完成! ');end; 使用timer时,一般都这样子处理一下,,不然。后果很严重啊。。 http://www.163.com换个地址,比如百度。这样加载效率其实挺低的。 IdUDPClient和IdUDPServer的问题请教 从时间服务器获取时间总是不对,高手指点 怎么可以修改DBGRID中的查询内容 如何遍历treeview? BOM展开计算方法 IntraWeb,WebSnap,Web broker,可视化Web开发,太酷了!!! 怎样格式化超出80磁道的软盘? 哪位用过D7中开发B/S结构的新组件Intraweb,感觉太爽了,但遇到一个问题,请教一下. 如何把我的程序捆绑在其他程序上一起运行??? 我在编程中遇到的一个关于时间的问题 关于TCPCLIENT接收二进制数据 关于webservice的调用问题
Var
UnitName,PathName:String;
IDHTTP: TIDHttp;
htm:string;
begin
Inc(i);
screen.Cursor:=crHourGlass;
IDHTTP:= TIDHTTP.Create(nil);
try
try
//Form1.Memo1.Clear;
htm:=IdHTTP.Get('http://www.163.com');
Form1.Memo1.Text:=htm;
except
showmessage( '网络出错未能下载完成! ');
Exit;
end;
finally
IDHTTP.Free;
end;
screen.Cursor:=crDefault;
showmessage( '下载完成! ');
end;
使用timer时,一般都这样子处理一下,,不然。后果很严重啊。。