[ОТВЕТИТЬ]
14.01.2011 08:01
OlegON
 
Итак, даны условия:
1) Нужно проверить возможность подключения на удаленный компьютер, на конкретный порт
2) Нужно проверить, доступен ли локальный компьютер по какому-то порту из Инета.
Ваши действия?
07.07.2011 10:27
OlegON
 
и как ты этим проверишь доступность порта из инета?
18.07.2011 01:51
mighty
 
на дельфи пример:
Для провеки, открыт ли порт на удаленном хосте, выполняем такой код:

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;

взято с
Опции темы


Часовой пояс GMT +3, время: 07:28.

 

Форум сделан на основе vBulletin®
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. Перевод: zCarot и OlegON
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.