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

Вход

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

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

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

Евгений Чистяков

29.04.2021 14:47

Руслан, добрый день. Есть несколько счетчиков СВ01 и преобразователь RS485 to TCP.
Подключаюсь к счетчикам без проблем (KRCOMPortConnector, KRModbusMasterб KRModbusClient). А как считать текущее значение счетчика - просто не понимаю. Подскажите, пожалуйста. Также, хотелось бы производить сброс на 0.
Спасибо.

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

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

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

Переменные Modbus

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

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

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

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