delphi 判断端口(Port)是否被占用
来源:互联网 发布:java工程师创业 编辑:程序博客网 时间:2024/05/23 15:48
判断端口(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;
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;
0 0
- delphi 判断端口(Port)是否被占用
- 查看linux中某个端口(port)是否被占用
- 查看linux中某个端口(port)是否被占用
- 查看linux中某个端口(port)是否被占用
- 查看linux中某个端口(port)是否被占用
- linux查看某个端口(port)是否被占用
- 查看linux中某个端口(port)是否被占用
- 查看linux中某个端口(port)是否被占用
- 查看linux中某个端口(port)是否被占用
- 查看linux中某个端口(port)是否被占用
- 查看linux中某个端口(port)是否被占用
- 查看linux中某个端口(port)是否被占用
- 如何判断一个端口是否被占用
- 使用Socket判断端口是否被占用
- c# socket 判断端口是否被占用
- Linux C++判断端口是否被占用
- 端口是否被占用
- 查看linux中某个端口(port)是否被占用(netstat,lsof)
- 工作第四天
- apache,php安装配置
- Qt实现小功能之列表无限加载(创意很不错:监听滚动条事件,到底部的时候再new QListWidgetItem)
- 制作游戏背包界面
- 当当网页面基本动态实现
- delphi 判断端口(Port)是否被占用
- lnmp安装到config-set succeeded的时候卡住,解决办法
- 文本框输入防止sql注入攻击
- java中的final和static
- jxls操作excel文件
- 使用RMAN恢复Oracle 10g RAC库至异机
- 推荐机制
- Android性能优化之布局篇(二)
- <Linux> VIM 命令