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

[novtoxa]

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

[zavalroman]

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

[TDAGR_Penza]

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

[PavelGO]

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

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

[kandiral]

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;

[PavelGO]

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

[Scream]

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

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

[PavelGO]

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

[Korhan]

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

[kon48]

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