Проверка активности порта

@Bookkc1 · Регистрация: 01.11.2012

Author24 — интернет-сервис помощи студентам

Всё очень просто, нужно сделать проверку активности порта, то есть:

Моя программа смотрит, если порт по данному хосту занят - выводит одно сообщение, если свободен - выводит другое сообщение. С помощью чего это реализовать ? и как ?

Желательно что бы всё было максимально просто, без извращений :-)

Добавлено через 18 минут
ах да, забыл дописать, что дела так :

Для провеки, открыт ли порт на удаленном хосте, выполняем такой код:

Delphi

ClientSocket1.Address := "192.168.0.10"; 
ClientSocket1.Port := 321; 
ClientSocket1.Open; 
 
для обработки результата используем: 
 
procedure TForm1.ClientSocket1Connect(Sender: TObject; 
Socket: TCustomWinSocket); 
begin 
ShowMessage("Port is Opened"); 
Socket.Close; 
end; 
 
procedure TForm1.ClientSocket1Error(Sender: TObject; 
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; 
var ErrorCode: Integer); 
begin 
ShowMessage("Port is Closed!"); 
ErrorCode := 0; 
end;

но такой вариант не работает. Постоянно выводит сообщение "Port is Closed!" даже есть порт работает

	06.03.2017, 14:23