Delphi檢查Port開啟

iteye_11669

于 2009-01-22 23:16:38 发布

阅读量137

点赞数

文章标签： Delphi Java

本文链接：https://blog.youkuaiyun.com/iteye_11669/article/details/81679923

版权


use 
IdTCPClient;

function CanbeConnected(sHost: string; dwPort: Integer): Boolean;
var
  Tcp: TIdTCPClient;
begin
  Tcp := TIdTCPClient.Create;
  Tcp.Host := sHost;
  Tcp.Port := dwPort;
  try
    try
      Tcp.Connect;
      Result := True;
    except
      Result := False;
    end;
  finally
    Tcp.Disconnect;
    Tcp.Free;
  end;
end;


  if CanbeConnected('www.163.com', 80) then
    ShowMessage('连接成功')
  else
    ShowMessage('连接失败');