Delphi Winsocks检测某个TCP端口师傅正在被使用

本文整理自网络，侵删。

 
//Checking if a TCP port is Open using Delphi and Winsocks
uses
  Winsock;
 
function PortTCP_IsOpen(dwPort : Word; ipAddressStr:AnsiString) : boolean;
var
  client : sockaddr_in;
  sock   : Integer;
 
  ret    : Integer;
  wsdata : WSAData;
begin
 Result:=False;
 ret := WSAStartup($0002, wsdata); //initiates use of the Winsock DLL
  if ret<>0 then exit;
  try
    client.sin_family      := AF_INET;  //Set the protocol to use , in this case (IPv4)
    client.sin_port        := htons(dwPort); //convert to TCP/IP network byte order (big-endian)
    client.sin_addr.s_addr := inet_addr(PAnsiChar(ipAddressStr));  //convert to IN_ADDR  structure
    sock  :=socket(AF_INET, SOCK_STREAM, 0);    //creates a socket
    Result:=connect(sock,client,SizeOf(client))=0;  //establishes a connection to a specified socket
  finally
  WSACleanup;
  end;
end;

begin
 if PortTCP_IsOpen(3306,'127.0.0.1') then
  DoMyStuff();
end;
 

相关阅读 >>

Delphi 10进制数与33进制数的转换

winapi 字符及字符串函数(13): lstrcmp、lstrcmpi - 对比串

Delphi createprocesswithlogonw用法

Delphi实现音频传输

Delphi 的内存操作函数(1): 给字符指针分配内存

Delphi 编写服务程序的几点总结

Delphi 判断网络是否连通

Delphi 开发64位应用程序使用windows api的注意事项

Delphi program name、process id、window handle、process handle 的转换函数

Delphi 如何得到动态链接库的输出函数tdump命令

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

转载请注明出处：木庄网络博客 » Delphi Winsocks检测某个TCP端口师傅正在被使用