Пример передачи данных по протоколу 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

PROGRAM PLC_PRG
VAR
	ton1: TON;
	pwd: POINTER TO WORD;
	pdw: POINTER TO DWORD;
	pint: POINTER TO INT;
	pdint: POINTER TO DINT;
	pstr: POINTER TO STRING(7);

	i: INT;
	di: DINT;
	_s0, _s1: STRING(7);
END_VAR


ton1(IN:=TRUE,PT:=T#100ms);
IF ton1.Q THEN
	ton1(IN:=FALSE);

	wdvr:=wdvr+1; 

	pint:=ADR(intvr); (* получаем указатель на Modbus переменную intvr *)
	i:=pint^; (* присваиваем значение из Modbus переменной intvr в виде двухбайтового знакового *)
	i:=i-1;
	pwd:=ADR(i);(* получаем указатель на переменную i *)
	intvr:=pwd^;(* присваиваем значение из переменной i в виде двухбайтового без знакового *)

	dwvr:=dwvr+3;

	pdint:=ADR(dintvr); (* получаем указатель на Modbus переменную dintvr *)
	di:=pdint^; (* присваиваем значение из Modbus переменной dintvr в виде четырехбайтного знакового *)
	di:=di-3;
	pdw:=ADR(di);(* получаем указатель на переменную di *)
	dintvr:=pdw^;(* присваиваем значение из переменной di в виде четырехбайтного без знакового *)

	fltvr:=fltvr+0.01;

	_s0:=DWORD_TO_STRING(dwvr+WORD_TO_DWORD(wdvr));
	pdw:=ADR(_s0);(* получаем указатель на переменную _s0 *)
	str:=pdw^;(* переносим первые четыре символа в Modbus переменную str *)
	pdw:=pdw+4;(* смещаем указатель на четыре байта *))
	str_:=pdw^;(* переносим следующие четыре символа в Modbus переменную str_ *)

	pstr:=ADR(str2);(* получаем указатель на Modbus переменную str2 *)
	_s1:=pstr^;(* переносим содержимое Modbus переменных в строку _s1 *)
END_IF

Создаем 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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, KRComponentCollection, KRVariables, KRModbusClient, KRModbusMaster, KRCOMPort,
  KRConnector, KRCOMPortConnector, KRTimer, StdCtrls, KRField, KRRuntimeErrors, KRSpeedInfo,
  ComCtrls;

type
  TForm1 = class(TForm)
    KRCOMPortConnector1: TKRCOMPortConnector;
    KRModbusMaster1: TKRModbusMaster;
    KRModbusClient1: TKRModbusClient;
    mb000_wdvr: TKRMBRegister;
    KRField1: TKRField;
    KRTimer1: TKRTimer;
    KRSpeedInfo1: TKRSpeedInfo;
    mb001_intvr: TKRMBRegister;
    mb002_dwvr: TKRMBRegister;
    mb004_dintvr: TKRMBRegister;
    mb006_fltvr: TKRMBRegister;
    KRField2: TKRField;
    KRField3: TKRField;
    KRField4: TKRField;
    KRField5: TKRField;
    mb008_str: TKRMBRegister;
    KRField6: TKRField;
    mb012_str2: TKRMBRegister;
    KRField7: TKRField;
    StatusBar1: TStatusBar;
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure KRTimer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses lgop;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  KRTimer1.Enabled:=false;
  KRModbusClient1.Active:=false;
  KRModbusMaster1.Active:=false;
  KRCOMPortConnector1.Active:=false;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  KRCOMPortConnector1.Active:=true;
  KRModbusMaster1.Active:=true;
  KRModbusClient1.Active:=true;
  KRTimer1.Enabled:=true;
  mb012_str2.UpdateValue;
end;

procedure TForm1.KRTimer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[0].Text:=_is(KRCOMPortConnector1.Stat=cstConnected,
    'Connected','No connection');
end;

end.

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

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

Пример передачи данных с контроллера ОВЕН ПЛК100 в программу на Delphi по протоколу Modbus

Вход

Комментировать

Вначале новые

Всего комментариев:

Олег Линник

05.12.2020 22:57

Здравствуйте, Руслан!
Как вы смотрите на модернизацию ваших Modbus компонентов? С целью ускорения и улучшения их работы.
Если вы не против, могу прислать Вам свой готовый вариант сделанный из ваших исходников. Вот вкратце что я сделал. Переписал KRThread с использованием событий и WaitForMultiplyObject. Теперь там нет задержек Sleep и Application.ProcessMessages. Переписал KRThreadQueue с использованием событий и критических секций. Теперь события для активации параллельного потока генерирует очередь. Применил эти новые объекты только для компонентов Modbus.
Старался всё сделать максимально аккуратно, чтобы по минимуму затрагивать ваш исходный код.
Но всё таки осмелился переделать принцип с очередями и потоками :)
Остался только один параллельный поток в Коннекторе и в нем же две очереди - входная и выходная. Изолирование данных между процессами происходит в очередях.
Теперь запрос формируется в Мастере (основной поток) и упаковывается в помощнике Мастера (основной поток) -> поступает во входную очередь Коннектора и сигнализирует параллельному потоку Коннектора.
Параллельный поток Коннектора отправляет запрос и получает ответ (через COM-BT-TCP) и добавляет полученный ответ в выходную очередь. Далее через Synchronize происходит извлечение ответа из выходной очереди и вызов Callback функций уже в основном потоке, благодаря чему они стали безопасными.
В результате сократился исполняемый код и время отклика. С параллельными потоками и изолированием данных между ними я дружу давно, так что вряд-ли где-то с ними накосячил.
Я проверил свой вариант на Modbus RTU через COM-порт. Проверить остальное сейчас возможности нет, хотя переделка затронула и BT и TCP коннекторы.
Готов выслать вам свой вариант, если вам это интересно.
Спасибо за внимание и понимание :)

Показать полностью

Поиск по сайту

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

Переменные Modbus

Создаем VCL приложение в Delphi

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

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

Популярные загрузки