Kits / Starter Kit: Hardware Hacking / Examples / Control Mains Switches Remotely / Using Delphi/Lazarus

Control Remote Mains Switches using Delphi¶

For this project we are assuming, that you have a Delphi development environment set up and that you have a rudimentary understanding of the Delphi language.

If you are totally new to Delphi itself you should start here. If you are new to the Tinkerforge API, you should start here.

We are also assuming that you have the remote control connected to an Industrial Quad Relay Bricklet as described here.

Goals¶

The goal of this little project is to give an idea how the relays of the Industrial Quad Relay Bricklet have to be switched to turn the mains switches on/off.

The following code uses SetMonoflop to trigger a button press on the remote control. A monoflop will set a new state (relay open or close) and hold it for a given time (1.5s in the example code). After this time the previous state is restored. This approach simulates a button click that takes 1.5s (1500ms).

According to the hardware setup section the inputs of the remote control should be connected as follows:

Signal	Relay
A	0
B	1
ON	2
OFF	3

To trigger the switch "A ON" of the remote control the relays 0 and 2 of the Industrial Quad Relay Bricklet have to be closed. This is represented by the selection mask (1 shl 0) or (1 shl 2).

So the monoflop function should be called with this selection mask and a time of 1500ms to simulate a button press of "A ON". See the following source code for a minimal example.

Source Code¶

Download

program RemoteSwitch;

{$ifdef MSWINDOWS}{$apptype CONSOLE}{$endif}
{$ifdef FPC}{$mode OBJFPC}{$H+}{$endif}

uses
  SysUtils, IPConnection, BrickletIndustrialQuadRelay;

type
  TRemoteSwitch = class
  private
    ipcon: TIPConnection;
    iqr: TBrickletIndustrialQuadRelay;
  public
    procedure Execute;
  end;

const
  HOST = 'localhost';
  PORT = 4223;
  UID = 'ctG'; { Change to your UID }
  VALUE_A_ON  = (1 shl 0) or (1 shl 2); { Pin 0 and 2 high }
  VALUE_A_OFF = (1 shl 0) or (1 shl 3); { Pin 0 and 3 high }
  VALUE_B_ON  = (1 shl 1) or (1 shl 2); { Pin 1 and 2 high }
  VALUE_B_OFF = (1 shl 1) or (1 shl 3); { Pin 1 and 3 high }

var
  rs: TRemoteSwitch;

procedure TRemoteSwitch.Execute;
begin
  { Create IP connection }
  ipcon := TIPConnection.Create;

  { Create device object }
  iqr := TBrickletIndustrialQuadRelay.Create(UID, ipcon);

  { Connect to brickd }
  ipcon.Connect(HOST, PORT);
  { Don't use device before ipcon is connected }

  { Set pins to high for 1.5 seconds }
  iqr.SetMonoflop(VALUE_A_ON, 15, 1500);
end;

begin
  rs := TRemoteSwitch.Create;
  rs.Execute;
  rs.Destroy;
end.