delphi 判断端口Port是否被占用

来源：网络整理时间:2017-05-05 关键词:

本篇文章主要介绍了" delphi 判断端口Port是否被占用"，主要涉及到方面的内容，对于Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下：判断端口(Port)是否被占用在使用Socks编程时，有时需要判断某个端口是否被占用，也就是是否被其它程序使用。uses Winsock;function I...

判断端口(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 判断端口Port是否被占用，包括了方面的内容，希望对Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。

本文网址链接：http://www.codes51.com/article/detail_4303952.html

上一篇：delphi 数组复制利用CopyMemory 最为完美 下一篇：delphi数据类型转换

delphi 判断端口Port是否被占用

相关图片

相关文章