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