1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

{------------------------------------------------------------------------------}
{ Procedure: Ausgang einschalten                                               }
{------------------------------------------------------------------------------}
procedure TForm1.Setzen(Ausgang:Integer); // Ausgang setzen
begin
  WriteBuffer[0] := 1;                 // wenn 1 setzen wenn 0 zurücksetzen

  If (MBTWriteCoils(hSocket, Ausgang, 1, @WriteBuffer, nil, 0) <> S_OK) then
  begin                                // wenn es nicht geklappt hat Fehlermeldung generieren
     Application.MessageBox('Es ist ein Fehler beim WagoI/O aufgetreten !', 'write error', MB_OK);
  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:

const
  { Einstellung WagoI/O System with TCP-IP Protokol }
  DEFAULT_SERVER_NAME     : array[0..15] of Char = '192.168.1.2'; // ip-adress
  DEFAULT_PORT            : Word = 502;       // modbusport
  
  DEFAULT_PROTOCOL        : Boolean = True;   // True=tcp, False=udp
  DEFAULT_REQUEST_TIMEOUT : LongWord = 1000;  // in ms

  { Engänge difination }
  Eingang1: Byte = 0;          //
  Eingang2: Byte = 1;          // 
  Eingang3: Byte = 2;          // 
  Eingang4: Byte = 3;         // 
  Eingang5 : Byte = 4;          // Reserve
  Eingang6 : Byte = 5;          // Reserve
  Eingang7 : Byte = 6;          // Reserve
  Eingang8 : Byte = 7;          // Reserve

  { Ausgänge difination }
  Ausgang1 : Byte = 0;          // Reserve
  Ausgang2 : Byte = 1;          // Reserve
  Ausgang3 : Byte = 2;          // Reserve
  Ausgang4 : Byte = 3;          // Reserve
  Ausgang5 : Byte = 4;          // Reserve
  Ausgang6 : Byte = 5;          // Reserve                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function TForm1.Eingang(AdrEingang:Integer):Boolean; // Eingang lesen
var
  ReadBuffer  : array[0..250] of Byte;
begin
  If (MBTReadCoils(hSocket, MODBUSTCP_TABLE_OUTPUT_COIL,AdrEingang, 1, @ReadBuffer, nil, 0) = S_OK) then
  begin
    Case ReadBuffer[0] of
      0: Eingang := False;            // Engang ist nicht gesetzt
      1: Eingang := True;             // Eingang ist gesätzt
    end;
  end else begin                      // wenn es nicht geklappt hat Fehlermeldung generieren
     Application.MessageBox('Es ist ein Fehler beim WagoI/O aufgetreten !', 'write error', MB_OK);
  end;
end;