Delphi/Lazarus - GPS Bricklet¶

Simple¶

Download (ExampleSimple.pas)

 1program ExampleSimple;
 2
 3{$ifdef MSWINDOWS}{$apptype CONSOLE}{$endif}
 4{$ifdef FPC}{$mode OBJFPC}{$H+}{$endif}
 5
 6uses
 7  SysUtils, IPConnection, BrickletGPS;
 8
 9type
10  TExample = class
11  private
12    ipcon: TIPConnection;
13    gps: TBrickletGPS;
14  public
15    procedure Execute;
16  end;
17
18const
19  HOST = 'localhost';
20  PORT = 4223;
21  UID = 'XYZ'; { Change XYZ to the UID of your GPS Bricklet }
22
23var
24  e: TExample;
25
26procedure TExample.Execute;
27var latitude, longitude: longword; ns, ew: char; pdop, hdop, vdop, epe: word;
28begin
29  { Create IP connection }
30  ipcon := TIPConnection.Create;
31
32  { Create device object }
33  gps := TBrickletGPS.Create(UID, ipcon);
34
35  { Connect to brickd }
36  ipcon.Connect(HOST, PORT);
37  { Don't use device before ipcon is connected }
38
39  { Get current coordinates }
40  gps.GetCoordinates(latitude, ns, longitude, ew, pdop, hdop, vdop, epe);
41
42  WriteLn(Format('Latitude: %f °', [latitude/1000000.0]));
43  WriteLn(Format('N/S: %s', [ns]));
44  WriteLn(Format('Longitude: %f °', [longitude/1000000.0]));
45  WriteLn(Format('E/W: %s', [ew]));
46
47  WriteLn('Press key to exit');
48  ReadLn;
49  ipcon.Destroy; { Calls ipcon.Disconnect internally }
50end;
51
52begin
53  e := TExample.Create;
54  e.Execute;
55  e.Destroy;
56end.

Callback¶

Download (ExampleCallback.pas)

 1program ExampleCallback;
 2
 3{$ifdef MSWINDOWS}{$apptype CONSOLE}{$endif}
 4{$ifdef FPC}{$mode OBJFPC}{$H+}{$endif}
 5
 6uses
 7  SysUtils, IPConnection, BrickletGPS;
 8
 9type
10  TExample = class
11  private
12    ipcon: TIPConnection;
13    gps: TBrickletGPS;
14  public
15    procedure CoordinatesCB(sender: TBrickletGPS; const latitude: longword;
16                            const ns: char; const longitude: longword; const ew: char;
17                            const pdop: word; const hdop: word; const vdop: word;
18                            const epe: word);
19    procedure Execute;
20  end;
21
22const
23  HOST = 'localhost';
24  PORT = 4223;
25  UID = 'XYZ'; { Change XYZ to the UID of your GPS Bricklet }
26
27var
28  e: TExample;
29
30{ Callback procedure for coordinates callback }
31procedure TExample.CoordinatesCB(sender: TBrickletGPS; const latitude: longword;
32                                 const ns: char; const longitude: longword;
33                                 const ew: char; const pdop: word; const hdop: word;
34                                 const vdop: word; const epe: word);
35begin
36  WriteLn(Format('Latitude: %f °', [latitude/1000000.0]));
37  WriteLn(Format('N/S: %s', [ns]));
38  WriteLn(Format('Longitude: %f °', [longitude/1000000.0]));
39  WriteLn(Format('E/W: %s', [ew]));
40  WriteLn('');
41end;
42
43procedure TExample.Execute;
44begin
45  { Create IP connection }
46  ipcon := TIPConnection.Create;
47
48  { Create device object }
49  gps := TBrickletGPS.Create(UID, ipcon);
50
51  { Connect to brickd }
52  ipcon.Connect(HOST, PORT);
53  { Don't use device before ipcon is connected }
54
55  { Register coordinates callback to procedure CoordinatesCB }
56  gps.OnCoordinates := {$ifdef FPC}@{$endif}CoordinatesCB;
57
58  { Set period for coordinates callback to 1s (1000ms)
59    Note: The coordinates callback is only called every second
60          if the coordinates has changed since the last call! }
61  gps.SetCoordinatesCallbackPeriod(1000);
62
63  WriteLn('Press key to exit');
64  ReadLn;
65  ipcon.Destroy; { Calls ipcon.Disconnect internally }
66end;
67
68begin
69  e := TExample.Create;
70  e.Execute;
71  e.Destroy;
72end.

Basic Functions¶

constructor TBrickletGPS.Create(const uid: string; ipcon: TIPConnection)¶

Parameters:	uid – Type: string ipcon – Type: TIPConnection
Returns:	gps – Type: TBrickletGPS

Creates an object with the unique device ID uid:

gps := TBrickletGPS.Create('YOUR_DEVICE_UID', ipcon);

This object can then be used after the IP Connection is connected.

procedure TBrickletGPS.GetCoordinates(out latitude: longword; out ns: char; out longitude: longword; out ew: char; out pdop: word; out hdop: word; out vdop: word; out epe: word)¶

Output Parameters:

latitude – Type: longword, Unit: 1/1000000 °, Range: [0 to 90000000] ns – Type: char, Range: ['N', 'S'] longitude – Type: longword, Unit: 1/1000000 °, Range: [0 to 180000000] ew – Type: char, Range: ['E', 'W'] pdop – Type: word, Unit: 1/100, Range: [0 to 216 - 1] hdop – Type: word, Unit: 1/100, Range: [0 to 216 - 1] vdop – Type: word, Unit: 1/100, Range: [0 to 216 - 1] epe – Type: word, Unit: 1 cm, Range: [0 to 216 - 1]

Returns the GPS coordinates. Latitude and longitude are given in the DD.dddddd° format, the value 57123468 means 57.123468°. The parameter ns and ew are the cardinal directions for latitude and longitude. Possible values for ns and ew are 'N', 'S', 'E' and 'W' (north, south, east and west).

PDOP, HDOP and VDOP are the dilution of precision (DOP) values. They specify the additional multiplicative effect of GPS satellite geometry on GPS precision. See here for more information.

EPE is the "Estimated Position Error". This is not the absolute maximum error, it is the error with a specific confidence. See here for more information.

This data is only valid if there is currently a fix as indicated by GetStatus.

procedure TBrickletGPS.GetStatus(out fix: byte; out satellitesView: byte; out satellitesUsed: byte)¶

Output Parameters:	fix – Type: byte, Range: See constants satellitesView – Type: byte, Range: [0 to 255] satellitesUsed – Type: byte, Range: [0 to 255]

Returns the current fix status, the number of satellites that are in view and the number of satellites that are currently used.

Possible fix status values can be:

Value	Description
1	No Fix, GetCoordinates, GetAltitude and GetMotion return invalid data
2	2D Fix, only GetCoordinates and GetMotion return valid data
3	3D Fix, GetCoordinates, GetAltitude and GetMotion return valid data

There is also a blue LED on the Bricklet that indicates the fix status.

The following constants are available for this function:

For fix:

• BRICKLET_GPS_FIX_NO_FIX = 1

• BRICKLET_GPS_FIX_2D_FIX = 2

• BRICKLET_GPS_FIX_3D_FIX = 3

procedure TBrickletGPS.GetAltitude(out altitude: longint; out geoidalSeparation: longint)¶

Output Parameters:	altitude – Type: longint, Unit: 1 cm, Range: [-231 to 231 - 1] geoidalSeparation – Type: longint, Unit: 1 cm, Range: [-231 to 231 - 1]

Returns the current altitude and corresponding geoidal separation.

This data is only valid if there is currently a fix as indicated by GetStatus.

procedure TBrickletGPS.GetMotion(out course: longword; out speed: longword)¶

Output Parameters:	course – Type: longword, Unit: 1/100 °, Range: [0 to 36000] speed – Type: longword, Unit: 1/100 km/h, Range: [0 to 232 - 1]

Returns the current course and speed. A course of 0° means the Bricklet is traveling north bound and 90° means it is traveling east bound.

Please note that this only returns useful values if an actual movement is present.

This data is only valid if there is currently a fix as indicated by GetStatus.

procedure TBrickletGPS.GetDateTime(out date: longword; out time: longword)¶

Output Parameters:	date – Type: longword, Range: [10100 to 311299] time – Type: longword, Range: [0 to 235959999]

Returns the current date and time. The date is given in the format ddmmyy and the time is given in the format hhmmss.sss. For example, 140713 means 14.07.13 as date and 195923568 means 19:59:23.568 as time.

Advanced Functions¶

procedure TBrickletGPS.Restart(const restartType: byte)¶

Parameters:	restartType – Type: byte, Range: See constants

Restarts the GPS Bricklet, the following restart types are available:

Value	Description
0	Hot start (use all available data in the NV store)
1	Warm start (don't use ephemeris at restart)
2	Cold start (don't use time, position, almanacs and ephemeris at restart)
3	Factory reset (clear all system/user configurations at restart)

The following constants are available for this function:

For restartType:

• BRICKLET_GPS_RESTART_TYPE_HOT_START = 0

• BRICKLET_GPS_RESTART_TYPE_WARM_START = 1

• BRICKLET_GPS_RESTART_TYPE_COLD_START = 2

• BRICKLET_GPS_RESTART_TYPE_FACTORY_RESET = 3

procedure TBrickletGPS.GetIdentity(out uid: string; out connectedUid: string; out position: char; out hardwareVersion: array [0..2] of byte; out firmwareVersion: array [0..2] of byte; out deviceIdentifier: word)¶

Output Parameters:

uid – Type: string, Length: up to 8 connectedUid – Type: string, Length: up to 8 position – Type: char, Range: ['a' to 'h', 'z'] hardwareVersion – Type: array [0..2] of byte 0: major – Type: byte, Range: [0 to 255] 1: minor – Type: byte, Range: [0 to 255] 2: revision – Type: byte, Range: [0 to 255] firmwareVersion – Type: array [0..2] of byte 0: major – Type: byte, Range: [0 to 255] 1: minor – Type: byte, Range: [0 to 255] 2: revision – Type: byte, Range: [0 to 255] deviceIdentifier – Type: word, Range: [0 to 216 - 1]

Returns the UID, the UID where the Bricklet is connected to, the position, the hardware and firmware version as well as the device identifier.

The position can be 'a', 'b', 'c', 'd', 'e', 'f', 'g' or 'h' (Bricklet Port). A Bricklet connected to an Isolator Bricklet is always at position 'z'.

The device identifier numbers can be found here. There is also a constant for the device identifier of this Bricklet.

Callback Configuration Functions¶

procedure TBrickletGPS.SetCoordinatesCallbackPeriod(const period: longword)¶

Parameters:	period – Type: longword, Unit: 1 ms, Range: [0 to 232 - 1], Default: 0

Sets the period with which the OnCoordinates callback is triggered periodically. A value of 0 turns the callback off.

The OnCoordinates callback is only triggered if the coordinates changed since the last triggering.

function TBrickletGPS.GetCoordinatesCallbackPeriod: longword¶

Returns:	period – Type: longword, Unit: 1 ms, Range: [0 to 232 - 1], Default: 0

Returns the period as set by SetCoordinatesCallbackPeriod.

procedure TBrickletGPS.SetStatusCallbackPeriod(const period: longword)¶

Parameters:	period – Type: longword, Unit: 1 ms, Range: [0 to 232 - 1], Default: 0

Sets the period with which the OnStatus callback is triggered periodically. A value of 0 turns the callback off.

The OnStatus callback is only triggered if the status changed since the last triggering.

function TBrickletGPS.GetStatusCallbackPeriod: longword¶

Returns:	period – Type: longword, Unit: 1 ms, Range: [0 to 232 - 1], Default: 0

Returns the period as set by SetStatusCallbackPeriod.

procedure TBrickletGPS.SetAltitudeCallbackPeriod(const period: longword)¶

Parameters:	period – Type: longword, Unit: 1 ms, Range: [0 to 232 - 1], Default: 0

Sets the period with which the OnAltitude callback is triggered periodically. A value of 0 turns the callback off.

The OnAltitude callback is only triggered if the altitude changed since the last triggering.

function TBrickletGPS.GetAltitudeCallbackPeriod: longword¶

Returns:	period – Type: longword, Unit: 1 ms, Range: [0 to 232 - 1], Default: 0

Returns the period as set by SetAltitudeCallbackPeriod.

procedure TBrickletGPS.SetMotionCallbackPeriod(const period: longword)¶

Parameters:	period – Type: longword, Unit: 1 ms, Range: [0 to 232 - 1], Default: 0

Sets the period with which the OnMotion callback is triggered periodically. A value of 0 turns the callback off.

The OnMotion callback is only triggered if the motion changed since the last triggering.

function TBrickletGPS.GetMotionCallbackPeriod: longword¶

Returns:	period – Type: longword, Unit: 1 ms, Range: [0 to 232 - 1], Default: 0

Returns the period as set by SetMotionCallbackPeriod.

procedure TBrickletGPS.SetDateTimeCallbackPeriod(const period: longword)¶

Parameters:	period – Type: longword, Unit: 1 ms, Range: [0 to 232 - 1], Default: 0

Sets the period with which the OnDateTime callback is triggered periodically. A value of 0 turns the callback off.

The OnDateTime callback is only triggered if the date or time changed since the last triggering.

function TBrickletGPS.GetDateTimeCallbackPeriod: longword¶

Returns:	period – Type: longword, Unit: 1 ms, Range: [0 to 232 - 1], Default: 0

Returns the period as set by SetDateTimeCallbackPeriod.

Callbacks¶

Callbacks can be registered to receive time critical or recurring data from the device. The registration is done by assigning a procedure to an callback property of the device object:

procedure TExample.MyCallback(sender: TBrickletGPS; const value: longint);
begin
  WriteLn(Format('Value: %d', [value]));
end;

gps.OnExample := {$ifdef FPC}@{$endif}example.MyCallback;

The available callback properties and their parameter types are described below.

property TBrickletGPS.OnCoordinates¶

procedure(sender: TBrickletGPS; const latitude: longword; const ns: char; const longitude: longword; const ew: char; const pdop: word; const hdop: word; const vdop: word; const epe: word) of object;

Callback Parameters:

sender – Type: TBrickletGPS latitude – Type: longword, Unit: 1/1000000 °, Range: [0 to 90000000] ns – Type: char, Range: ['N', 'S'] longitude – Type: longword, Unit: 1/1000000 °, Range: [0 to 180000000] ew – Type: char, Range: ['E', 'W'] pdop – Type: word, Unit: 1/100, Range: [0 to 216 - 1] hdop – Type: word, Unit: 1/100, Range: [0 to 216 - 1] vdop – Type: word, Unit: 1/100, Range: [0 to 216 - 1] epe – Type: word, Unit: 1 cm, Range: [0 to 216 - 1]

This callback is triggered periodically with the period that is set by SetCoordinatesCallbackPeriod. The parameters are the same as for GetCoordinates.

The OnCoordinates callback is only triggered if the coordinates changed since the last triggering and if there is currently a fix as indicated by GetStatus.

property TBrickletGPS.OnStatus¶

procedure(sender: TBrickletGPS; const fix: byte; const satellitesView: byte; const satellitesUsed: byte) of object;

Callback Parameters:	sender – Type: TBrickletGPS fix – Type: byte, Range: See constants satellitesView – Type: byte, Range: [0 to 255] satellitesUsed – Type: byte, Range: [0 to 255]

This callback is triggered periodically with the period that is set by SetStatusCallbackPeriod. The parameters are the same as for GetStatus.

The OnStatus callback is only triggered if the status changed since the last triggering.

The following constants are available for this function:

For fix:

• BRICKLET_GPS_FIX_NO_FIX = 1

• BRICKLET_GPS_FIX_2D_FIX = 2

• BRICKLET_GPS_FIX_3D_FIX = 3

property TBrickletGPS.OnAltitude¶

procedure(sender: TBrickletGPS; const altitude: longint; const geoidalSeparation: longint) of object;

Callback Parameters:	sender – Type: TBrickletGPS altitude – Type: longint, Unit: 1 cm, Range: [-231 to 231 - 1] geoidalSeparation – Type: longint, Unit: 1 cm, Range: [-231 to 231 - 1]

This callback is triggered periodically with the period that is set by SetAltitudeCallbackPeriod. The parameters are the same as for GetAltitude.

The OnAltitude callback is only triggered if the altitude changed since the last triggering and if there is currently a fix as indicated by GetStatus.

property TBrickletGPS.OnMotion¶

procedure(sender: TBrickletGPS; const course: longword; const speed: longword) of object;

Callback Parameters:	sender – Type: TBrickletGPS course – Type: longword, Unit: 1/100 °, Range: [0 to 36000] speed – Type: longword, Unit: 1/100 km/h, Range: [0 to 232 - 1]

This callback is triggered periodically with the period that is set by SetMotionCallbackPeriod. The parameters are the same as for GetMotion.

The OnMotion callback is only triggered if the motion changed since the last triggering and if there is currently a fix as indicated by GetStatus.

property TBrickletGPS.OnDateTime¶

procedure(sender: TBrickletGPS; const date: longword; const time: longword) of object;

Callback Parameters:	sender – Type: TBrickletGPS date – Type: longword, Range: [10100 to 311299] time – Type: longword, Range: [0 to 235959999]

This callback is triggered periodically with the period that is set by SetDateTimeCallbackPeriod. The parameters are the same as for GetDateTime.

The OnDateTime callback is only triggered if the date or time changed since the last triggering.

Virtual Functions¶

Virtual functions don't communicate with the device itself, but operate only on the API bindings device object. They can be called without the corresponding IP Connection object being connected.

function TBrickletGPS.GetAPIVersion: array [0..2] of byte¶

Output Parameters:	apiVersion – Type: array [0..2] of byte 0: major – Type: byte, Range: [0 to 255] 1: minor – Type: byte, Range: [0 to 255] 2: revision – Type: byte, Range: [0 to 255]

Returns the version of the API definition implemented by this API bindings. This is neither the release version of this API bindings nor does it tell you anything about the represented Brick or Bricklet.

function TBrickletGPS.GetResponseExpected(const functionId: byte): boolean¶

Parameters:	functionId – Type: byte, Range: See constants
Returns:	responseExpected – Type: boolean

Returns the response expected flag for the function specified by the function ID parameter. It is true if the function is expected to send a response, false otherwise.

For getter functions this is enabled by default and cannot be disabled, because those functions will always send a response. For callback configuration functions it is enabled by default too, but can be disabled by SetResponseExpected. For setter functions it is disabled by default and can be enabled.

Enabling the response expected flag for a setter function allows to detect timeouts and other error conditions calls of this setter as well. The device will then send a response for this purpose. If this flag is disabled for a setter function then no response is sent and errors are silently ignored, because they cannot be detected.

The following constants are available for this function:

For functionId:

• BRICKLET_GPS_FUNCTION_RESTART = 6

• BRICKLET_GPS_FUNCTION_SET_COORDINATES_CALLBACK_PERIOD = 7

• BRICKLET_GPS_FUNCTION_SET_STATUS_CALLBACK_PERIOD = 9

• BRICKLET_GPS_FUNCTION_SET_ALTITUDE_CALLBACK_PERIOD = 11

• BRICKLET_GPS_FUNCTION_SET_MOTION_CALLBACK_PERIOD = 13

• BRICKLET_GPS_FUNCTION_SET_DATE_TIME_CALLBACK_PERIOD = 15

procedure TBrickletGPS.SetResponseExpected(const functionId: byte; const responseExpected: boolean)¶

Parameters:	functionId – Type: byte, Range: See constants responseExpected – Type: boolean

Changes the response expected flag of the function specified by the function ID parameter. This flag can only be changed for setter (default value: false) and callback configuration functions (default value: true). For getter functions it is always enabled.

Enabling the response expected flag for a setter function allows to detect timeouts and other error conditions calls of this setter as well. The device will then send a response for this purpose. If this flag is disabled for a setter function then no response is sent and errors are silently ignored, because they cannot be detected.

The following constants are available for this function:

For functionId:

• BRICKLET_GPS_FUNCTION_RESTART = 6

• BRICKLET_GPS_FUNCTION_SET_COORDINATES_CALLBACK_PERIOD = 7

• BRICKLET_GPS_FUNCTION_SET_STATUS_CALLBACK_PERIOD = 9

• BRICKLET_GPS_FUNCTION_SET_ALTITUDE_CALLBACK_PERIOD = 11

• BRICKLET_GPS_FUNCTION_SET_MOTION_CALLBACK_PERIOD = 13

• BRICKLET_GPS_FUNCTION_SET_DATE_TIME_CALLBACK_PERIOD = 15

procedure TBrickletGPS.SetResponseExpectedAll(const responseExpected: boolean)¶

Parameters:	responseExpected – Type: boolean

Changes the response expected flag for all setter and callback configuration functions of this device at once.

Constants¶

const BRICKLET_GPS_DEVICE_IDENTIFIER¶

This constant is used to identify a GPS Bricklet.

The GetIdentity function and the TIPConnection.OnEnumerate callback of the IP Connection have a deviceIdentifier parameter to specify the Brick's or Bricklet's type.

const BRICKLET_GPS_DEVICE_DISPLAY_NAME¶

This constant represents the human readable name of a GPS Bricklet.