摘要:        
在它的workbegin work事件中写代码 procedure TfrmDownLoad.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);begin ProgressBar    阅读全文
        posted @ 2013-11-27 22:48 wissly 阅读(486) 评论(0) 推荐(0)
|  | |
| 
摘要:        
在它的workbegin work事件中写代码 procedure TfrmDownLoad.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);begin ProgressBar    阅读全文
 posted @ 2013-11-27 22:48 wissly 阅读(486) 评论(0) 推荐(0) 
摘要:        
最近一段时间,因为忙于网络的项目,特意到网上找了些例子,特意花时间研究了一下马敏钊写的 mmz-asio4delphi 感觉很好用,不过深入研究之后,发现一个问题。马大的这个代码,会产生死链接。tryifTAsioClient(FClientLst.Objects[i]).Socketptr>0thenbeginAsio_closesocket(TAsioClient(FClientLst.Objects[i]).Socketptr);TAsioClient(FClientLst.Objects[i]).Socketptr:=0;end;//Asio_DisConnedCallback(    阅读全文
 posted @ 2013-11-27 22:41 wissly 阅读(597) 评论(0) 推荐(0) | |