pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

V 0.2.1.0: work-in-progress. TODO: triggers form

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5610 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2017-01-08 18:49:20 +00:00
parent 6b0464cfcf
commit aad378487c
7 changed files with 522 additions and 301 deletions
Download Patch File Download Diff File Expand all files Collapse all files

315
applications/foobot/foobot_utility.pas
View File

@ -40,7 +40,8 @@ const
FOOBOT_DATA_LAST_URL = 'https://api.foobot.io/v2/device/%s/datapoint/%s/%s/%s/';
FOOBOT_DATA_START_FINISH_URL =
'https://api.foobot.io/v2/device/%s/datapoint/%s/%s/%s/';
HIGHLOWMAX = 6;
// Used throughout in arrays, counts etc.
C_TIME = 0;
C_PM = 1;
C_TMP = 2;
@ -48,12 +49,11 @@ const
C_CO2 = 4;
C_VOC = 5;
C_ALLPOLLU = 6;
C_NONE = 7;
type
TDataFetchType = (dfLast, dfStartEnd);
TSensorType = (st_time, st_pm, st_tmp, st_hum, st_co2, st_voc, st_allpollu);
TAlertType = (at_high, at_low);
TDataFetchType = (dfLast, dfStartEnd); // FetchFoobotData
TSensorType = (st_time, st_pm, st_tmp, st_hum, st_co2, st_voc, st_allpollu); // Unused
TAlertType = (at_high, at_low); // TAlertRec
TAlertRec = record
AlertTriggered: boolean;
@ -78,6 +78,10 @@ function FetchFoobotData(DataFetchType: TDataFetchType = dfLast;
// - also populates HighLow arrays
function FoobotDataObjectToArrays: boolean;
// Sets internal FooBotTriggerArray which can be tested against in FoobotDataObjectToArrays
// aSensor use consts: C_PM,C_TMP etc.
function SetHighTrigger(const aSensor: integer; const aValue: variant): boolean;
function SetLowTrigger(const aSensor: integer; const aValue: variant): boolean;
// Utility functions
function ResetArrays: boolean;
@ -85,20 +89,21 @@ function ResetObjects: boolean;
function ResetHighLows: boolean;
function SaveHighLows: boolean;
function LoadHighLows: boolean;
function SaveTriggers: boolean;
function LoadTriggers: boolean;
var
// Used to fetch server data
HttpClient: TFPHTTPClient;
// Holds identity values for multiple Foobots
// Holds identity values for multiple Foobots (FoobotIdentityObject.FoobotIdentityList)
FoobotIdentityObject: TFoobotIdentityObject;
// Holds data for current Foobot
FoobotDataObject: TFoobotDataObject;
// Used in FetchAuthenticationKey
sAuthenticationKey: string;
SensorType: TSensorType; // st_time, st_pm, st_tmp etc.
// Boolean to enable/disable serialisation of HighLows. Default = TRUE
SaveLoadHighLows: boolean;
// Boolean to enable/disable Trigger functions
// Boolean to enable/disable Trigger functions. Default = FALSE
UseTriggers: boolean;
// Used in data fetch
TheCurrentFoobot: integer;
@ -114,10 +119,10 @@ var
FoobotData_voc: array of integer;
FoobotData_allpollu: array of double;
// Set in FoobotDataObjectToArrays
FoobotDataHighs: array[0..HIGHLOWMAX] of variant;
FoobotDataLows: array[0..HIGHLOWMAX] of variant;
FoobotDataHighTimes: array[0..HIGHLOWMAX] of variant;
FoobotDataLowTimes: array[0..HIGHLOWMAX] of variant;
FoobotDataHighs: array[C_TIME..C_ALLPOLLU] of variant;
FoobotDataLows: array[C_TIME..C_ALLPOLLU] of variant;
FoobotDataHighTimes: array[C_TIME..C_ALLPOLLU] of variant;
FoobotDataLowTimes: array[C_TIME..C_ALLPOLLU] of variant;
// [0=Low(at_low)..1=High(at_high), C_PM..C_ALLPOLLU]
// Dynamic in case of future changes (e.g. more triggers)
@ -128,105 +133,217 @@ var
implementation
function SaveHighLows: boolean;
// Save values to an INI data file
function SaveTriggers: boolean;
// To foobotmonitor.ini
var
sFoobotName: string;
begin
if SaveLoadHighLows = False then
Exit(False);
Result:=FALSE; // assume failure
if FoobotIdentityObject.FoobotIdentityList.Count = 0 then Exit(FALSE);
sFoobotName := FoobotIdentityObject.FoobotIdentityList[TheCurrentFoobot].Name;
if (sFoobotName = '') then
Exit(False);
if not Assigned(HLINI) then
HLINI := TIniFile.Create(ChangeFileExt(GetAppConfigFile(False), '.ini'));
// Store current Foobot info
HLINI.WriteInteger('Foobot', 'CurrentFoobot', TheCurrentFoobot);
HLINI.WriteString('Foobot', 'CurrentFoobotName', sFoobotName);
// Particulates
HLINI.WriteFloat(sFoobotName, 'pmHigh', double(FoobotDataHighs[C_PM]));
HLINI.WriteDateTime(sFoobotName, 'pmHighTime', TDateTime(FoobotDataHighTimes[C_PM]));
HLINI.WriteFloat(sFoobotName, 'pmLow', double(FoobotDataLows[C_PM]));
HLINI.WriteDateTime(sFoobotName, 'pmLowTime', TDateTime(FoobotDataLowTimes[C_PM]));
// Temp
HLINI.WriteFloat(sFoobotName, 'tmpHigh', double(FoobotDataHighs[C_TMP]));
HLINI.WriteDateTime(sFoobotName, 'tmpHighTime', TDateTime(FoobotDataHighTimes[C_TMP]));
HLINI.WriteFloat(sFoobotName, 'tmpLow', double(FoobotDataLows[C_TMP]));
HLINI.WriteDateTime(sFoobotName, 'tmpLowTime', TDateTime(FoobotDataLowTimes[C_TMP]));
// Humidity
HLINI.WriteFloat(sFoobotName, 'humHigh', double(FoobotDataHighs[C_HUM]));
HLINI.WriteDateTime(sFoobotName, 'humHighTime', TDateTime(FoobotDataHighTimes[C_HUM]));
HLINI.WriteFloat(sFoobotName, 'humLow', double(FoobotDataLows[C_HUM]));
HLINI.WriteDateTime(sFoobotName, 'humLowTime', TDateTime(FoobotDataLowTimes[C_HUM]));
// CO2
HLINI.WriteInteger(sFoobotName, 'co2High', integer(FoobotDataHighs[C_CO2]));
HLINI.WriteDateTime(sFoobotName, 'co2HighTime', TDateTime(FoobotDataHighTimes[C_CO2]));
HLINI.WriteInteger(sFoobotName, 'co2Low', integer(FoobotDataLows[C_CO2]));
HLINI.WriteDateTime(sFoobotName, 'co2LowTime', TDateTime(FoobotDataLowTimes[C_CO2]));
// Volatile Compounds
HLINI.WriteInteger(sFoobotName, 'vocHigh', integer(FoobotDataHighs[C_VOC]));
HLINI.WriteDateTime(sFoobotName, 'vocHighTime', TDateTime(FoobotDataHighTimes[C_VOC]));
HLINI.WriteInteger(sFoobotName, 'vocLow', integer(FoobotDataLows[C_VOC]));
HLINI.WriteDateTime(sFoobotName, 'vocLowTime', TDateTime(FoobotDataLowTimes[C_VOC]));
// All Pollution
HLINI.WriteFloat(sFoobotName, 'allpolluHigh', double(FoobotDataHighs[C_ALLPOLLU]));
HLINI.WriteDateTime(sFoobotName, 'allpolluHighTime',
TDateTime(FoobotDataHighTimes[C_ALLPOLLU]));
HLINI.WriteFloat(sFoobotName, 'allpolluLow', double(FoobotDataLows[C_ALLPOLLU]));
HLINI.WriteDateTime(sFoobotName, 'allpolluLowTime',
TDateTime(FoobotDataLowTimes[C_ALLPOLLU]));
Result := True;
try
// Store current Foobot triggers
with HLINI do
begin
WriteInteger('Foobot', 'CurrentFoobot', TheCurrentFoobot);
WriteString('Foobot', 'CurrentFoobotName', sFoobotName);
WriteFloat(sFoobotName, 'pmTriggerHigh',
double(FooBotTriggerArray[Ord(at_high), C_PM]));
WriteFloat(sFoobotName, 'pmTriggerLow',
double(FooBotTriggerArray[Ord(at_Low), C_PM]));
WriteFloat(sFoobotName, 'tmpTriggerHigh',
double(FooBotTriggerArray[Ord(at_high), C_TMP]));
WriteFloat(sFoobotName, 'tmpTriggerLow',
double(FooBotTriggerArray[Ord(at_Low), C_TMP]));
WriteFloat(sFoobotName, 'humTriggerHigh',
double(FooBotTriggerArray[Ord(at_high), C_HUM]));
WriteFloat(sFoobotName, 'humTriggerLow',
double(FooBotTriggerArray[Ord(at_Low), C_HUM]));
WriteFloat(sFoobotName, 'co2TriggerHigh',
double(FooBotTriggerArray[Ord(at_high), C_CO2]));
WriteFloat(sFoobotName, 'co2TriggerLow',
double(FooBotTriggerArray[Ord(at_Low), C_CO2]));
WriteFloat(sFoobotName, 'vocTriggerHigh',
double(FooBotTriggerArray[Ord(at_high), C_VOC]));
WriteFloat(sFoobotName, 'vocTriggerLow',
double(FooBotTriggerArray[Ord(at_Low), C_VOC]));
WriteFloat(sFoobotName, 'allpolluTriggerHigh',
double(FooBotTriggerArray[Ord(at_high), C_ALLPOLLU]));
WriteFloat(sFoobotName, 'allpolluTriggerLow',
double(FooBotTriggerArray[Ord(at_Low), C_ALLPOLLU]));
end;
Result := True;
except
raise Exception.Create('Could not save Triggers');
end;
end;
function LoadHighLows: boolean;
// Load values from an INI data file
function LoadTriggers: boolean;
// From foobotmonitor.ini
var
sFoobotName: string;
begin
if SaveLoadHighLows = False then
begin
ShowMessage('Unable to load All-Time stats');
Exit(False);
end;
Result:=FALSE; // assume failure
if FoobotIdentityObject.FoobotIdentityList.Count = 0 then Exit(FALSE);
sFoobotName := FoobotIdentityObject.FoobotIdentityList[TheCurrentFoobot].Name;
if (sFoobotName = '') then
Exit(False);
if not Assigned(HLINI) then
HLINI := TIniFile.Create(ChangeFileExt(GetAppConfigFile(False), '.ini'));
// Make sure the High-Lows are for the current Foobot
if (HLINI.ReadString('Foobot', 'CurrentFoobotName', 'unknown') <> sFoobotName) then
Exit(False);
try
// Load current Foobot triggers
with HLINI do
begin
FooBotTriggerArray[Ord(at_high), C_PM] := ReadFloat(sFoobotName, 'pmTriggerHigh', 0);
FooBotTriggerArray[Ord(at_low), C_PM] := ReadFloat(sFoobotName, 'pmTriggerLow', 0);
FooBotTriggerArray[Ord(at_high), C_TMP] := ReadFloat(sFoobotName, 'tmpTriggerHigh', 0);
FooBotTriggerArray[Ord(at_low), C_TMP] := ReadFloat(sFoobotName, 'tmpTriggerLow', 0);
FooBotTriggerArray[Ord(at_high), C_HUM] := ReadFloat(sFoobotName, 'humTriggerHigh', 0);
FooBotTriggerArray[Ord(at_low), C_HUM] := ReadFloat(sFoobotName, 'humTriggerLow', 0);
FooBotTriggerArray[Ord(at_high), C_CO2] := ReadFloat(sFoobotName, 'co2TriggerHigh', 0);
FooBotTriggerArray[Ord(at_low), C_CO2] := ReadFloat(sFoobotName, 'co2TriggerLow', 0);
FooBotTriggerArray[Ord(at_high), C_VOC] := ReadFloat(sFoobotName, 'vocTriggerHigh', 0);
FooBotTriggerArray[Ord(at_low), C_VOC] := ReadFloat(sFoobotName, 'vocTriggerLow', 0);
FooBotTriggerArray[Ord(at_high), C_ALLPOLLU] :=
ReadFloat(sFoobotName, 'allpolluTriggerHigh', 0);
FooBotTriggerArray[Ord(at_low), C_ALLPOLLU] :=
ReadFloat(sFoobotName, 'allpolluTriggerLow', 0);
end;
Result := True;
except
raise Exception.Create('Could not load Triggers');
end;
end;
// Particulates
FoobotDataHighs[C_PM] := HLINI.ReadFloat(sFoobotName, 'pmHigh', 0);
FoobotDataHighTimes[C_PM] := HLINI.ReadDateTime(sFoobotName, 'pmHighTime', Now);
FoobotDataLows[C_PM] := HLINI.ReadFloat(sFoobotName, 'pmLow', 0);
FoobotDataLowTimes[C_PM] := HLINI.ReadDateTime(sFoobotName, 'pmLowTime', Now);
// Temp
FoobotDataHighs[C_TMP] := HLINI.ReadFloat(sFoobotName, 'tmpHigh', 0);
FoobotDataHighTimes[C_TMP] := HLINI.ReadDateTime(sFoobotName, 'tmpHighTime', Now);
FoobotDataLows[C_TMP] := HLINI.ReadFloat(sFoobotName, 'tmpLow', 0);
FoobotDataLowTimes[C_TMP] := HLINI.ReadDateTime(sFoobotName, 'tmpLowTime', Now);
// Humidity
FoobotDataHighs[C_HUM] := HLINI.ReadFloat(sFoobotName, 'humHigh', 0);
FoobotDataHighTimes[C_HUM] := HLINI.ReadDateTime(sFoobotName, 'humHighTime', Now);
FoobotDataLows[C_HUM] := HLINI.ReadFloat(sFoobotName, 'humLow', 0);
FoobotDataLowTimes[C_HUM] := HLINI.ReadDateTime(sFoobotName, 'humLowTime', Now);
// CO2
FoobotDataHighs[C_CO2] := HLINI.ReadInteger(sFoobotName, 'co2High', 0);
FoobotDataHighTimes[C_CO2] := HLINI.ReadDateTime(sFoobotName, 'co2HighTime', Now);
FoobotDataLows[C_CO2] := HLINI.ReadInteger(sFoobotName, 'co2Low', 0);
FoobotDataLowTimes[C_CO2] := HLINI.ReadDateTime(sFoobotName, 'co2LowTime', Now);
// Volatile Compounds
FoobotDataHighs[C_VOC] := HLINI.ReadInteger(sFoobotName, 'vocHigh', 0);
FoobotDataHighTimes[C_VOC] := HLINI.ReadDateTime(sFoobotName, 'vocHighTime', Now);
FoobotDataLows[C_VOC] := HLINI.ReadInteger(sFoobotName, 'vocLow', 0);
FoobotDataLowTimes[C_VOC] := HLINI.ReadDateTime(sFoobotName, 'vocLowTime', Now);
// All Pollution
FoobotDataHighs[C_ALLPOLLU] := HLINI.ReadFloat(sFoobotName, 'allpolluHigh', 0);
FoobotDataHighTimes[C_ALLPOLLU] :=
HLINI.ReadDateTime(sFoobotName, 'allpolluHighTime', Now);
FoobotDataLows[C_ALLPOLLU] := HLINI.ReadFloat(sFoobotName, 'allpolluLow', 0);
FoobotDataLowTimes[C_ALLPOLLU] :=
HLINI.ReadDateTime(sFoobotName, 'allpolluLowTime', Now);
Result := True;
function SaveHighLows: boolean;
// Save values to an INI data file
// To foobotmonitor.ini
var
sFoobotName: string;
begin
Result:=FALSE; // assume failure
if SaveLoadHighLows = False then
Exit(False);
if FoobotIdentityObject.FoobotIdentityList.Count = 0 then Exit(FALSE);
sFoobotName := FoobotIdentityObject.FoobotIdentityList[TheCurrentFoobot].Name;
if (sFoobotName = '') then
Exit(False);
if not Assigned(HLINI) then
HLINI := TIniFile.Create(ChangeFileExt(GetAppConfigFile(False), '.ini'));
// Store current Foobot info
try
with HLINI do
begin
WriteInteger('Foobot', 'CurrentFoobot', TheCurrentFoobot);
WriteString('Foobot', 'CurrentFoobotName', sFoobotName);
// Particulates
WriteFloat(sFoobotName, 'pmHigh', double(FoobotDataHighs[C_PM]));
WriteDateTime(sFoobotName, 'pmHighTime', TDateTime(FoobotDataHighTimes[C_PM]));
WriteFloat(sFoobotName, 'pmLow', double(FoobotDataLows[C_PM]));
WriteDateTime(sFoobotName, 'pmLowTime', TDateTime(FoobotDataLowTimes[C_PM]));
// Temp
WriteFloat(sFoobotName, 'tmpHigh', double(FoobotDataHighs[C_TMP]));
WriteDateTime(sFoobotName, 'tmpHighTime', TDateTime(FoobotDataHighTimes[C_TMP]));
WriteFloat(sFoobotName, 'tmpLow', double(FoobotDataLows[C_TMP]));
WriteDateTime(sFoobotName, 'tmpLowTime', TDateTime(FoobotDataLowTimes[C_TMP]));
// Humidity
WriteFloat(sFoobotName, 'humHigh', double(FoobotDataHighs[C_HUM]));
WriteDateTime(sFoobotName, 'humHighTime', TDateTime(FoobotDataHighTimes[C_HUM]));
WriteFloat(sFoobotName, 'humLow', double(FoobotDataLows[C_HUM]));
WriteDateTime(sFoobotName, 'humLowTime', TDateTime(FoobotDataLowTimes[C_HUM]));
// CO2
WriteInteger(sFoobotName, 'co2High', integer(FoobotDataHighs[C_CO2]));
WriteDateTime(sFoobotName, 'co2HighTime', TDateTime(FoobotDataHighTimes[C_CO2]));
WriteInteger(sFoobotName, 'co2Low', integer(FoobotDataLows[C_CO2]));
WriteDateTime(sFoobotName, 'co2LowTime', TDateTime(FoobotDataLowTimes[C_CO2]));
// Volatile Compounds
WriteInteger(sFoobotName, 'vocHigh', integer(FoobotDataHighs[C_VOC]));
WriteDateTime(sFoobotName, 'vocHighTime', TDateTime(FoobotDataHighTimes[C_VOC]));
WriteInteger(sFoobotName, 'vocLow', integer(FoobotDataLows[C_VOC]));
WriteDateTime(sFoobotName, 'vocLowTime', TDateTime(FoobotDataLowTimes[C_VOC]));
// All Pollution
WriteFloat(sFoobotName, 'allpolluHigh', double(FoobotDataHighs[C_ALLPOLLU]));
WriteDateTime(sFoobotName, 'allpolluHighTime',
TDateTime(FoobotDataHighTimes[C_ALLPOLLU]));
WriteFloat(sFoobotName, 'allpolluLow', double(FoobotDataLows[C_ALLPOLLU]));
WriteDateTime(sFoobotName, 'allpolluLowTime',
TDateTime(FoobotDataLowTimes[C_ALLPOLLU]));
Result := True;
end;
except
raise Exception.Create('Could not save HighLows');
end;
end;
function LoadHighLows: boolean;
// Load values from an INI data file
// From foobotmonitor.ini
var
sFoobotName: string;
begin
Result:=FALSE; // assume failure
if SaveLoadHighLows = False then
begin
ShowMessage('Unable to load All-Time stats');
Exit(False);
end;
if FoobotIdentityObject.FoobotIdentityList.Count = 0 then Exit(FALSE);
sFoobotName := FoobotIdentityObject.FoobotIdentityList[TheCurrentFoobot].Name;
if (sFoobotName = '') then
Exit(False);
if not Assigned(HLINI) then
HLINI := TIniFile.Create(ChangeFileExt(GetAppConfigFile(False), '.ini'));
// Make sure the High-Lows are for the current Foobot
if (HLINI.ReadString('Foobot', 'CurrentFoobotName', 'unknown') <> sFoobotName) then
Exit(False);
try
with HLINI do
begin
// Particulates
FoobotDataHighs[C_PM] := ReadFloat(sFoobotName, 'pmHigh', 0);
FoobotDataHighTimes[C_PM] := ReadDateTime(sFoobotName, 'pmHighTime', Now);
FoobotDataLows[C_PM] := ReadFloat(sFoobotName, 'pmLow', 0);
FoobotDataLowTimes[C_PM] := ReadDateTime(sFoobotName, 'pmLowTime', Now);
// Temp
FoobotDataHighs[C_TMP] := ReadFloat(sFoobotName, 'tmpHigh', 0);
FoobotDataHighTimes[C_TMP] := ReadDateTime(sFoobotName, 'tmpHighTime', Now);
FoobotDataLows[C_TMP] := ReadFloat(sFoobotName, 'tmpLow', 0);
FoobotDataLowTimes[C_TMP] := ReadDateTime(sFoobotName, 'tmpLowTime', Now);
// Humidity
FoobotDataHighs[C_HUM] := ReadFloat(sFoobotName, 'humHigh', 0);
FoobotDataHighTimes[C_HUM] := ReadDateTime(sFoobotName, 'humHighTime', Now);
FoobotDataLows[C_HUM] := ReadFloat(sFoobotName, 'humLow', 0);
FoobotDataLowTimes[C_HUM] := ReadDateTime(sFoobotName, 'humLowTime', Now);
// CO2
FoobotDataHighs[C_CO2] := ReadInteger(sFoobotName, 'co2High', 0);
FoobotDataHighTimes[C_CO2] := ReadDateTime(sFoobotName, 'co2HighTime', Now);
FoobotDataLows[C_CO2] := ReadInteger(sFoobotName, 'co2Low', 0);
FoobotDataLowTimes[C_CO2] := ReadDateTime(sFoobotName, 'co2LowTime', Now);
// Volatile Compounds
FoobotDataHighs[C_VOC] := ReadInteger(sFoobotName, 'vocHigh', 0);
FoobotDataHighTimes[C_VOC] := ReadDateTime(sFoobotName, 'vocHighTime', Now);
FoobotDataLows[C_VOC] := ReadInteger(sFoobotName, 'vocLow', 0);
FoobotDataLowTimes[C_VOC] := ReadDateTime(sFoobotName, 'vocLowTime', Now);
// All Pollution
FoobotDataHighs[C_ALLPOLLU] := ReadFloat(sFoobotName, 'allpolluHigh', 0);
FoobotDataHighTimes[C_ALLPOLLU] :=
ReadDateTime(sFoobotName, 'allpolluHighTime', Now);
FoobotDataLows[C_ALLPOLLU] := ReadFloat(sFoobotName, 'allpolluLow', 0);
FoobotDataLowTimes[C_ALLPOLLU] :=
ReadDateTime(sFoobotName, 'allpolluLowTime', Now);
Result := True;
end;
except
raise Exception.Create('Could not Load HighLows');
end;
end;
// Function to make the Foobot data accessible
@ -361,15 +478,15 @@ begin
SetHigh(J, FoobotData_allpollu[K], FoobotData_time[K]);
SetLow(J, FoobotData_allpollu[K], FoobotData_time[K]);
end;
else raise Exception.Create('Error in FoobotDataObjectToArrays Case');
else
raise Exception.Create('Error in FoobotDataObjectToArrays Case');
end; // of Case
end;
end;
end;
function SetHighTrigger(const aSensor: TSensorType; const aValue: variant): boolean;
function SetHighTrigger(const aSensor: integer; const aValue: variant): boolean;
begin
Result := False;
if UseTriggers = False then
@ -381,7 +498,7 @@ begin
end;
end;
function SetLowTrigger(const aSensor: TSensorType; const aValue: variant): boolean;
function SetLowTrigger(const aSensor: integer; const aValue: variant): boolean;
begin
Result := False;
if UseTriggers = False then
@ -398,7 +515,7 @@ function ResetHighLows: boolean;
var
iCount: integer;
begin
for iCount := 0 to HIGHLOWMAX do
for iCount := C_TIME to C_ALLPOLLU do
begin
FoobotDataHighs[iCount] := 0;
FoobotDataLows[iCount] := 0;

48
applications/foobot/latest_stable/foobot_objects.pas
View File

@ -1,4 +1,5 @@
unit foobot_objects;
{ Objects for Foobot Lazarus
Copyright (C)2016 Gordon Bamber minsadorada@charcodelvalle.com
@ -40,7 +41,7 @@ type
property uuid: string read Fuuid write Fuuid;
property userId: integer read FuserId write FuserId;
property mac: string read FMac write FMac;
property name: string read FName write FName;
property Name: string read FName write FName;
end;
{TFoobotIdentityList}
@ -65,26 +66,24 @@ type
type
TFoobotDataObject = class(TPersistent)
private
FDataPoints:Variant;
FSensors:TStrings;
FUnits:TStrings;
Fuuid:String;
FStart:Int64;
FEnd:Int64;
public
constructor Create;
Destructor Destroy; override;
function SaveToFile(const AFilename: string): boolean;
published
property uuid:String read Fuuid write Fuuid;
property start:Int64 read FStart write FStart;
property &end:Int64 read FEnd write FEnd;
property sensors:TStrings
read FSensors write FSensors;
property units:TStrings
read FUnits write FUnits;
property datapoints : Variant read FDataPoints write FDataPoints;
private
FDataPoints: variant;
FSensors: TStrings;
FUnits: TStrings;
Fuuid: string;
FStart: int64;
FEnd: int64;
public
constructor Create;
destructor Destroy; override;
function SaveToFile(const AFilename: string): boolean;
published
property uuid: string read Fuuid write Fuuid;
property start: int64 read FStart write FStart;
property &end:Int64 read FEnd write FEnd;
property sensors: TStrings read FSensors write FSensors;
property units: TStrings read FUnits write FUnits;
property datapoints: variant read FDataPoints write FDataPoints;
end;
@ -93,11 +92,12 @@ implementation
constructor TFoobotDataObject.Create;
begin
inherited;
FSensors:=TStringList.Create;
FUnits:=TstringList.Create;
FSensors := TStringList.Create;
FUnits := TStringList.Create;
end;
Destructor TFoobotDataObject.Destroy;
destructor TFoobotDataObject.Destroy;
begin
FSensors.Free;
FUnits.Free;

199
applications/foobot/monitor/foobotmonitor.lps
View File

@ -3,14 +3,14 @@
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="10"/>
<BuildModes Active="Debug"/>
<BuildModes Active="win32"/>
<Units Count="33">
<Unit0>
<Filename Value="foobotmonitor.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="14"/>
<EditorIndex Value="12"/>
<CursorPos Y="35"/>
<UsageCount Value="102"/>
<UsageCount Value="108"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
@ -19,9 +19,9 @@
<ComponentName Value="mainform"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<TopLine Value="808"/>
<CursorPos X="54" Y="821"/>
<UsageCount Value="102"/>
<IsVisibleTab Value="True"/>
<CursorPos X="26" Y="19"/>
<UsageCount Value="108"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
@ -31,10 +31,10 @@
<ComponentName Value="configform"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="9"/>
<EditorIndex Value="7"/>
<TopLine Value="33"/>
<CursorPos X="41" Y="45"/>
<UsageCount Value="92"/>
<UsageCount Value="98"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit2>
@ -44,7 +44,7 @@
<EditorIndex Value="-1"/>
<TopLine Value="380"/>
<CursorPos X="35" Y="387"/>
<UsageCount Value="84"/>
<UsageCount Value="90"/>
</Unit3>
<Unit4>
<Filename Value="..\foobot_objects.pas"/>
@ -53,16 +53,15 @@
<WindowIndex Value="-1"/>
<TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/>
<UsageCount Value="84"/>
<UsageCount Value="90"/>
</Unit4>
<Unit5>
<Filename Value="..\foobot_utility.pas"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="11"/>
<TopLine Value="337"/>
<CursorPos X="13" Y="364"/>
<UsageCount Value="102"/>
<EditorIndex Value="9"/>
<TopLine Value="88"/>
<CursorPos X="45" Y="108"/>
<UsageCount Value="108"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
@ -72,15 +71,15 @@
<WindowIndex Value="-1"/>
<TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/>
<UsageCount Value="84"/>
<UsageCount Value="90"/>
</Unit6>
<Unit7>
<Filename Value="foobot_sensors.pas"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="6"/>
<EditorIndex Value="4"/>
<TopLine Value="299"/>
<CursorPos X="14" Y="321"/>
<UsageCount Value="36"/>
<UsageCount Value="42"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
@ -91,7 +90,7 @@
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="2"/>
<CursorPos X="42" Y="25"/>
<UsageCount Value="31"/>
<UsageCount Value="37"/>
<Loaded Value="True"/>
</Unit8>
<Unit9>
@ -101,25 +100,25 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<EditorIndex Value="1"/>
<CursorPos X="22" Y="7"/>
<UsageCount Value="22"/>
<CursorPos X="57" Y="24"/>
<UsageCount Value="28"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit9>
<Unit10>
<Filename Value="..\latest_stable\foobot_httpclient.pas"/>
<EditorIndex Value="10"/>
<EditorIndex Value="8"/>
<TopLine Value="43"/>
<CursorPos X="47" Y="13"/>
<UsageCount Value="68"/>
<UsageCount Value="70"/>
<Loaded Value="True"/>
</Unit10>
<Unit11>
<Filename Value="..\latest_stable\foobot_objects.pas"/>
<EditorIndex Value="13"/>
<TopLine Value="52"/>
<CursorPos Y="90"/>
<UsageCount Value="68"/>
<EditorIndex Value="11"/>
<TopLine Value="46"/>
<CursorPos X="35" Y="59"/>
<UsageCount Value="70"/>
<Loaded Value="True"/>
</Unit11>
<Unit12>
@ -128,12 +127,12 @@
<WindowIndex Value="-1"/>
<TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/>
<UsageCount Value="35"/>
<UsageCount Value="34"/>
</Unit12>
<Unit13>
<Filename Value="..\latest_stable\umainform.lfm"/>
<EditorIndex Value="-1"/>
<UsageCount Value="7"/>
<UsageCount Value="6"/>
<DefaultSyntaxHighlighter Value="LFM"/>
</Unit13>
<Unit14>
@ -141,21 +140,21 @@
<EditorIndex Value="-1"/>
<TopLine Value="10"/>
<CursorPos X="57" Y="36"/>
<UsageCount Value="7"/>
<UsageCount Value="6"/>
</Unit14>
<Unit15>
<Filename Value="..\udataform.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="74"/>
<CursorPos Y="96"/>
<UsageCount Value="15"/>
<UsageCount Value="14"/>
</Unit15>
<Unit16>
<Filename Value="..\umainform.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="145"/>
<CursorPos X="81" Y="158"/>
<UsageCount Value="43"/>
<UsageCount Value="42"/>
</Unit16>
<Unit17>
<Filename Value="C:\trunklatest\lazarus\lcl\lclmessageglue.pas"/>
@ -163,34 +162,34 @@
<EditorIndex Value="-1"/>
<TopLine Value="93"/>
<CursorPos Y="114"/>
<UsageCount Value="7"/>
<UsageCount Value="6"/>
</Unit17>
<Unit18>
<Filename Value="..\ulogin.pas"/>
<EditorIndex Value="-1"/>
<CursorPos Y="108"/>
<UsageCount Value="10"/>
<UsageCount Value="9"/>
</Unit18>
<Unit19>
<Filename Value="..\..\..\components\cryptini\latest_stable\ucryptini.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="906"/>
<CursorPos X="8" Y="939"/>
<UsageCount Value="8"/>
<UsageCount Value="7"/>
</Unit19>
<Unit20>
<Filename Value="..\backup\foobot_utility.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="7"/>
<UsageCount Value="7"/>
<UsageCount Value="6"/>
</Unit20>
<Unit21>
<Filename Value="C:\trunklatest\lazarus\ide\lazarus.pp"/>
<UnitName Value="Lazarus"/>
<EditorIndex Value="7"/>
<EditorIndex Value="5"/>
<TopLine Value="101"/>
<CursorPos Y="154"/>
<UsageCount Value="19"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit21>
<Unit22>
@ -198,73 +197,71 @@
<EditorIndex Value="-1"/>
<TopLine Value="11"/>
<CursorPos X="8" Y="33"/>
<UsageCount Value="8"/>
<UsageCount Value="7"/>
</Unit22>
<Unit23>
<Filename Value="D:\Lazarusprojects\healthmonitor\svn\healthanalysis\healthanalysis\umainform.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="540"/>
<CursorPos X="55" Y="593"/>
<UsageCount Value="8"/>
<UsageCount Value="7"/>
</Unit23>
<Unit24>
<Filename Value="C:\trunklatest\fpc\rtl\objpas\sysutils\datih.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="109"/>
<CursorPos X="10" Y="128"/>
<UsageCount Value="7"/>
<UsageCount Value="6"/>
</Unit24>
<Unit25>
<Filename Value="C:\trunklatest\fpc\packages\rtl-objpas\src\inc\dateutil.inc"/>
<EditorIndex Value="12"/>
<EditorIndex Value="10"/>
<TopLine Value="381"/>
<CursorPos X="13" Y="384"/>
<UsageCount Value="37"/>
<UsageCount Value="39"/>
<Loaded Value="True"/>
</Unit25>
<Unit26>
<Filename Value="..\latest_stable\udataform.pas"/>
<EditorIndex Value="8"/>
<EditorIndex Value="6"/>
<TopLine Value="70"/>
<UsageCount Value="37"/>
<UsageCount Value="39"/>
<Loaded Value="True"/>
</Unit26>
<Unit27>
<Filename Value="D:\lazarustrunk\common_components\cryptini\ucryptini.pas"/>
<EditorIndex Value="5"/>
<EditorIndex Value="-1"/>
<TopLine Value="781"/>
<CursorPos X="28" Y="795"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<UsageCount Value="21"/>
</Unit27>
<Unit28>
<Filename Value="C:\trunklatest\fpc\packages\fcl-base\src\fileinfo.pp"/>
<EditorIndex Value="-1"/>
<TopLine Value="43"/>
<CursorPos X="19" Y="51"/>
<UsageCount Value="11"/>
<UsageCount Value="10"/>
</Unit28>
<Unit29>
<Filename Value="C:\trunklatest\lazarus\components\IndustrialStuff\industrial.pas"/>
<EditorIndex Value="-1"/>
<CursorPos X="18" Y="11"/>
<UsageCount Value="9"/>
<UsageCount Value="8"/>
</Unit29>
<Unit30>
<Filename Value="..\..\..\components\poweredby\latest_stable\upoweredby.pas"/>
<UnitName Value="uPoweredby"/>
<EditorIndex Value="4"/>
<EditorIndex Value="-1"/>
<TopLine Value="190"/>
<CursorPos X="33" Y="205"/>
<UsageCount Value="19"/>
<Loaded Value="True"/>
<UsageCount Value="18"/>
</Unit30>
<Unit31>
<Filename Value="C:\trunklatest\lazarus\lcl\include\customform.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="2228"/>
<CursorPos X="14" Y="2239"/>
<UsageCount Value="9"/>
<UsageCount Value="8"/>
</Unit31>
<Unit32>
<Filename Value="C:\trunklatest\lazarus\lcl\graphics.pp"/>
@ -272,130 +269,130 @@
<EditorIndex Value="3"/>
<TopLine Value="1811"/>
<CursorPos X="13" Y="1834"/>
<UsageCount Value="15"/>
<UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit32>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="72" Column="34" TopLine="44"/>
<Caret Line="374" Column="51" TopLine="327"/>
</Position1>
<Position2>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="339" Column="25" TopLine="289"/>
<Caret Line="83" Column="46" TopLine="97"/>
</Position2>
<Position3>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="330" Column="40" TopLine="301"/>
<Caret Line="100" Column="5" TopLine="93"/>
</Position3>
<Position4>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="47" Column="84" TopLine="27"/>
<Caret Line="101" Column="28" TopLine="93"/>
</Position4>
<Position5>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="233" Column="46" TopLine="213"/>
<Caret Line="374" Column="47" TopLine="348"/>
</Position5>
<Position6>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="343" TopLine="303"/>
<Caret Line="386" Column="46" TopLine="348"/>
</Position6>
<Position7>
<Filename Value="umainform.pas"/>
<Caret Line="795" Column="55" TopLine="748"/>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="55" Column="89" TopLine="28"/>
</Position7>
<Position8>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="80" Column="9" TopLine="68"/>
<Filename Value="umainform.pas"/>
<Caret Line="502" Column="28" TopLine="492"/>
</Position8>
<Position9>
<Filename Value="umainform.pas"/>
<Caret Line="43" Column="66" TopLine="23"/>
<Caret Line="509" Column="28" TopLine="499"/>
</Position9>
<Position10>
<Filename Value="usplash.pas"/>
<Caret Line="38" Column="19"/>
<Filename Value="umainform.pas"/>
<Caret Line="491" Column="12" TopLine="489"/>
</Position10>
<Position11>
<Filename Value="utriggersform.pas"/>
<Caret Line="26" Column="7"/>
<Caret Line="18" Column="57"/>
</Position11>
<Position12>
<Filename Value="utriggersform.pas"/>
<Caret Line="34" Column="50"/>
<Caret Line="19" Column="57"/>
</Position12>
<Position13>
<Filename Value="utriggersform.pas"/>
<Caret Line="35" Column="50"/>
<Caret Line="20" Column="57"/>
</Position13>
<Position14>
<Filename Value="utriggersform.pas"/>
<Caret Line="37" Column="50"/>
<Caret Line="21" Column="57"/>
</Position14>
<Position15>
<Filename Value="umainform.pas"/>
<Caret Line="30" Column="19" TopLine="23"/>
<Filename Value="utriggersform.pas"/>
<Caret Line="22" Column="57"/>
</Position15>
<Position16>
<Filename Value="umainform.pas"/>
<Caret Line="537" Column="25" TopLine="533"/>
<Filename Value="utriggersform.pas"/>
<Caret Line="23" Column="57"/>
</Position16>
<Position17>
<Filename Value="umainform.pas"/>
<Caret Line="41" Column="58" TopLine="31"/>
<Filename Value="utriggersform.pas"/>
<Caret Line="24" Column="57"/>
</Position17>
<Position18>
<Filename Value="umainform.pas"/>
<Caret Line="538" TopLine="536"/>
<Filename Value="utriggersform.pas"/>
<Caret Line="25" Column="57"/>
</Position18>
<Position19>
<Filename Value="umainform.pas"/>
<Caret Line="556" Column="54" TopLine="550"/>
<Filename Value="utriggersform.pas"/>
<Caret Line="24" Column="57"/>
</Position19>
<Position20>
<Filename Value="umainform.pas"/>
<Caret Line="10" Column="25"/>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="149" Column="77" TopLine="117"/>
</Position20>
<Position21>
<Filename Value="umainform.pas"/>
<Caret Line="831" Column="18" TopLine="793"/>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="139" TopLine="124"/>
</Position21>
<Position22>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="637" Column="41" TopLine="604"/>
<Caret Line="151" Column="82" TopLine="123"/>
</Position22>
<Position23>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="127" Column="45" TopLine="88"/>
<Caret Line="181" Column="81" TopLine="140"/>
</Position23>
<Position24>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="639" Column="30" TopLine="606"/>
<Filename Value="umainform.pas"/>
<Caret Line="12" Column="24"/>
</Position24>
<Position25>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="640" Column="9" TopLine="606"/>
<Filename Value="umainform.pas"/>
<Caret Line="630" Column="16" TopLine="613"/>
</Position25>
<Position26>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="86" TopLine="59"/>
<Filename Value="umainform.pas"/>
<Caret Line="634" Column="46" TopLine="606"/>
</Position26>
<Position27>
<Filename Value="umainform.pas"/>
<Caret Line="831" Column="40" TopLine="800"/>
<Caret Line="2" Column="59"/>
</Position27>
<Position28>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="666" Column="41" TopLine="612"/>
<Filename Value="umainform.pas"/>
<Caret Line="364" Column="58" TopLine="317"/>
</Position28>
<Position29>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="500" Column="13" TopLine="461"/>
<Filename Value="umainform.pas"/>
<Caret Line="633" Column="48" TopLine="586"/>
</Position29>
<Position30>
<Filename Value="..\foobot_utility.pas"/>
<Caret Line="364" Column="14" TopLine="337"/>
<Filename Value="umainform.pas"/>
<Caret Line="824" Column="48" TopLine="777"/>
</Position30>
</JumpHistory>
</ProjectSession>

5
applications/foobot/monitor/umainform.lfm
View File

@ -494,7 +494,6 @@ object mainform: Tmainform
end
object mnu_optionsFoobotTriggers: TMenuItem
Caption = 'Foobot Triggers...'
OnClick = mnu_optionsFoobotTriggersClick
object mnu_options_triggersSetTriggers: TMenuItem
Caption = 'Set Trigger Values...'
OnClick = mnu_options_triggersSetTriggersClick
@ -516,6 +515,10 @@ object mainform: Tmainform
Caption = 'Online Help'
OnClick = mnu_optionsOnlineHelpClick
end
object mnu_helpFoobotAPIPage: TMenuItem
Caption = 'Foobot API page'
OnClick = mnu_helpFoobotAPIPageClick
end
object mnu_helpAbout: TMenuItem
Caption = 'A&bout..'
OnClick = mnu_helpAboutClick

183
applications/foobot/monitor/umainform.pas
View File

@ -27,7 +27,7 @@ V0.0.3.0: Added Help menu. Updated Options menu
V0.0.4.0: Graph added
V0.1.0.0: Save/Load Alltime High/Lows. Reset values from menu
V0.1.1.0: Save/Load Colours, Min and Max values to cfg file
V0.1.2.0: ??
V0.2.1.0: Triggers,Multiple Foobots
}
{$ifopt D+}
// Debug mode does not load data from web
@ -37,10 +37,10 @@ V0.1.2.0: ??
interface
uses
uses // If Lazarus auto-inserts 'sensors' in the clause then delete it
SysUtils, TAGraph, TAIntervalSources, TASeries, foobot_sensors,
Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, Menus, lclIntf,
foobot_utility, uCryptIni, dateutils, uconfigform,utriggersform, Classes;
foobot_utility, uCryptIni, dateutils, uconfigform, utriggersform, Classes;
const
// Timer milliseconds
@ -123,6 +123,7 @@ type
lbl_voclow: TLabel;
lbl_allpollulow: TLabel;
MainMenu1: TMainMenu;
mnu_helpFoobotAPIPage: TMenuItem;
mnu_options_triggersActivateTriggers: TMenuItem;
mnu_options_triggersSetTriggers: TMenuItem;
mnu_optionsFoobotTriggers: TMenuItem;
@ -162,6 +163,7 @@ type
procedure mnupopup_fileRestoreClick(Sender: TObject);
procedure mnu_fileExitClick(Sender: TObject);
procedure mnu_helpAboutClick(Sender: TObject);
procedure mnu_helpFoobotAPIPageClick(Sender: TObject);
procedure mnu_optionsDisplayGuagesOnlyClick(Sender: TObject);
procedure mnu_optionsDisplayRedLinesClick(Sender: TObject);
procedure mnu_optionsDisplayYellowLinesClick(Sender: TObject);
@ -169,7 +171,6 @@ type
procedure mnu_optionsOnlineHelpClick(Sender: TObject);
procedure mnu_optionsResetHighsLowsClick(Sender: TObject);
procedure mnu_optionsSaveHighLowsClick(Sender: TObject);
procedure mnu_optionsFoobotTriggersClick(Sender: TObject);
procedure mnu_optionsTakeReadingNowClick(Sender: TObject);
procedure mnu_options_triggersActivateTriggersClick(Sender: TObject);
procedure mnu_options_triggersSetTriggersClick(Sender: TObject);
@ -246,7 +247,9 @@ begin
TrayIcon1.Hint := Application.Title;
DateTimeIntervalChartSource1.DateTimeFormat := 'hh:nn';
LoadConfig;
{$IFDEF DEBUGMODE}UseTriggers:=FALSE;{$ENDIF}
{$IFDEF DEBUGMODE}
UseTriggers := False;
{$ENDIF}
end;
procedure Tmainform.FormActivate(Sender: TObject);
@ -293,6 +296,8 @@ begin
// Everything OK - lets go!
iCurrentFoobot := 0;
PopulateFoobotMenu;
LoadTriggers; // This can only be done if we have a Foobot Identity
// as each Foobot has its own trigger values
Show;
grp_sensorDisplay.Refresh;
grp_highlow.Refresh;
@ -336,17 +341,18 @@ begin
end;
procedure Tmainform.ChangeCurrentFoobot(Sender: TObject);
// Called from 'Foobot' TSubmenuitem.click
begin
iCurrentFoobot := (Sender as TMenuItem).Tag;
mnu_optionsTakeReadingNow.Click;
end;
procedure Tmainform.PopulateFoobotMenu;
// uses foobotmenuarray
// Uses dynamic foobotmenuarray
var
iCount: integer;
begin
if FoobotIdentityObject.FoobotIdentityList.Count = 0 then
if (FoobotIdentityObject.FoobotIdentityList.Count = 0) then
Exit;
SetLength(foobotmenuarray, FoobotIdentityObject.FoobotIdentityList.Count);
for iCount := 0 to Pred(FoobotIdentityObject.FoobotIdentityList.Count) do
@ -368,7 +374,9 @@ end;
procedure Tmainform.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
SaveConfig;
SaveConfig; // to .cfg file
if (FoobotIdentityObject.FoobotIdentityList.Count > 0) then
SaveTriggers;
CloseAction := caFree;
end;
@ -379,6 +387,7 @@ begin
end;
procedure Tmainform.SaveConfig;
// For all Foobots
begin
INI.PlainTextMode := True;
// Colours
@ -408,6 +417,7 @@ begin
end;
procedure Tmainform.LoadConfig;
// For all Foobots
begin
INI.PlainTextMode := True;
// Colours
@ -482,6 +492,11 @@ begin
mtInformation, [mbOK], 0);
end;
procedure Tmainform.mnu_helpFoobotAPIPageClick(Sender: TObject);
begin
OpenURL('http://api.foobot.io/apidoc/index.html');
end;
procedure Tmainform.mnu_optionsDisplayGuagesOnlyClick(Sender: TObject);
begin
bDisplayGuagesOnly := mnu_optionsDisplayGuagesOnly.Checked;
@ -534,10 +549,6 @@ begin
INI.WriteBool('Foobot', 'SaveLoadHighLows', SaveLoadHighLows);
end;
procedure Tmainform.mnu_optionsFoobotTriggersClick(Sender: TObject);
begin
end;
procedure Tmainform.mnu_optionsTakeReadingNowClick(Sender: TObject);
begin
mainform.Cursor := crHourGlass;
@ -550,21 +561,22 @@ end;
procedure Tmainform.mnu_options_triggersActivateTriggersClick(Sender: TObject);
begin
mnu_options_triggersActivateTriggers.Checked:= NOT mnu_options_triggersActivateTriggers.Checked;
UseTriggers:=mnu_options_triggersActivateTriggers.Checked;
If UseTriggers then
mnu_options_triggersActivateTriggers.Caption:='Set Triggers Off'
mnu_options_triggersActivateTriggers.Checked :=
not mnu_options_triggersActivateTriggers.Checked;
UseTriggers := mnu_options_triggersActivateTriggers.Checked;
if UseTriggers then
mnu_options_triggersActivateTriggers.Caption := 'Set Triggers Off'
else
mnu_options_triggersActivateTriggers.Caption:='Set Triggers On';
mnu_options_triggersActivateTriggers.Caption := 'Set Triggers On';
end;
procedure Tmainform.mnu_options_triggersSetTriggersClick(Sender: TObject);
begin
triggersform.ShowModal;
If triggersform.ModalResult = mrCancel then
ShowMessage('Cancel')
triggersform.ShowModal;
if triggersform.ModalResult = mrCancel then
ShowMessage('Cancel')
else
mnu_options_triggersActivateTriggers.Enabled:=TRUE;
mnu_options_triggersActivateTriggers.Enabled := True;
end;
procedure Tmainform.mnu_SampleEveryHalfHourClick(Sender: TObject);
@ -613,7 +625,11 @@ end;
procedure Tmainform.tmr_foobotTimer(Sender: TObject);
begin
if FetchFoobotData(dfLast, iCurrentFoobot, 0, 0, 0, 0, sSecretKey) then
DisplayReadings;
DisplayReadings
else
mainform.Caption := Format('Foobot "%s" - Read failure on %s',
[FoobotIdentityObject.FoobotIdentityList[iCurrentFoobot].Name,
FormatDateTime('dd/mm/yyyy - tt', Now)]);
end;
procedure Tmainform.TrayIcon1Click(Sender: TObject);
@ -746,6 +762,8 @@ begin
FoobotDataObject.Units[SensorNumber]]) + LineEnding + 'on ' +
FormatDateTime('dd/mm tt', TDateTime(FoobotDataLowTimes[SensorNumber]));
end;
else
Exception.Create('Error in UpdateHighLow Case statement');
end;
end;
@ -802,7 +820,7 @@ begin
if FoobotDataObjectToArrays = True then
begin
mainform.Caption := Format('Foobot "%s" - Last reading: ',
[FoobotIdentityObject.FoobotIdentityList[0].Name]) +
[FoobotIdentityObject.FoobotIdentityList[iCurrentFoobot].Name]) +
FormatDateTime('dd/mm/yyyy - tt', FoobotData_time[0]);
UpdateGuage(as_pm, C_PM);
UpdateGuage(as_tmp, C_TMP);
@ -817,46 +835,62 @@ begin
end;
GraphCurrentReading;
// Process Trigger Alerts
If UseTriggers then
For iCount:=C_PM to C_ALLPOLLU do
If AlertRec[iCount].AlertTriggered then
If AlertRec[iCount].AlertType = at_high then
begin
ShowMessageFmt('High alert member %d (value %f) exceeded',
[iCount,Double(AlertRec[iCount].AlertValue)]);
end
else
begin
ShowMessageFmt('Low alert member %d (value %f) exceeded',
[iCount,Double(AlertRec[iCount].AlertValue)]);
end;
end;
// Process Trigger Alerts on each call to FoobotDataObjectToArrays
if UseTriggers then
try
// Look for alerts in each sensor
for iCount := C_PM to C_ALLPOLLU do
if AlertRec[iCount].AlertTriggered then
// Alert found. High or low?
if AlertRec[iCount].AlertType = at_high then
begin
// A high alert - do something
ShowMessageFmt('High alert member %d (value %f) exceeded',
[iCount, double(AlertRec[iCount].AlertValue)]);
end
else
begin
// A low alert - do something
ShowMessageFmt('Low alert member %d (value %f) exceeded',
[iCount, double(AlertRec[iCount].AlertValue)]);
end;
except
raise Exception.Create('Unable to process triggers in DisplayReadings');
end;
end
else
raise Exception.Create('FoobotDataObjectToArrays error in DisplayReadings');
end;
function AsPercent(aValue, aMin, aMax: double): double;
begin
if aMax > 0 then
Result := aValue / (aMax - aMin) * 100
Result := (aValue / (aMax - aMin) * 100)
else
Result := 0;
end;
procedure Tmainform.GraphCurrentReading;
begin
{$IFDEF DEBUGMODE}Exit;{$ENDIF}
lineseries_pm.AddXY(FoobotData_time[0],
AsPercent(FoobotData_pm[0], as_pm.ValueMin, as_pm.ValueMax));
lineseries_tmp.AddXY(FoobotData_time[0], AsPercent(FoobotData_tmp[0],
as_tmp.ValueMin, as_tmp.ValueMax));
lineseries_hum.AddXY(FoobotData_time[0],
AsPercent(FoobotData_hum[0], as_hum.ValueMin, as_hum.ValueMax));
lineseries_co2.AddXY(FoobotData_time[0],
AsPercent(FoobotData_co2[0], as_co2.ValueMin, as_co2.ValueMax));
lineseries_voc.AddXY(FoobotData_time[0],
AsPercent(FoobotData_voc[0], as_voc.ValueMin, as_voc.ValueMax));
lineseries_allpollu.AddXY(FoobotData_time[0],
AsPercent(FoobotData_allpollu[0], as_allpollu.ValueMin, as_allpollu.ValueMax));
{$IFDEF DEBUGMODE}
Exit;
{$ENDIF}
try
lineseries_pm.AddXY(FoobotData_time[0],
AsPercent(FoobotData_pm[0], as_pm.ValueMin, as_pm.ValueMax));
lineseries_tmp.AddXY(FoobotData_time[0], AsPercent(FoobotData_tmp[0],
as_tmp.ValueMin, as_tmp.ValueMax));
lineseries_hum.AddXY(FoobotData_time[0],
AsPercent(FoobotData_hum[0], as_hum.ValueMin, as_hum.ValueMax));
lineseries_co2.AddXY(FoobotData_time[0],
AsPercent(FoobotData_co2[0], as_co2.ValueMin, as_co2.ValueMax));
lineseries_voc.AddXY(FoobotData_time[0],
AsPercent(FoobotData_voc[0], as_voc.ValueMin, as_voc.ValueMax));
lineseries_allpollu.AddXY(FoobotData_time[0],
AsPercent(FoobotData_allpollu[0], as_allpollu.ValueMin, as_allpollu.ValueMax));
except
raise Exception.Create('Unable to update graph in GraphCurrentReading');
end;
end;
procedure Tmainform.GraphHistory;
@ -866,32 +900,37 @@ var
iCount: integer;
iStartSeconds, iEndSeconds: int64;
begin
{$IFDEF DEBUGMODE}Exit;{$ENDIF}
{$IFDEF DEBUGMODE}
Exit;
{$ENDIF}
iEndSeconds := DateTimeToUnix(Now) - 3600;
iStartSeconds := iEndSeconds - (2 * (24 * 3600)); // 49 hours before Now
grp_chart.Caption := Format('History from %s',
grp_chart.Caption := Format('History since %s',
[FormatDateTime('dd/mm/yyyy hh:nn', UnixToDateTime(iStartSeconds))]);
if FetchFoobotData(dfStartEnd, iCurrentFoobot, 0, 3600, iStartSeconds,
iEndSeconds, sSecretKey) = False then
exit;
if FoobotDataObjectToArrays then
for iCount := 0 to Pred(High(FoobotData_time)) do
begin
lineseries_pm.AddXY(FoobotData_time[iCount],
AsPercent(FoobotData_pm[iCount], as_pm.ValueMin, as_pm.ValueMax));
lineseries_tmp.AddXY(FoobotData_time[iCount],
AsPercent(FoobotData_tmp[iCount], as_tmp.ValueMin, as_tmp.ValueMax));
lineseries_hum.AddXY(FoobotData_time[iCount],
AsPercent(FoobotData_hum[iCount], as_hum.ValueMin, as_hum.ValueMax));
lineseries_co2.AddXY(FoobotData_time[iCount],
AsPercent(FoobotData_co2[iCount], as_co2.ValueMin, as_co2.ValueMax));
lineseries_voc.AddXY(FoobotData_time[iCount],
AsPercent(FoobotData_voc[iCount], as_voc.ValueMin, as_voc.ValueMax));
lineseries_allpollu.AddXY(FoobotData_time[iCount],
AsPercent(FoobotData_allpollu[iCount], as_allpollu.ValueMin,
as_allpollu.ValueMax));
end;
ResetArrays; // at end
try
if FoobotDataObjectToArrays then
for iCount := 0 to Pred(High(FoobotData_time)) do
begin
lineseries_pm.AddXY(FoobotData_time[iCount],
AsPercent(FoobotData_pm[iCount], as_pm.ValueMin, as_pm.ValueMax));
lineseries_tmp.AddXY(FoobotData_time[iCount],
AsPercent(FoobotData_tmp[iCount], as_tmp.ValueMin, as_tmp.ValueMax));
lineseries_hum.AddXY(FoobotData_time[iCount],
AsPercent(FoobotData_hum[iCount], as_hum.ValueMin, as_hum.ValueMax));
lineseries_co2.AddXY(FoobotData_time[iCount],
AsPercent(FoobotData_co2[iCount], as_co2.ValueMin, as_co2.ValueMax));
lineseries_voc.AddXY(FoobotData_time[iCount],
AsPercent(FoobotData_voc[iCount], as_voc.ValueMin, as_voc.ValueMax));
lineseries_allpollu.AddXY(FoobotData_time[iCount],
AsPercent(FoobotData_allpollu[iCount], as_allpollu.ValueMin,
as_allpollu.ValueMax));
end;
finally
ResetArrays; // at end
end;
end;
end.

67
applications/foobot/monitor/utriggersform.lfm
View File

@ -1,7 +1,7 @@
object triggersform: Ttriggersform
Left = 546
Left = 686
Height = 484
Top = 142
Top = 279
Width = 794
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
@ -17,12 +17,71 @@ object triggersform: Ttriggersform
Scaled = True
object grp_main: TGroupBox
Left = 0
Height = 424
Height = 428
Top = 0
Width = 794
Align = alTop
Caption = 'Foobot Triggers'
AutoSize = True
Caption = 'All Foobot Triggers'
ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ControlsPerLine = 1
ClientHeight = 408
ClientWidth = 790
TabOrder = 0
object grp_pm: TGroupBox
Left = 0
Height = 68
Top = 0
Width = 790
Align = alTop
Caption = 'Particulates'
TabOrder = 0
end
object grp_tmp: TGroupBox
Left = 0
Height = 68
Top = 340
Width = 790
Align = alTop
Caption = 'All Pollution'
TabOrder = 1
end
object grp_hum: TGroupBox
Left = 0
Height = 68
Top = 272
Width = 790
Align = alTop
Caption = 'Volatile Componds'
TabOrder = 2
end
object grp_co2: TGroupBox
Left = 0
Height = 68
Top = 204
Width = 790
Align = alTop
Caption = 'Carbon Diaoxide'
TabOrder = 3
end
object grp_voc: TGroupBox
Left = 0
Height = 68
Top = 136
Width = 790
Align = alTop
Caption = 'Humidity'
TabOrder = 4
end
object grp_allpollu: TGroupBox
Left = 0
Height = 68
Top = 68
Width = 790
Align = alTop
Caption = 'Temperature'
TabOrder = 5
end
end
object cmd_OK: TBitBtn
Left = 360

6
applications/foobot/monitor/utriggersform.pas
View File

@ -15,6 +15,12 @@ type
Ttriggersform = class(TForm)
cmd_cancel: TBitBtn;
cmd_OK: TBitBtn;
grp_pm: TGroupBox;
grp_tmp: TGroupBox;
grp_hum: TGroupBox;
grp_co2: TGroupBox;
grp_voc: TGroupBox;
grp_allpollu: TGroupBox;
grp_main: TGroupBox;
procedure FormCreate(Sender: TObject);
private