[Alex7]

Здравствуйте, как в Delphi 7 можно получит от UPS (ИБП) подключенного через COM-порт вот такую строку с данными: (224.0 224.0 224.0 002 50.0 13.5 34.0 00001000#

[lmikle]

Надо смотреть протокол общения с ИБП. Т.е. тебе, видимо, надо послать какую-то команду в порт и считать ответ. По поводу работы с COM-потром, вроде, есть библиотеки работы с ним, еще есть вариант маппинга COM-портов на USB. Короче, надо гуглить и пробовать.

ЗЫ. Кстати, а посмотреть на тему общения с ИБП через WMI? Может и не надо работать с портом напрямую, а попробовать получить нужные данные через WMI (Windows Management Interface).

[Alex7]

Эту строку я взял из программы UPS Assistant, при её настройке выбирается порт через который происходит общение с ИБП, так что думаю всё же надо работать с портом, только вот где найти эти наборы команд...

[Alex7]

Удалось перехватить данные при общении программы UPS Assistant с ИБП:
...
Q1 [len=2]
<20190709213344.302 RX>
(218.0 218.0 218.0 002 50.0 13.3 34.0 00001000 [len=46]
<20190709213345.504 TX>
Q1 [len=2]
<20190709213346.504 RX>
(218.0 218.0 218.0 002 50.0 13.3 34.0 00001000 [len=46]
<20190709213347.705 TX>
Q1 [len=2]
<20190709213348.705 RX>
(220.0 220.0 220.0 002 50.0 13.3 34.0 00001000 [len=46]
<20190709213349.906 TX>
Q1 [len=2]
<20190709213350.906 RX>
(220.0 220.0 220.0 002 50.0 13.3 34.0 00001000 [len=46]
<20190709213352.106 TX>
Q1 [len=2]
<20190709213353.106 RX>
(220.0 220.0 220.0 002 50.0 13.3 34.0 00001000 [len=46]
<20190709213354.324 TX>
Q1 [len=2]
...
Но где здесь команда отсылаемая ИБП?

[lmikle]

А не факт, что ты можешь перехватить то, что отправляется в порт. А может то, что отсылается и есть те строки с RX и TX в логе. Я бы для начала почитал доку разработчика на этот ИБП. Какая модель ИБП? Надо поискать в инете...

[lmikle]

Вот тут, вроде, что то есть: https://networkupstools.org/ups-protocols.html

[Alex7]

Разобрался, по команде Q1 возвращается строка с данными (224.0 224.0 224.0 002 50.0 13.5 34.0 00001000 [len=46]
Только как реализовать отправку команды и получение ответа в Delphi7?

[lmikle]

Ну, например, есть вот такая библиотека: https://sourceforge.net/projects/comport/

[Alex7]

Скачал, буду разбираться. Спасибо.