delphi的:
procedure TForm1.testportClick(Sender: TObject);
begin
with ClientSocket1 do
begin
Close;
Host := 'servername';//servername为要检测的服务器服务器名
Port := 10000;//10000为要检测的服务器端口
Open;
end;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
showmessage(format('服务器%s上的端口%d已打开',[ClientSocket1.host,ClientSocket1.port]));
end;
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
showmessage(Format('无法连接服务器%s的端口%d',[ClientSocket1.host,ClientSocket1.port]));
ErrorCode := 0;
end;