[r886]: / trunk / mqttsparkplug / mqttsparkplug-example / Device_1 / Plc Logic / Application2_1 / Edge2 / GenerateEoNData / svnobj  Maximize  Restore  History

Download this file

24 lines (23 with data), 9.3 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
SysTimeRtc.SysTimeRtcHighResGet( pTimestamp := Timestamp );
SparkPlugBSimpleTypes.arMetrics_EoN[1].Boolean := NOT SparkPlugBSimpleTypes.arMetrics_EoN[1].Boolean;
SparkPlugBSimpleTypes.arMetrics_EoN[3].uliDateTime := Timestamp;
SparkPlugBSimpleTypes.arMetrics_EoN[5].uliDateTime := SparkPlugBSimpleTypes.arMetrics_EoN[4].uliDateTime;
SparkPlugBSimpleTypes.arMetrics_EoN[7].Float := SparkPlugBSimpleTypes.arMetrics_EoN[7].Float + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[9].Double := SparkPlugBSimpleTypes.arMetrics_EoN[9].Double + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[11].Double := SparkPlugBSimpleTypes.arMetrics_EoN[11].Double + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[13].Int8 := SparkPlugBSimpleTypes.arMetrics_EoN[13].Int8 + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[15].Int16 := SparkPlugBSimpleTypes.arMetrics_EoN[15].Int16 + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[17].Int16 := SparkPlugBSimpleTypes.arMetrics_EoN[17].Int16 + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[19].Int32 := SparkPlugBSimpleTypes.arMetrics_EoN[19].Int32 + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[21].Int64 := SparkPlugBSimpleTypes.arMetrics_EoN[21].Int64 + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[23].Int64 := SparkPlugBSimpleTypes.arMetrics_EoN[23].Int64 + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[25].Uint8 := SparkPlugBSimpleTypes.arMetrics_EoN[25].Uint8 + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[27].UInt16 := SparkPlugBSimpleTypes.arMetrics_EoN[27].UInt16 + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[29].UInt16 := SparkPlugBSimpleTypes.arMetrics_EoN[29].UInt16 + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[31].UInt32 := SparkPlugBSimpleTypes.arMetrics_EoN[31].UInt32 + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[33].UInt64 := SparkPlugBSimpleTypes.arMetrics_EoN[33].UInt64 + 1;
SparkPlugBSimpleTypes.arMetrics_EoN[35].UInt64 := SparkPlugBSimpleTypes.arMetrics_EoN[35].UInt64 + 1;
Str.Rotate();
SparkPlugBSimpleTypes.arMetrics_EoN[36].String_ := Str.AsWStr;
SparkPlugBSimpleTypes.arMetrics_EoN[37].String_ := Str.AsWStr;
SparkPlugBSimpleTypes.arMetrics_EoN[38].String_ := Str.AsWStr;