При установлении соединения с сервером, если он в этот момент находится в дауне, то возникает ошибка. Подскажите пожалуйста можно ли сначала проверить наличие сервера в онлайне? Заранее благодарен.

Сервер чего?

Дык в вопросе и ответ   Если в дауне - значит ошибка. Обрабатывай ошибку, так наверное...

Цитата(Dapo @ 19.9.2002, 06:48)

Дык в вопросе и ответ   Если в дауне - значит ошибка. Обрабатывай ошибку, так наверное...

Дело в том, что если обработку ошибки ставить в try..except то в Windows XP всеравно появляется сообщение об ошибке. Так что мне нужен способ както проверить наличие сервера в онлайне.

To Vit: всмысле сервера нет в онлайне

Юзай ICMP. Почитать могешь например здесь

Дык ты сначала пропингуй его, а уж потом в зависимости от того ответил он на пинг или нет ставь процедуру;
end;
end.

Цитата(RAdmin @ 20.9.2002, 21:19)

Дык ты сначала пропингуй его, а уж потом в зависимости от того ответил он на пинг или нет ставь процедуру; end; end.

Именно это я и имел ввиду

Цитата(RAdmin @ 20.9.2002, 21:19)

Дык ты сначала пропингуй его, а уж потом в зависимости от того ответил он на пинг или нет ставь процедуру; end; end.

Дело в том, что перезапуск сервера идет в течении 5 минут(примерно) и в это время пинговать его можно(по крайней мере у меня пинг был), а вот подконнектится нельзя.

Цитата(Spawn @ 18.9.2002, 22:19)

To Vit: всмысле сервера нет в онлайне

Ух, как меня добивают вопросы типа "Сервер что-то делает..."! Сервер чего? Сервер по определению это программа которая способна обслуживать несколько програм клиентов, вот так сразу с разгону приходят на ум следующие типы серверов:  network server, web server, smtp server, ftp server, pop3 server, SQL server, MS transaction server, Reporting server, DNS server, Proxi Server, NNTP server, fax server, streaming server, IRC server, time Server, printer server... Или иногда имеется ввиду компьютер оснощённый одной из выше перечисленных программ. Когда кто-то говорит "сервер" то информативность равна практически нулю, примерно такая же как у слов "оператор", "устройство", "программа", "система" - это в большой степени абстрактные понятия, и без уточнения невозможно понять о чём идёт речь.

Цитата(Spawn @ 25.9.2002, 16:09)

Дело в том, что перезапуск сервера идет в течении 5 минут(примерно) и в это время пинговать его можно(по крайней мере у меня пинг был), а вот подконнектится нельзя.

Дык коннектись через 5 мин., после того, как сервер начнет пинговаться

А лучше, не пингуй, а пробуй коннектиться.

Цитата(FdX @ 25.9.2002, 17:53)

Цитата(Spawn @ 25.9.2002, ) Дело в том, что перезапуск сервера идет в течении 5 минут(примерно) и в это время пинговать его можно(по крайней мере у меня пинг был), а вот подконнектится нельзя. Дык коннектись через 5 мин., после того, как сервер начнет пинговаться

Дело в том, что программа должна работать в мое отсутствие и следовательно появление ошибки недопустимо!

я не понимаю, в чем проблема

var
  canconnect:boolean;
begin
  canconnect:=false;
  while not canconnect do
     canconnect:=connect_my_socket(...);  //your procedure
end;