Delphi檢查Port開啟

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('连接失败');