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

[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;