Контроль связи с устройством

[Rolich]

Доброго всем времени суток
Подскажите, пожалуйста, как контролировать наличие связи с несколькими устройствами в локальной сети ?
Я так понял, что в скрипте "Старт проекта" нужно прописать что-то типа
StartPing('192.168.0.1',3000,device1), но будет ли это работать, есть device1 имеет тип boolean ?
Что нужно прописывать в скрипте по событию "Изменился пинг" ?
Спасибо

[Simple_Scada]

Здравствуйте.

Для контроля связи с ПЛК/устройством можно воспользоваться перечисленными по ссылке способами. Описание и примеры скриптов для процедуры "StartPing" можно найти в руководстве по ссылке. Если результат пинга нужно записать в переменную, то см. пример по ссылке.

[Rolich]

Добрый день
То есть, если разместить код
StartPing('10.11.12.1',2000,Ping1);
StartPing('10.11.12.2',2000,Ping2);
StartPing('10.11.12.3',2000,Ping3);
в скрипте "Старт проекта", то переменные Ping1..Ping3 будут принимать значение True при наличии ответа от узла и False при отсутствии ?
Или всё-таки нужно добавлять обработку этих переменных в скрипте "Изменился пинг", добавляя дополнительные переменные для контроля наличия связи ?

[Simple_Scada]

.. переменные Ping1..Ping3 будут принимать значение True при наличии ответа от узла и False при отсутствии ?

Требуемые значения в переменные Ping1..Ping3 нужно записывать в скрипте с типом события "Изменился пинг". Дополнительные переменные для этого создавать не требуется. Внимательно ознакомьтесь с примером по ссылке - в нем все подробно описано(см. первые два скрипта).

[Rolich]

Спасибо, всё получилось !

[Владимир Николаев]

Здравствуйте. Помогите, пожалуйста с настройкой контроля связи с антенной.
Создал скрипт "Запуск проекта"

Код: (delphi)

begin
  { запускаем пинг хоста "10.0.6.100" с максимальным
    ожиданием ответа не более 3 сек. } 
  StartPing('10.0.6.100', 3000);
end.

Далее создал скрипт "Изменился пинг",

Код: (delphi)

begin
  { выводим результат пинга в компонент "Text10" }
  if PingData.Result then 
    Text10.Text := 'Хост ' + PingData.Host + ' доступен!'
  else
    Text10.Text := 'Хост ' + PingData.Host + ' не доступен!'
end.

Постоянно горит, что хост не доступен, хотя через командную строку всё пингуется. Во вложении скрины кода.
Подскажите, куда копать?

[Владимир Николаев]

Продолжая копаться, обнаружил следующее, в демопроекте тоже не работает пинг. Попробовал запустить на другой машине, всё норм.
на первой машине стоит Win7 (там где не работает), на второй Win10(работает). Проблема только с пингом, остальной функционал работает, связь с контроллерами норм.
Во втором вложении ошибка, которая появляется после перезагрузки.

[Simple-Scada]

Здравствуйте.
Для пинга скада использует стандартные ICMP-сообщения, как и утилита пинга в Windows. Видимо что-то на проблемном ПК ограничивает работу сервера скады с ICMP. Попробуйте временно отключить брандмауэр / файрвол и протестировать без них.

[Владимир Николаев]

Проверил 2 разные машины с WIN7, так и не пошло. На WIN10 проблем нет. Так решили проблемку установкой новой винды.