75 lines
1.5 KiB
Plaintext
75 lines
1.5 KiB
Plaintext
unit MQTT;
|
|
{**************************************************************************}
|
|
{ }
|
|
{**************************************************************************}
|
|
interface
|
|
|
|
const
|
|
max_gw = 10000;
|
|
PT_NAME_LEN = 10;
|
|
|
|
type
|
|
TTopicInfo = record
|
|
campus, zone, build, subSystemName : string;
|
|
posNo, devID, devNo, subSystemNo : integer;
|
|
end;
|
|
|
|
TTagInfo = record
|
|
tID : integer;
|
|
shmAddr : integer;
|
|
name : string;
|
|
desc : string;
|
|
topic : string;
|
|
val, maxVal, minVal : single;
|
|
sensorName : string;
|
|
sensorAddr : integer;
|
|
trdlog : string;
|
|
almlog : string;
|
|
almCode : integer;
|
|
almType : string;
|
|
almLevel : integer;
|
|
almHH, almH, almL, almLL : single;
|
|
Topic_01,
|
|
Topic_02,
|
|
Topic_03,
|
|
Topic_04,
|
|
Topic_05,
|
|
Topic_06,
|
|
Topic_07,
|
|
Topic_08,
|
|
Topic_09,
|
|
Json_01, Json_02 : string;
|
|
|
|
end;
|
|
|
|
TIOTGW = record
|
|
_TOPIC : string;
|
|
_DI : array [0..15] of Boolean;
|
|
_DO : array [0..7] of Boolean;
|
|
_AI : array [0..3] of integer;
|
|
_TEMP : array [0..9] of single;
|
|
_HUMID : array [0..9] of single;
|
|
run_dd, run_hh, run_mm, run_ss : integer;
|
|
end;
|
|
|
|
|
|
TNILM_VALUE = record
|
|
PF, Vrms, Irms, _Var, Va, Pwr : array [1..3] of single;
|
|
Gyro, Accel : array [1..3] of Single;
|
|
TempC : single;
|
|
end;
|
|
|
|
TNILM = record
|
|
idxNo : integer;
|
|
_TOPIC : string;
|
|
_VALUE : TNILM_VALUE;
|
|
rcvCount, oldRcvCount : integer;
|
|
end;
|
|
|
|
var
|
|
ext_flag : char = chr(0);
|
|
|
|
implementation
|
|
|
|
end.
|