Modbus master на Delphi 7 с исходниками.

Реализовал протокол modbus tcp на сокетах в Delphi 7.

Проверял только на plc100kl.

В архиве тестовый проект под plc100kl и программка для примера использования.

В случае выявления багов пишите, буду исправлять.

--------------------------------

Свой код по работе с протоколом Modbus модернизировал, и это уже не одна библиотека, а набор компонентов, которые дают возможность связываться по протоколу Modbus (RTU/ASCII/TCP) как по сети, так и через COM порт.

Пример использования можно посмотреть тут:
https://kandiral.ru/delphi/primer_pe...na_delphi.html

самое главное, непонятно как работает Ваша запись, введя значение я не должен "париться" чтоб данные передались. А в Вашей проге я так и не разобрался, то ли запись ждет своей очереди, то ли надо на кнопку постоянно жать, чтоб поймать свободный промежуток времени для передачи. Такое положение вещей не даст Вашей программе использоваться в реальной работе.
Далее Ваша прога жестка привязана к конкретному проекту, ну и кому она после этого нужна кроме Вас :)
И не лучший вариант, фиксировать время опроса, было бы лучше еслиб оно задавалось в настройках
Последнее, это строить организацию памяти слейва таким образом, чтоб можно было принять все регистры разом, а потом уже в программе раскидать их по своим переменным, разгрузите сеть и появиться больше времени на прерывания, типа записи параметров в слейв

ЗЫ про порядок передачи байт, у Вас как то непроработан вопрос

Я предполагал использование библиотеки в других программах.

Вложенная программа приведена для демонстрирования использования библиотеки, и она явно привязана к конкретному проекту.

Запись должна происходить практически моментально, в примере это должно происходить примерно за 140ms.

Тема интересная. Может есть какое-то описание по данному коду в Delphi?

Цитата:

---

Сообщение от vojt

Тема интересная. Может есть какое-то описание по данному коду в Delphi?

---

Пока нет времени делать описание. Возможно в будущем.

В примере все видно. Я думаю можно разобраться.


Выкладываю новую версию. Исправил пару багов и добавил возможность установки отдельных битов в переменных.

Спасибо kandiral!
Пример рабочий, а это главное. Дальше попробую разобраться.
Понравилось, что приложение восстанавливает работоспособность после пропадания и возобновления связи без каких либо зависаний или ошибок.

Цитата:

---

Сообщение от kandiral

Реализовал протокол modbus tcp на сокетах в Delphi 7.

Проверял только на plc100kl.

В архиве тестовый проект под plc100kl и программка для примера использования.

В случае выявления багов пишите, буду исправлять.

---

А для BCB6 случайно нет подобной реализации ?

Цитата:

---

Сообщение от IVM

А для BCB6 случайно нет подобной реализации ?

---

Нет. Только под D7.

Весь код выложен в архиве. Его можно переделать под что угодно.

Огромное спасибо!!!!!

А с PyModbus кто-нибудь пробовал разобраться? У библиотеки куча зависимостей, для установки некоторых из них нужно или устанавливать Visual Studio, которая весит 3.5 Гб, или разбираться с вывихнутой установкой и настройкой MinGW... И это всё ради Crypto.Random?

Огромная благодарность kandiral'у!
Во вложении пример использования его библиотек в готовом проекте: два трм'a и частотник опрашивает плк 160, которого в свою очередь опрашивают панель 270 и пк-программа. ПЛК создает архив 3х значений в файле. С помощью библиотеки кандираловского PLCCommander'a программа забирает файл архива и создает таблицу в ексель.

Спасибо, коллега! На базе Ваших исходников собрали стенд проверки датчиков давления ПД100. Все отлично функционирует.

Всем привет. Пользую delphi TIdModBusClient.

.ReadHoldingRegisters(1, 34, Data);
Вопрос к знатокам:
Как слепить из data[3] и data[4] real?
В плк100 в них находится float.

Scream, для целых сработает. Но тут float должен получиться в итоге.
Почему то не вижу сообщения на форуме, только на почте.

Цитата:

---

Сообщение от PavelGO

Scream, для целых сработает. Но тут float должен получиться в итоге.
Почему то не вижу сообщения на форуме, только на почте.

---

Потому что я подумал, и удалил, с плавающей не пройдет, соглашусь.

Перевернул регистры и move в single(32bit). Целая часть правильная, а дробная гуляет сильно.
Может формат не совпадает. Сколько каких бит выделяется кодесисом на м,э и знак не могу найти инфы, только диапазоны.
Разобрался. Спасибо за участие.

function MBRegsToSINGLE(AData: TRegisters): Single;
var
dw: Cardinal;
p: pointer;
begin
dw:=AData[0];
dw:=dw or (Cardinal(AData[1]) shl 16);
p:=@dw;
Result:=Single(p^);
end;
end;

Здравствуйте форумчане!
Кто-нибудь может подсказать как использовать модуль уважаемого kandiral'а относительно CoDeSys 3.5 (СПК207)?
Или другой способ для организации связи по ModBus TCP с программой, разработка которой предполагается в IDE Delphi XE.
Буду очень благодарен.

Спасибо ! Во всех смыслах работа полезная.
С уважением Kon48

Продолжение темы, где представлен инструментарий с более расширенными возможностями
http://www.owen.ru/forum/showthread.php?t=25735

Не качается вложение Modbus.rar! Можете перезалить, пожалуйста? Пожалуйста очень надо!

Не качается вложение Modbus.rar! Можете перезалить, пожалуйста? Пожалуйста очень очень надо!

Цитата:

---

Сообщение от newtimka

Не качается вложение Modbus.rar! Можете перезалить, пожалуйста? Пожалуйста очень очень надо!

---

https://kandiral.ru/downloads/modbus.pas.html