Delphi编程
关注
分享
扫一扫
文章平均质量分 74
jadeluo
这个作者很懒，什么都没留下…
展开
-
TIdTCPServer.Active := False的研究
设置TIdTCPServer的Active为False的这个操作存在着一些问题：1. 在设置Active为False时, 将结束所有已连接的客户端线程(PeerThread), 这个结束操作是有超时检测的(超时的时长可以通过TerminateWaitTime属性进行设置)。如果超时, 则抛出超时异常，这个异常在Delphi的IDE环境中无法屏蔽，给调试程序带来很多不便。而且，出现超时异常时，T原创 2009-03-05 08:31:00 · 3228 阅读 · 1 评论 -
遍历当前可用的USB-Serial的串口
uses Registry;procedure GetUSBCOMNames(var AResult: TStringList);const RegistryRootKey = HKEY_LOCAL_MACHINE; RegistryPath_DeviceClasses= SYSTEM/CurrentControlSet/Control/Device原创 2009-12-31 11:03:00 · 3097 阅读 · 1 评论