本文整理自网络，侵删。
判断端口(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 unicode转汉字 ，支持自动过滤非 unicode编码
更多相关阅读请进入《Delphi》频道 >>
