delphi 判断端口(Port)是否被占用

本文整理自网络，侵删。

 
判断端口(Port)是否被占用 在使用Socks编程时，有时需要判断某个端口是否被占用，也就是是否被其它程序使用。

uses Winsock;

function IsPortUsed(const aPort: Integer): Boolean;
var 
_vSock : TSocket;
_vWSAData : TWSAData;
_vAddrIn : TSockAddrIn;
begin
Result := False;
if WSAStartup(MAKEWORD(2, 2), _vWSAData) = 0 then
begin
_vSock := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
try
if _vSock <> SOCKET_ERROR then
begin
_vAddrIn.sin_family := AF_INET;
_vAddrIn.sin_addr.S_addr := htonl(INADDR_ANY);
_vAddrIn.sin_port := htons(APort);
if Bind(_vSock, _vAddrIn, SizeOf(_vAddrIn)) <> 0 then
if WSAGetLastError = WSAEADDRINUSE then
Result := True;
end;
finally
CloseSocket(_vSock);
WSACleanup();
end;
end;
end;
 

相关阅读 >>

Delphi xe2 - 实现主窗口在任务栏上不显示

Delphi百度网盘真实地址解析

Delphi里面控制edit只能输入数字

Delphi 快捷键设置控件: thotkey

如何让dbgrid显示序号？

Delphi 从一个html返回所有的图片链接

Delphi record，两种声明方式

Delphi获取文件创建时间、文件最后修改时间

Delphi 单击按钮左键弹起菜单

Delphi 代码查询一个json ip 地址的归属地

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 判断端口(Port)是否被占用