摘要：
在它的workbegin work事件中写代码 procedure TfrmDownLoad.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);begin ProgressBar 阅读全文
posted @ 2013-11-27 22:48 wissly 阅读(457) 评论(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 阅读(566) 评论(0) 推荐(0) 编辑