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?