[lesha]

Задача такова: если есть телнет на порт - выводим "Есть коннект", иначе - "Нет коннекта".
Telnet: TIdTelnet (вкладка Indy Client)
Код:
try
telnet.Connect;
except
<Нет коннекта>
end;
if telnet.Connected
then
begin
<Есть коннект>
telnet.Disconnect;
end;

Однако, если telnet.Connect не увенчался успехом, то программа вылетает с ошибкой "Project Project1.exe raised exception class EIdSocketError with message "Socket Erorr #11001". Как это решить?! Спасибо.

[4erep_88]

Запусти Project1.exe из проводника, а не из под Delphi

[lesha]

О, точно, работает! Спасибо! А почему так?

[Decoding]

Не так давно я уже говорил, почему так - http://delphisources.ru/forum/showpo...13&postcount=4