Delphi
文章平均质量分 66
MAGXJ500T
这个作者很懒,什么都没留下…
展开
-
检查一个端口是否已经被占用
环境: Windows Server 2003 Delphi 2010 uses WinSocket;function CheckPort(APort: Integer): Boolean;var wsadata: TWSAData; s: TSocket; addrin: TSockAddrIn;begin WSAStart原创 2009-10-13 02:34:00 · 996 阅读 · 0 评论 -
Delphi 类内部创建消息处理
环境: Windows Server 2003 Delphi 2010 在VCL中,直到TWinControl才开始有了消息句柄。那么对于从更底层继承的类,如何添加消息处理呢?下面就是一种非常简单的方法。 uses Classes, Messages;const WM_TEST = WM_USER + 1000;type TMs原创 2009-10-13 01:58:00 · 636 阅读 · 0 评论 -
随机获得一个未占用的端口
环境: Windows Server 2003 Delphi 2010 uses WinSocket;function GetRandomPort: Integer;var wsadata: TWSAData; s: TSocket; addr: TSockAddr; addrin: TSockAddrIn; addrin_原创 2009-10-13 02:31:00 · 944 阅读 · 0 评论