ИП320 и ПК (обычный комп)

[Otool]

procedure TModbus.SendQuery(Device, Func: Byte; const Val1, Val2: Word);
var
MsgBuffer: string;
CRC: Word;
begin
MsgBuffer := #0#0#0#0#0#0#0#0;
MsgBuffer[1] := Chr(Device);
MsgBuffer[2] := Chr(Func);
MsgBuffer[3] := Chr((Val1 shr 8) and $FF);
MsgBuffer[4] := Chr(Val1 and $FF);
MsgBuffer[5] := Chr((Val2 shr 8) and $FF);
MsgBuffer[6] := Chr(Val2 and $FF);
CRC := BuildCRC(MsgBuffer, 6);
MsgBuffer[7] := Chr(CRC and $FF);
MsgBuffer[8] := Chr((CRC shr 8) and $FF);

sp_Write(FPortHandle, PChar(MsgBuffer), 8);
end;


SendQuery(Device, F_READ_HOLDING_REGISTERS, StartAddress, Count);
....

Дата выпуска панели 05.06.08.