Пример передачи данных по протоколу Modbus на Delphi


Для примера будем использовать контроллер ОВЕН ПЛК100. Для использования Modbus ASCII или Modbus RTU нужно подключить контроллер к компьютеру через COM порт, а для Modbus TCP по сети.

В конфигурации ПЛК добавляем компонент Modbus(slave). В группе Modbus[FIX] добавляем компонент соответствующий той связи которая соединяет компьютер с контроллером. Далее в группе Modbus(slave) добавляем регистры как показано на картинке

Компонент Modbus c набором переменных в конфигурации контроллера
Переменные Modbus
  • wdvr - двухбайтовое без знаковое
  • intvr - двухбайтовое знаковое
  • dwvr - четырех байтовое без знаковое
  • dintvr - четырех байтовое знаковое
  • fltvr - четырех байтовое с плавающей точкой
  • str - изходящая строк
  • str_ - продолжение исходящей строки
  • str2 - входящая строка

Продолжению входящей строки нет необходимости присваивать имя, так как напрямую к этой переменной обращаться не будем.

Программа контроллера будет с периодом 100мс изменять значения всех переменных, что-бы данные изменения наблюдать в программе на Delphi

Создаем VCL приложение в Delphi
Программа на Delphi для примера Modbus соединения

Добавляем на форму

  • StatusBar с одним текстовым полем
  • KRTimer, в свойствах Interval=500
  • KRCOMPortConnector, в свойствах устанавливаем необходимые настройки подключения
  • KRSpeeInfo, в свойстве Component выбираем коннектор
  • KRModbusMaster, в свойствах выбираем коннектор
  • KRModbusClient, в свойствах выбираем компонент KRModbusMaster, устанавливаем адрес устройства единицу и тип Modbus протокола mbtACSII
  • Создаем Modbus переменную, для этого в структуре объектов на компоненте KRModbusClient1 открываем контекстное меню и выбираем пункт "Add". В свойствах переменной устанавливаем Interval=500, MCVarType=MCT_WORD, Name="mb000_wdvr"
  • Создаем Modbus переменную, в свойствах устанавливаем Interval=500, MCVarType=MCT_SMALLINT, Name="mb001_intvr", RegisterIndex=1
  • Создаем Modbus переменную, в свойствах устанавливаем Interval=500, MCVarType=MCT_DWORD, Name="mb002_dwvr", RegisterIndex=2
  • Создаем Modbus переменную, в свойствах устанавливаем Interval=500, MCVarType=MCT_INT, Name="mb004_dintvr", RegisterIndex=4
  • Создаем Modbus переменную, в свойствах устанавливаем Interval=500, MCVarType=MCT_SINGLE, Name="mb006_fltvr", RegisterIndex=6
  • Создаем Modbus переменную, в свойствах устанавливаем Interval=500, MCVarType=MCT_STRING, Name="mb008_str", RegisterIndex=8
  • Создаем Modbus переменную, в свойствах устанавливаем MCVarType=MCT_STRING, Name="mb012_str2", RegisterIndex=12, UpAftWrite=true, WaitForUpdates=true

Если нужно установить соединение по Modbus RTU, то в свойствах компонента KRModbusClient установить MBType=mbtACSII

Если нужно установить связи по Modbus TCP, то вместо коннектора KRCOMPortConnector нужно использовать KRTCPConnector и в свойствах компонента KRModbusClient установить MBType=mbtTCP

Пример передачи данных с контроллера ОВЕН ПЛК100 в программу на Delphi по протоколу Modbus
 
Поделиться:
0
Oleksiy Tokarchuk
22.04.2018 20:52
 
Использовал данный пример для чтения переменных с ПЛК Click.
На первой машине все работало нормально.
На второй машине установил все компоненты Kandiral, скомпилировал - запустилось.
Вернулся на первую машину с заведомо рабочим кодом - скомпилировал - error no connetcion на ком порту (другие программы к порту коннектятся)
Не подскажите, где искать причину?
Показать полностью
5
Руслан Кандирал
23.04.2018 05:23
Oleksiy Tokarchuk
 
Удачный коннект считается тогда, когда от устройства приходит ответ. То есть, возможно программа подключается к COM порту, но устройство не отвечает на запросы. С помощью событий коннектора OnSendAsync и OnRecvAsync вы можете определить идет отправка данных или нет и приходит ли ответ от устройства.
Показать полностью
0
Oleksiy Tokarchuk
23.04.2018 22:02
Руслан Кандирал
 
Спасибо. Помогло. Причину нашел. Дело было в неправильной настройке коннектора.
Еще небольшой вопрос.
У меня на KRCOMPortSets1.Init ругается undeclared identifier Init
Лень самому искать причину)
Подскажите в чем она?
Показать полностью
5
Руслан Кандирал
24.04.2018 13:31
Oleksiy Tokarchuk
 
При компиляции примера использовалась более новая версия компонентов. Я ее еще не выкладывал так как нужно сделать тесты под разные версии delphi. Вот я давал в комментариях более новую версию
https://kandiral.ru/o_sajte.html#comment...
Показать полностью

Новости сайта

06.02.2018 15:53
Добавлена программа SimpleADB
Программа SimpleADB разработана в среде Delphi XE для отладки Android устройств через утилиту adb
07.10.2017 23:57
Оптимизация библиотек Modbus для контроллеров Arduino
Сделал оптимизированный вариант библиотек Modbus под Arduino, с целью снизить размер занимаемой памяти для скетча
28.03.2017 23:51
Modbus Slave RTU/ASCII для микроконтроллеров Arduino
Реализация клиентской части протокола Modbus RTU и Modbus ASCII для контроллеров Arduino и пример использования с видео обзором

Популярные статьи

Пример передачи данных по протоколу Modbus на Delphi
Пример передачи данных с контроллера ОВЕН ПЛК100 в программу на Delphi по протоколу Modbus
Modbus Slave на Arduino
Реализация клиентской части протокола Modbus RTU и Modbus ASCII для контроллеров Arduino
Программа SimpleADB
Программа SimpleADB для отладки Android устройств, работающая посредством утилиты adb(Android Debug Bridge)