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 取得当前运行窗口的标题

Delphi在case语句中使用字符串

Delphi 获取任意月份总共有多少天数

Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件

Delphi 写log的代码(按日期)

Delphi tstringbuilder详解

Delphi copyrect实现的几个图片的转换效果

Delphi ifdef 另类用法

Delphi idhttp post json

学习使用Delphi for android 调用java类库

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...