1:
2:
3:
4:
5:
6:
7:
8:

procedure SwitchLightOff( lightID: integer {0..31});
asm
  {lightID in EAX}
  MOV EDX, $FFFFFFFE
  ROL EDX, EAX
  AND PortMask, EDX
  OUT PortMask, PortID  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TForm4.Switch2Switch(Sender: TObject);
begin
    //o_register[1] := 0;
       case o_register[2] of

             0: Begin
                   if o_register[1] = 0 then
                     begin
                        DomoSend($3c, $00, $ff, $00, $00, $00, $00, $00, $00, $FE);
                        o_register[2] := 1;
                        Memo1.Lines.Add('P2 On');
                     end;
                   if o_register[1] = 1 then
                     begin
                       DomoSend($3c, $ff, $ff, $00, $00, $00, $00, $00, $00, $FE);
                       o_register[2] := 1;
                       Memo1.Lines.Add('P2 On');
                    end;
                 End;

             1: begin
                   if o_register[1] = 1 then
                     begin
                        DomoSend($3c, $ff, $00, $00, $00, $00, $00, $00, $00, $FE);
                        o_register[2] := 0;
                       Memo1.Lines.Add('P2 Off');
                     end;
                     if o_register[1] = 0 then
                     begin
                        DomoSend($3c, $00, $00, $00, $00, $00, $00, $00, $00, $FE);
                        o_register[2] := 0;
                       Memo1.Lines.Add('P2 Off');
                     end;
             end;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm4.DomoSend(para1: byte; port1: byte; port2: byte; port3: byte;
  port4: byte; port5: byte; port6: byte; port7: byte; port8: byte);

var
  Buf: TIdBytes;
begin

  SetLength(Buf, 14);
  // Exo1 Port1 OFF Hex: 23 3c 15 0a 01 00 00 00 00 00 00 00 00 fe
  // Exo1 Port1 ON  Hex: 23 3c 15 0a 01 ff 00 00 00 00 00 00 00 fe
  ----------------------------------Port1--2--3--4--5--6--7--8-----
  
  FillBytes(Buf, 14, 0); 
  Buf[0] := $23;
  Buf[1] := para1; // Exo1 modul1 ist $3C, modul2 ist $60, modul 3 ist $61, etc... 
  Buf[2] := $15;
  Buf[3] := $0A;
  Buf[4] := $01;
  Buf[5] := port1;
  Buf[6] := port2;
  Buf[7] := port3;
  Buf[8] := port4;
  Buf[9] := port5;
  Buf[10] := port6;
  Buf[11] := port7;
  Buf[12] := port8;
  Buf[13] := $fe;

  IdUDPClient1.Sendbuffer(IP, strtoint(Edit2.Text), Buf);
        //  ReceivedString := IdUDPClient1.ReceiveString();
  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure ckPortClick(Sender: TObject);
    procedure SendStateToHW;
  private
    { Private-Deklarationen }
  public
    PortState: array[0..7] of Boolean;
  end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
  var
    i: Integer;
    CheckBox: TCheckBox;
begin
  for i := 0 to 7 do begin
    CheckBox := TCheckBox.Create(Self);
    CheckBox.Parent := Self;
    CheckBox.Left := 16;
    CheckBox.Top := 16 +24*i;
    CheckBox.Width := 97;
    CheckBox.Height := 17;
    CheckBox.Caption := 'Port' +IntToStr(i +1);
    CheckBox.Tag := i;
    CheckBox.OnClick := ckPortClick;
    PortState[i] := FALSE;
  end;
end;

procedure TForm1.ckPortClick(Sender: TObject);
  var
    ThisCheckBox: TCheckBox;
begin
  ThisCheckBox := Sender as TCheckBox;
  PortState[ThisCheckBox.Tag] := ThisCheckBox.Checked;
  SendStateToHW;
end;

procedure TForm1.SendStateToHW;
  var
    i: Integer;
    Line: String;
begin
  Line := 'NewState=';
  for i := 0 to 7 do
    if PortState[i] then
      Line := Line +'FF,'
    else
      Line := Line +'00,';
  Memo1.Lines.Add(Line);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TForm4.SendStateToHW;
  var
    i: Integer;
    Line: String;
    Port: array [0..7] of Byte;

begin
   if not IdUDPClient1.Connected then
      Begin
         ShowMessage('Please connect.');
         Exit;
      End
   else

  //Line := 'NewState=';
  for i := 0 to 7 do
    if PortState[i] then
        // Line := Line +'FF,';
         Port[i] := $FF
      else
        //Line := Line +'00,';
        Port[i] :=  $00;
        DomoSend($3C, Port[0], Port[1], Port[2], Port[3], Port[4], Port[5], Port[6], Port[7], $FE);
        //Memo1.Lines.Add(line);
       end;

procedure TForm4.PortSwitch(Sender: TObject);
  var
    ThisSwitch: TSwitch;
 begin
  ThisSwitch := Sender as TSwitch;

  PortState[ThisSwitch.Tag] := ThisSwitch.IsChecked;
  //Memo1.Lines.Add(IntToStr(ThisSwitch.Tag));
  SendStateToHW;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TfrmMain.SetPortOn;
Var i: integer;
    ThisSwitch: TSwitch;
Begin
   for i := 0 to 7 do
      if PortState[i] then
      ThisSwitch.IsChecked := PortState[i];  
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:

Function ExoScan(exoport: Integer): Integer; //über button click (For c := 60 to 75  do  begin  ExoScan(c);  end;)
var
  ExoSBuf: AnsiString;
  Data, X, Y, ExoAnswer: String;
  n,i,v: Integer;

Begin
  frmMain.ClearStatus;
  frmMain.ClearExo;

  frmMain.Timer1.Enabled := False;
  Data := '';
  n := 0;
  i := 0;
  v := 0;
  X := HexToString(IntToHex(exoport, 1)); // '$'+IntToHex(i, 1);
  ExoSBuf := #$04#$01#$02#$23 + X + #$00#$02#$49#$49;
  ExoAnswer := #$04#$01#$23#$00 + X + #$07; // #$3b;
  sock.SendString(ExoSBuf);
  sleep(99);
  Data := sock.RecvPacket(500);
  X := Copy(Data, 3, 6);

  if ExoAnswer = X then
     Begin
      Y := Copy(X, 5, 1);
    //  frmMain.Memo1.Lines.Add('Exo:' + IntToStr(exoport mod 6 +1) + ' ' +
    //  StringToHex(Y)); // +' ' +Buf);
      i := exoport mod 6 +1;
      TRadioButton(frmMain.GroupBox2.Controls[i]).Enabled := True;
      TRadioButton(frmMain.GroupBox2.Controls[i]).Visible := True;
      frmMain.RadioButton1.IsChecked := True;  //immer Exo1 Auswählen nach bus scan
      for n := 60 to exoport mod 6 do
          frmMain.ExoTrue[n] := True;
        // frmMain.PortState[n,Nil] := True;
        //  frmMain.PortState1[n] := True;
      End;
      frmMain.Timer1.Enabled := True;
  //   Result :=n;
end;


Procedure TfrmMain.ScanStatus; //Hier wird gescannt im timer1 alle 1 sekunden. Soll Portstate[x,i] überschreiben! 
Const
  scan = #$05#$01;

Var
  S, X: String;
  I,Y,Exo,PortOn,n,m: Integer;
  Buf: String;
  source1: String;
begin
   {$ZEROBASEDSTRINGS OFF}
   Exo := 0;
   PortOn := 0;

  sock.SendString(scan);
  Buf := sock.RecvPacket(500);
  S := Buf.Substring(2,High(Buf));
  // Source1 := #$FF;
  source1 := #$01;

  for I := 0 to high(S) -1 do // so sind es immer 128 bytes, also maximal 16 exos a 8 ports.
     //if (I = 128) And (S[I] > source1) then 

         if S[i] > source1 then

            begin

            Exo := (I) div 8;
              if Exo = 0 then
                 PortOn := (I) mod 8 -1
              else
                 PortOn := (I) mod 8;

             //  if ExoTrue[Exo] then
                 PortState[Exo,PortOn] := True
               //  else
               //  PortState[Exo,PortOn] := False;
                //PortState1[PortOn] := True
             end;
            // Memo1.Lines.Add(Format('ScanStatus-Exo%d: %d',[Exo, PortOn])); //[(i) div 8, (i) mod 8]));
             Label13.Text := IntToStr(length(S));

End;

procedure TfrmMain.swPortClick(Sender: TObject);
var
  ThisSwitch: TSwitch;
begin

  ThisSwitch := Sender as TSwitch;
  ThisSwitch.OnClick := Nil;

  Exo := Exodet[SelectedExo];
  ExoTrue[SelectedExo] := True;
  PortState[SelectedExo,ThisSwitch.Tag] := ThisSwitch.IsChecked;
  //PortState1[ThisSwitch.Tag] := ThisSwitch.IsChecked;
  LastExoPort := ThisSwitch.Tag;

  Memo1.Lines.Add('Send to Exo:' + IntToStr(SelectedExo) + ' : ' + IntToStr(ThisSwitch.Tag));
  SendStateToHW;
  //sleep(99);
end;

procedure TfrmMain.SendStateToHW;
var
  I,N: Integer;
  Dim,IsDim: ansichar;
  Temp,Line: String;

  begin

  if IsSocketAlive(sock) = True then
  Begin
    ShowMessage('Please connect.');
    exit;
  End;
  if IsSocketAlive(sock) = False then

  Begin
    Line := 'Exo:'+IntToStr(SelectedExo)+'NewState=';
    if ExoTrue[selectedExo] then
       for i  := 0 to 7 do
        if PortState[selectedExo,i] then
        //if PortState1[i] then
           begin
      //     Line := Line +'FF,';
           Port[i] := #$FF;
           Dim := #$FE;
           end
          else
           Begin
       //    Line := Line +'00,';
           Port[i] := #$00;
           Dim := #$01;
              End;
        Memo1.Lines.Add(Line);
        DomoSend(Port[0], Port[1], Port[2], Port[3], Port[4], Port[5], Port[6], Port[7], Dim);

  End;



Procedure TfrmMain.DomoSend(port1: ansichar; port2: ansichar; port3: ansichar;
  port4: ansichar; port5: ansichar; port6: ansichar; port7: ansichar;
  port8: ansichar; para3: ansichar);
var
  Buf,Buf1: AnsiString;
  Data: String;
  I: Integer;

begin

  Data := #$04#$01#$02#$23 + Exo + #$00#$0a#$01 + port1 + port2 + port3 + port4
    + port5 + port6 + port7 + port8 + para3;

  sock.SendString(Data);// + CRLF);

  for I := 1 to High(Data) do
  begin
    Buf := Data.Substring(4,High(Data));
    Buf1 := Buf1 + StringToHex(Buf[I]);
  end;
  Memo1.Lines.Add(Buf1);
end;

Procedure SetPortOn; //hier werden die gescannten ports auf on geswitchd.

Var
  X: Integer;
  OldState: TNotifyEvent;

begin

for X := 0 to 7 do
   if frmMain.PortState[frmMain.SelectedExo,X] then
  // if frmMain.PortState1[X] then
    begin
       OldState := frmMain.u[X].OnSwitch;
       frmMain.u[X].OnSwitch := nil;
       frmMain.u[X].IsChecked := True;
       frmMain.u[X].OnSwitch := OldState;
    End
    else if frmMain.PortState[frmMain.SelectedExo,X] = False then
    //if frmMain.PortState1[X] = False then
    begin
        OldState := frmMain.u[X].OnSwitch;
        frmMain.u[X].OnSwitch := nil;
        frmMain.u[X].IsChecked := False;
        frmMain.u[X].OnSwitch := OldState;
    End;

end;

procedure TfrmMain.ClearStatus;

var n,m: integer;
Begin
  for n  := 0 to 15 do
      Begin
        for m := 0 to 7 do
           PortState[n,m] := False;
    //  PortState1[m] := False;
     // sleep(99);
      End;
End;

procedure TfrmMain.ClearExo;
Var m: integer;
begin
    for m := 0 to 15 do
     // PortState[n,m] := False;
      ExoTrue[m] := False;
     // sleep(99);
end;

procedure TfrmMain.RadioButtonClick(Sender: TObject); //Hier werden die Exos gewechselt.
Var
  I, X, Y: Integer;

Begin
   SelectedExo := 0;
{
   case (Sender as TRadioButton).Tag of
     0: Begin
        //ClearExo;
        ClearStatus;
        Memo1.lines.add('Cleared 1 ');
        End;
     1: Begin
        //ClearExo;
        ClearStatus;
        Memo1.lines.add('Cleared 2 ');
        End;
   end;
  }
  I := TRadioButton(Sender).Tag;
  Exo := Exodet[I];
  ExoTrue[I] := True;
  SelectedExo := I;
  Memo1.lines.add('Radio Change '+StringToHex(Exo)+'  ' +Exodet[I]);

End;

procedure TfrmMain.Timer1Timer(Sender: TObject); //hier wird alle 1 sec neu eingelesen und portstate neu gesetzt.
begin
   ScanStatus;
     SetPortOn;
end;

procedure TfrmMain.Timer2Timer(Sender: TObject);
begin
  Label4.Text := TimeToStr(Time - StartTime);

end;

procedure TfrmMain.FormCreate(Sender: TObject); //hier noch formcreate.
Var
  I,X: Integer;
  R: TBinaryReader;

begin
  //Memo1.VScrollBar.Value := Memo1.VScrollBar.Max;
  Label1.StyledSettings := Label1.StyledSettings - [TStyledSetting.FontColor];
  Label3.StyledSettings := Label3.StyledSettings - [TStyledSetting.FontColor];
  Label1.Text := ('Disconnected');
  Label1.FontColor := TAlphaColors.Red;
  Button1.Enabled := False;
  SelectedExo := 0;

  // RadioButton1.IsChecked := True;
  // RadioButtonTag := 1; //IsChecked := True;
  GroupBox1.Opacity :=0;
  GroupBox2.Opacity :=0;
  Memo1.Opacity :=0.5;
  Panel1.Opacity :=0;

  GroupBox1.Controls.Add(Switch1);
  GroupBox1.Controls.Add(Switch2);
  GroupBox1.Controls.Add(Switch3);
  GroupBox1.Controls.Add(Switch4);
  GroupBox1.Controls.Add(Switch5);
  GroupBox1.Controls.Add(Switch6);
  GroupBox1.Controls.Add(Switch7);
  GroupBox1.Controls.Add(Switch8);



  u[0] := Switch1;
  u[1] := Switch2;
  u[2] := Switch3;
  u[3] := Switch4;
  u[4] := Switch5;
  u[5] := Switch6;
  u[6] := Switch7;
  u[7] := Switch8;

  GroupBox2.Controls.Add(RadioButton1);
  GroupBox2.Controls.Add(RadioButton2);
  GroupBox2.Controls.Add(RadioButton3);
  GroupBox2.Controls.Add(RadioButton4);
  GroupBox2.Controls.Add(RadioButton5);
  GroupBox2.Controls.Add(RadioButton6);
  GroupBox2.Controls.Add(RadioButton7);
  GroupBox2.Controls.Add(RadioButton8);

 RadioButton1.Tag :=0;
  RadioButton2.Tag :=1;
   RadioButton3.Tag :=2;
    RadioButton4.Tag :=3;
     RadioButton5.Tag :=4;
      RadioButton6.Tag :=5;
       RadioButton7.Tag :=6;
        RadioButton8.Tag :=7;

 Switch1.Tag := 0;
  Switch2.Tag := 1;
   Switch3.Tag := 2;
    Switch4.Tag := 3;
     Switch5.Tag := 4;
      Switch6.Tag := 5;
       Switch7.Tag := 6;
        Switch8.Tag := 7;

  Exodet[0] := #$3c;
  Exodet[1] := #$3d;
  Exodet[2] := #$3e;
  Exodet[3] := #$3f;
  Exodet[4] := #$40;
  Exodet[5] := #$41;
  Exodet[6] := #$42;
  Exodet[7] := #$43;
  Exodet[8] := #$44;
  Exodet[9] := #$45;
  Exodet[10] := #$46;
  Exodet[11] := #$47;
  Exodet[12] := #$48;
  Exodet[13] := #$49;
  Exodet[14] := #$4a;
  Exodet[15] := #$4b;

  Exo := Exodet[0];
  FillChar(Port, 8, #$00);     //set domoports to zero.

 
  if SaveState.Stream.Size > 0 then
  begin
    // Recover previously typed text in Edit1 control.
    R := TBinaryReader.Create(SaveState.Stream);
    try
      Edit1.Text := R.ReadString;
      Edit2.Text := R.ReadString;
      Edit3.Text := R.ReadString;
      Edit4.Text := R.ReadString;
    finally
      R.Free;
    end;

  end;

  sock := TTCPBlockSocket.Create;

end;