Проверка, включен ли сервер

@NapalmRain · Регистрация: 18.05.2010

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

Доброго всем времени суток!

Столкнулся с не совсем понятной проблемой.
Есть сервер. он иногда работает иногда нет. Я на форму бросил картинку и tcpclient что бы проверять работает он или нет.
По нажатию на кнопку свойству актив клиента задаю значение тру
а на самом клиенте создал событие коннект
в котором прописал:

Delphi

procedure TForm1.TcpClient1Connect(Sender: TObject);
begin
if TCPClient1.Connected then
begin
  sImage2.Visible := true;
end else
begin
  sImage2.Visible := false;
end;

В свойствах клиента прописал хост удалённого сервера и порт для подключения. Но почему-то даже если сервер выключен, и даже если я в свойстве хост вместе имени пишу просто vasya он все равно рисует картинку, будто сервер включен...

Прошу подсказки, где я смотрю не в ту сторону?

Заранее благодарю!

Добавлено через 5 часов 52 минуты
Решил вопрос, заменив TCPClient на сокет.
Но тут проблема. не отрабатывает try

Delphi

try
    ClientSocket1.Active := true;
  except
    sButton4.Caption := 'Включить';
  end;

выдаёт delphi asynchronous socket error 10061
Хотя должен бы просто отработать exception...

Добавлено через 3 минуты
Решил проблему добавлением обработчика ошибок самого сокета, но всё равно не понятно, почему не отрабатывает try

@mss · 19.11.2013, 23:44

Сообщение от NapalmRain

где я смотрю не в ту сторону?

Чему у тебя равно BlockMode ?

Если bmNonBlocking, то такое поведение совершенно нормально, ибо св-во Connected в этом случае фиксирует факт успешного запуска асинхронной неблокирующей операции коннекта, а не факт успешного завершения этой операции.

Сообщение от NapalmRain

не отрабатывает try

И не обязан.
Опять же - чему равно ClientType ?
Если ctNonBlocking, то Active = True (или вызов Open, что эквивалентно) запускает асинхронную неблокирующую операцию коннекта, об успехе которой сообщит событие OnConnect, а о неуспехе - OnError.
Поскольку хоста с именем "Просто Вася" не существует, операция асинхр.коннекта завершается с ошибкой, погасить которую можно установив ErrorCode = 0 в обработчике OnError, при этом в том же обработчике в обязательном порядке следует закрыть гнездо вызовом Socket.Close, в противном случае утечка ресурсов гарантирована.

@NapalmRain · 20.11.2013, 16:40 **[ТС]**

Установил свойство сокета на на bmBlocking, но мне это не помогло. Я знаю точно, что серверная программа выключена. Через web ресурсы проверяю доступность порта а так же через сокеты php скриптов на своём сайте, всегда выдаёт, что выключена. А сокет делфи упорно радуется подключению к хрен пойми чему.
При этом если указать адрес 127.0.0.1, то он радостно заявляет о невозможности подключения, а если удалённый ip, то всё ему хорошо... Не могу понять, в чём проблема...

@mss · 20.11.2013, 17:18

А где у тебя обработка OnError ?
Она обязана быть ..

@NapalmRain · 20.11.2013, 20:59 **[ТС]**

Есть. В ней написано приводить актив в false;

@mss · 20.11.2013, 21:59

Сообщение от NapalmRain

Есть

И что ? Оно тоже "неправильно" срабатывает ?

@NapalmRain · 20.11.2013, 22:43 **[ТС]**

Сообщение от mss

И что ? Оно тоже "неправильно" срабатывает ?

Очень странная ситуация. Одни и те же исходники на домашнем компе отрабатывают прекрасно, на рабочем вообще не реагируют на внешние раздражители.

Но, думаю, это проблема конкретной машины.

@mss · 20.11.2013, 22:50

Я задал вполне конкретный вопрос, не понять который сложно - срабатывает ли событие OnError и чему равно значение параметра rc при вызове обработчика ..

@NapalmRain · 20.11.2013, 22:52 **[ТС]**

Сообщение от mss

Я задал вполне конкретный вопрос, не понять который сложно - срабатывает ли событие OnError и чему равно значение параметра rc при вызове обработчика ..

Я ответил на него, хоть и слегка витиевато, на домашнем компьютере отрабатывает, на рабочем нет. Словно никаких ошибок не происходит. С чем это связано, не знаю. Даже предположить не могу.

@mss · 20.11.2013, 23:09

Сообщение от NapalmRain

С чем это связано, не знаю. Даже предположить не могу

А не надо гадать.
Cледует установить точку останова в тело Sockets.TCustomIpClient.Open, пройти тело пошагово и понять что на самом деле происходит.

@NapalmRain · 21.11.2013, 09:37 **[ТС]**

Сообщение от mss

А не надо гадать.
Cледует установить точку останова в тело Sockets.TCustomIpClient.Open, пройти тело пошагово и понять что на самом деле происходит.

Благодарю за совет, попробую.

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	19.11.2013, 23:44	2
	Сообщение от NapalmRain где я смотрю не в ту сторону? Чему у тебя равно BlockMode ? Если bmNonBlocking, то такое поведение совершенно нормально, ибо св-во Connected в этом случае фиксирует факт успешного запуска асинхронной неблокирующей операции коннекта, а не факт успешного завершения этой операции. Сообщение от NapalmRain не отрабатывает try И не обязан. Опять же - чему равно ClientType ? Если ctNonBlocking, то Active = True (или вызов Open, что эквивалентно) запускает асинхронную неблокирующую операцию коннекта, об успехе которой сообщит событие OnConnect, а о неуспехе - OnError. Поскольку хоста с именем "Просто Вася" не существует, операция асинхр.коннекта завершается с ошибкой, погасить которую можно установив ErrorCode = 0 в обработчике OnError, при этом в том же обработчике в обязательном порядке следует закрыть гнездо вызовом Socket.Close, в противном случае утечка ресурсов гарантирована. 1

@NapalmRain 44 / 43 / 7 Регистрация: 18.05.2010 Сообщений: 688
	20.11.2013, 16:40 [ТС]	3
	Установил свойство сокета на на bmBlocking, но мне это не помогло. Я знаю точно, что серверная программа выключена. Через web ресурсы проверяю доступность порта а так же через сокеты php скриптов на своём сайте, всегда выдаёт, что выключена. А сокет делфи упорно радуется подключению к хрен пойми чему. При этом если указать адрес 127.0.0.1, то он радостно заявляет о невозможности подключения, а если удалённый ip, то всё ему хорошо... Не могу понять, в чём проблема... 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	20.11.2013, 17:18	4
	А где у тебя обработка OnError ? Она обязана быть .. 0

@NapalmRain 44 / 43 / 7 Регистрация: 18.05.2010 Сообщений: 688
	20.11.2013, 20:59 [ТС]	5
	Есть. В ней написано приводить актив в false; 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	20.11.2013, 21:59	6
	Сообщение от NapalmRain Есть И что ? Оно тоже "неправильно" срабатывает ? 0

@NapalmRain 44 / 43 / 7 Регистрация: 18.05.2010 Сообщений: 688
	20.11.2013, 22:43 [ТС]	7
	Сообщение от mss И что ? Оно тоже "неправильно" срабатывает ? Очень странная ситуация. Одни и те же исходники на домашнем компе отрабатывают прекрасно, на рабочем вообще не реагируют на внешние раздражители. Но, думаю, это проблема конкретной машины. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	20.11.2013, 22:50	8
	Я задал вполне конкретный вопрос, не понять который сложно - срабатывает ли событие OnError и чему равно значение параметра rc при вызове обработчика .. 0

@NapalmRain 44 / 43 / 7 Регистрация: 18.05.2010 Сообщений: 688
	20.11.2013, 22:52 [ТС]	9
	Сообщение от mss Я задал вполне конкретный вопрос, не понять который сложно - срабатывает ли событие OnError и чему равно значение параметра rc при вызове обработчика .. Я ответил на него, хоть и слегка витиевато, на домашнем компьютере отрабатывает, на рабочем нет. Словно никаких ошибок не происходит. С чем это связано, не знаю. Даже предположить не могу. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	20.11.2013, 23:09	10
	Сообщение от NapalmRain С чем это связано, не знаю. Даже предположить не могу А не надо гадать. Cледует установить точку останова в тело Sockets.TCustomIpClient.Open, пройти тело пошагово и понять что на самом деле происходит. 0

@NapalmRain 44 / 43 / 7 Регистрация: 18.05.2010 Сообщений: 688
	21.11.2013, 09:37 [ТС]	11
	Сообщение от mss А не надо гадать. Cледует установить точку останова в тело Sockets.TCustomIpClient.Open, пройти тело пошагово и понять что на самом деле происходит. Благодарю за совет, попробую. 0