您现在的位置:首页 >> 网络通讯 >> 网络通讯 >> 内容

Delphi中如何检测本机UDP服务端口是否被占用

时间:2011/9/3 15:12:08 点击:

  核心提示:programTestPort; uses WinSock,windows; var s:TSocket; wsd:TWSAData; SockAddrIn:TSockAddrIn; begin if...
program TestPort;

uses
  WinSock,windows;

var
  s : TSocket;
  wsd : TWSAData;
  SockAddrIn : TSockAddrIn;
begin
  if (WSAStartup(MAKEWORD(2,2),wsd) = 0) then
  begin
    s := Socket(AF_INET,SOCK_DGRAM,0);
    try
      if (s <> SOCKET_ERROR) then
      begin
        SockAddrIn.sin_family := AF_INET;
        SockAddrIn.sin_addr.S_addr := htonl(INADDR_ANY);
        SockAddrIn.sin_port := htons(Short(2222));
        if (Bind(s,SockAddrIn,SizeOf(SockAddrIn))<>0) then
          if (GetLastError = WSAEADDRINUSE) then
            MessageBox(0,'Port 2222 Be Using!','Sorry',MB_OK);
      end;
    finally
      CloseSocket(s);
      WSACleanup();
    end;
  end;

作者:cg1120 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号