我用的是INDY里面的TIDTCPCLIENT,TIDTCPSERVER,我在服务器的程序时总时关不了
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
tcpserver.Active:=false;
tcpserver.Free;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
tcpserver.Active:=false;
tcpserver.Free;
end;
解决方案 »
- idftp利用socks访问代理服务器的问题
- 热烈祝贺二个6:dephi2006和‘神州6号’发布成功!66大顺!大吉大祥!
- 请教关于:ListView的问题
- [共享]数万个整理好的ICON下载
- 大家来谈谈Delphi中使用ADO时经验和常见的一些错误(散分)
- 谁有关于 property read write 用法的简单例子,请高手帮忙
- 请问关于TstringGrid的问题,急~~~~~~~~~~~~~~
- 关于DBGrid中的对齐问题,贴过几次,无人解决
- 求助,一个关于资源释放的问题?
- 不好意思我很菜,问题也很菜!谁笑话我我跟他急!
- 山东聊城-----开贴了。。。。
- 哪位给个”ERP图标集“好吗?3Q
低于10。4的版本有BUG...
tcpserver.Free;
不写在CLOSE里,试试