问题一！！！

2004-03-30 09:55:39 125 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

电子结构设计（EMD）十年知识总结客官，你的面相是做结构设计的奇才~1. 材料选择【一出手的0.1s就败了】2. 钣金件设计【折来折去有啥难】3. 塑胶件设计【看着好复杂】4. 型材件设计【凭啥不让我设计】5. 电子结构（PCBA）设计【静电肿么要我背锅】6. 包装设计【要的就是金玉其外，败絮其中】7. 外观（工业）设计【好不好看，谁说了算】8. 标签设计【】9. 标准件选择【一个螺丝难倒英雄汉/提起螺丝，英雄气短】10. 计算仿... 阅读详情

我使用Delphi 6 提供的TTcpServer编写程序：
使用如下的代码初始化TTcpServer，
//设置SGIP接收服务器的本地监听IP和端口
Server.LocalHost := '192.168.0.99';
Server.LocalPort := IntToStr( Port );

TTcpServer对象是动态创建的，然后使用如下的代码打开TTcpServer
Result := False;
Try
Server.Open;
Result := True;
Except
End;
使用如下的代码关闭TTcpServer
Result := False;
Try
Server.Close;
Result := True;
Except
End;
并且保证100%释放了手工创建的TTcpServer对象，但是出现了以下的问题：
使用内存漏洞检测工具CodeWatch进行检测，发现产生了72+16共88个字节的内存漏洞，一个Socket资源漏洞，一个线程句柄漏洞。发生这些漏洞的位置都是在调用TTcpServer的Open方法，好像Close方法和Free不能正确地处理TTcpServer自己分配内存和资源（我的理解），请高手帮忙解释为什么能够导致这种现象！！！

...全文