SuperCom MODBUS Protokoll Bibliothek

---

für Windows und Linux

   #define SLAVE_ID  1
   TCOMMID Com = COM_2; // Com Index z.B. serielle COM2


       // Seriell, TCP, ... - natives API
   ComInit (Com);
   ComSetState (Com, 9600, ...);           // mit RS_OpenLink
   Com = RS_OpenLink("IP=192.168.0.12;Port=9000;"); // z.B. für TCP
     // oder
   Com = RS_OpenLink("BaudRate=9600;DataBits=8;StopBits=1;Parity=N;"); // z.B. für seriell         // Seriell, TCP über die CSuperCom Klasse, siehe C++ Klasse CSuperCom
   CTcpClient SCom = new CTcpClient("192.168.0.121", 9000);
   SCom.Connect(true);  // verbinden
   Com = SCom.GetCom();
     :

   -- Zugriff --

   RS_MBSetConfig(Com,,MODBUS_MODE_RTU,,);

   if (RS_MBReadCoil (Com,
                      SLAVE_ID,
                      wCoil,
                      &Buffer))
   {
       printf("Coil[%d] = %s ", wCoil, Buffer?"TRUE":"FALSE");
   }
   else
   {
       int ErrorCode = RS_MBGetLastError(Com);

       if (ErrorCode == MB_ERR_EXCEPTION)
           printf("Exception %02X reported from slave ", RS_MBGetException(Com));
       else
           printf("Error %d", ErrorCode);
   }

   ComReset(Com);SCom.ComReset();RS_CloseLink(Com);

   Const SLAVE_ID = 1;
   Var Com : TCOMMID = COM_2; // Com Index z.B. serielle COM2
       ErrorCode:Integer;


       // Seriell, TCP, ... - natives API
   ComInit (Com);
   ComSetState (Com, 9600, ...);
         // über RS_OpenLink
   Com := RS_OpenLink('IP=192.168.0.12;Port=9000;');  // z.B. für TCP
     // oder z.B. für seriell
   Com := RS_OpenLink('BaudRate=9600;DataBits=8;StopBits=1;Parity=N;');
           // Seriel, TCP über die TSuperCom Klasse, siehe Delphi Klasse TSuperCom
   Var SCom:TTcpClient;
   SCom := TTcpClient.Create('192.168.0.121', 9000, 0);
   SCom.Connect(True);  // verbinden
   Com := SCom.GetCom;        // Seriel, TCP über die TModBus Klasse, siehe Delphi Klasse TModBus   1    2 
   Var SCom:TModBus;
   SCom := TModBus.Create('192.168.0.121', 0);
   SCom.Connect(True);  // verbinden
   Com := SCom.GetCom;

     :

   -- Zugriff --
   SCom.RS_MBSetConfig(,,MODBUS_MODE_RTU,,);

   If ( SCom.RS_MBReadCoil (,
                      SLAVE_ID,
                      wCoil,
                      Buffer)) Then

       Write('Coil[', wCoil, '] =', Buffer)
   Else
     Begin
        ErrorCode = SCom.RS_MBGetLastError();

        If (ErrorCode := MB_ERR_EXCEPTION) Then
           Write('Exception ',  SCom.RS_MBGetException, ' reported from slave ')
        Else
           Write('Error ', ErrorCode);
     End;
     :
   -- Zugriff --
   RS_MBSetConfig(Com,,MODBUS_MODE_RTU,,);

   If (RS_MBReadCoil (Com,
                      SLAVE_ID,
                      wCoil,
                      Buffer)) Then

       Write('Coil[', wCoil, '] =', Buffer)
   Else
     Begin
        ErrorCode = RS_MBGetLastError(Com);

        If (ErrorCode := MB_ERR_EXCEPTION) Then
           Write('Exception ', RS_MBGetException(Com), ' reported from slave ')
        Else
           Write('Error ', ErrorCode);
     End;
 
   ComReset (Com);SCom.Free;RS_CloseLink(Com);SCom.Free;

   SCom = new TSCom(Com); // Instanz erzeugen

   SCom.ComType  = ComType.COMTYPE_RS232;  //-- Seriell
   SCom.Settings = "9600,N,8,1";
   SCom.PortOpen = true;   SCom.ComType  = ComType.COMTYPE_WINSOCK_CLIENT;  //-- TCP
   SCom.PortOpen = true; // Datenkanal setzen und später verbinden
   SCom.ConnectAddress  = "www.my-mb-server.com:9000";
   SCom.Connect  = true;  // verbinden
        :

   -- Zugriff --
   int Com = SCom.CommId();

   SuperCom.MODBUS.RS_MBSetConfig(Com,,SuperCom.MODBUS.MODBUS_MODE_RTU,,);

   if (SuperCom.MODBUS.RS_MBReadCoil (Com,
                      SLAVE_ID,
                      wCoil,
                      Buffer))
      WriteLine("Coil[{0}] = {0}", wCoil, Buffer);
   else
   {
      int ErrorCode = SuperCom.MODBUS.RS_MBGetLastError(Com);

      if (ErrorCode = MB_ERR_EXCEPTION) Then
      {
         WriteLine("Exception {0} reported from slave", SuperCom.MODBUS.RS_MBGetException(Com));
      }
      else
      {
         WriteLine("Error {0}", ErrorCode);
      }
   }

  SCom.PortOpen = false;

   Const SLAVE_ID = 1
   Dim Com As Integer
   Dim ErrorCode As Integer

       ' Serial, TCP, ... - natives API
   Com = COM_2 ' Com Index z.B. serielle COM2
   Call ComInit (Com)
   Call ComSetState (Com, 9600, ...)

         ' using RS_OpenLink e.g. with TCP config
   Com = RS_OpenLink("IP=192.168.0.12;Port=9000;")

        '-- das ActiveX oder die TSCom Klasse mit VB net z.B. für TCP
   SCom.ComType  = ComType.COMTYPE_WINSOCK_CLIENT
   SCom.PortOpen = True ' Datenkanal setzen und später verbinden
   SCom.ConnectAddress  = "www.my-mb-server.com:9000"
   SCom.Connect  = True ' verbinden
   Com = SCom.CommId()
     :

   -- Zugriff --

   Call RS_MBSetConfig(Com,,MODBUS_MODE_RTU,,)

   If (RS_MBReadCoils(Com, _
                      SLAVE_ID, _
                      wFromCoil, _
                      wCount, _
                      cBuffer(0))) Then
      WriteLine ("Response (" & Format(wCount) & " bits), Coil:" & Format(wFromCoil))
   Else
      ErrorCode = RS_MBGetLastError(Com)

      If (ErrorCode = MB_ERR_EXCEPTION) Then
         WriteLine ("Exception " & Format(RS_MBGetException(Com)) & " reported from slave")
      End If
   End If

   Call ComReset(Com)


   Call RS_CloseLink(Com)
   SCom.PortOpen = False

   #define SLAVE_ID  1
   TCOMMID Com = COM_2; // Com Index z.B. serielle COM2

   WORD Buffer [10];
   WORD wStart=0x0000;
   WORD wCount=1;
   WORD wValue=0x0020;
        :
   -- Init Sequenz (siehe oben) --
        :
   RS_MBSetConfig(Com,,MODBUS_MODE_RTU,,);

   if (RS_MBWriteRegister(Com, SLAVE_ID, wStart, wValue))
       printf ("Read Success.\n");
   else
       printf ("Error: %d\n", RS_MBGetLastError(Com));

   if (RS_MBReadHoldingRegisters(Com,
                              SLAVE_ID,
                              wStart,
                              &wCount,
                              Buffer))
   {
       printf("Read %d Register:", wCount);
       for (int i=0; i<wCount; i++)  printf ("%4X",Buffer[i]);
   }
   else
       printf ("Error: %d\n", RS_MBGetLastError(Com));

   Const SLAVE_ID = 1;
   Var Com:TCOMMID = COM_2; // Com Index z.B. serielle COM2
       ErrorCode:Integer;
       Buffer:Array [0..9] Of Word;
       wStart:WORD=$0000;
       wCount:WORD=1;
       wValue:WORD=0x0020;
        :
   -- Init Sequenz (siehe oben) --
        :
   RS_MBSetConfig(Com,,MODBUS_MODE_RTU,,);

   If (RS_MBWriteRegister(Com, SLAVE_ID, wStart, wValue)) Then
       WriteLn('Read Success.')
   Else
       WriteLn('Error: ', RS_MBGetLastError(Com));

   If (RS_MBReadHoldingRegisters(Com,
                              SLAVE_ID,
                              wStart,
                              &wCount,
                              Buffer)) Then
     Begin
        Write('Read ', wCount, ' Register:');
        For I:=0 To wCount-1 Do Write(Hex(Buffer[i]));
     End
   Else
     WriteLn('Error: ', RS_MBGetLastError(Com));

   int ErrorCode
   int Buffer=new int[10];
   int wStart ,wCount, wValue;
   wStart = 0x0000; wCount = 1; wValue = 0x0020;
        :
   -- Init Sequenz (siehe oben) --
        :
   SuperCom.MODBUS.RS_MBSetConfig(Com,,SuperCom.MODBUS.MODBUS_MODE_RTU,,);

   if (SuperCom.MODBUS.RS_MBWriteRegister(Com, SLAVE_ID, wStart, wValue))
       WriteLine ("Read Success.\n");
   else
       WriteLine("Error: {0}", RS_MBGetLastError(Com));

   if (RS_MBReadHoldingRegisters(Com,
                              SLAVE_ID,
                              wStart,
                              ref wCount,
                              ref Buffer))
   {
       WriteLine("Read {0} Register:", wCount);

       for (int i=0; i<wCount; i++)
       WriteLine("{0:x4}",Buffer[i]);
   }
   else
   {
       printf ("Error: {0}\n", RS_MBGetLastError(Com));
   }

   Const SLAVE_ID = 1
   Const Com = COM_2 ' Com Index z.B. serielle COM2

   Dim ErrorCode As Integer
   Dim Buffer(10) As Integer
   Dim wStart ,wCount, wValue As Integer

   wStart = &H0000 : wCount = 1 : wValue = &H0020
        :
   -- Init Sequenz (siehe oben) --
        :
   Call RS_MBSetConfig(Com,,MODBUS_MODE_RTU,,)

   If (RS_MBWriteRegister(Com, SLAVE_ID, wStart, wValue)) Then
       WriteLine("Read Success.")
   Else
       WriteLine("Error: " & Format(RS_MBGetLastError(Com)));

   If (RS_MBReadHoldingRegisters(Com,
                              SLAVE_ID,
                              wStart,
                              &wCount,
                              Buffer(0))) Then
     WriteLine("Read " & Format(wCount) & " Register:" &vbCrLf);
     For I=0 To wCount-1 Do WriteLine(Hex(Buffer[i]));
   Else
     WriteLine("Error: " & Format(RS_MBGetLastError(Com)));
   EndIf