сервер/клиент

[Garward]

Народ ну кто поможетт... запарился !!! невыходит.. сделать одну функцию в приложении...
при отсутствии сервера , чтобы приложение выводило сообщение .. что сервер не найден!!!Пишите не стесняйтесь:con fused:

[romlo]

Что конкретно не получается: проверка отсутствия сервера или вывод сообщения?

[lux16]

try
{ тут проверка подключения }
except
{ тут ошибка о том, что сервака нету }
end;

[romlo]

Добавьте в uses модуль dialogs и используйте
ShowMessage('Ваша ошибка');
ну или добавьте в uses модуль windows (если нету)
и используйте функцию MessageBox.
Вот удобная программка для генерации кода вызова MessageBox:

[Garward]

в том то и дело , что проверить порт нельзя без активации Cliensocket, а при активации ClientSocket-а выводится ошибка подключения ,,, ну вместо этой ошибки мне необходимо что б выводилось сообщение что сервер просто не найден.....
"Asynhronos socket error 1006 "

[DjDram]

а в чём проблема использования процедуры обработки ошибок сокета

procedure TForm1.ClientSocketError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
if ErrorCode = 10061 then // указываем код ошибки
begin
ClientSocket.Active := False; // выключаем сокет
showmessage('Сервер не найден.'); // результат обработки
Memo1.Lines.Insert(0,'Socket error ('+IntToStr(ErrorCode)+')'); // отображаем ошибку в окне
ErrorCode := 0;
end;
end;

[Leo08]

В событие OnSocketError пропишите:
ErrorCode := 0;
Таким образом Вы просто будете игнорировать ошибку подключения. Очень удобно использовать данный при наличии таймера на форме, который через каждые 100 мс подключается к серверу!