SuperCom S7 Protokoll Bibliothek

   -- Init Sequenz --

   TCOMMID Com = RS_S7OpenLink(S7CONFIGSTR); // TCP setup und S7 setup

   -- Access -- Fetch 3 Eingang Bits z.B. E1.0 to E1.2

  BYTE  cBuffer[3];     // 3 bits returned as 3 bytes
  DWORD dwAmount  = 3;  // bits requested = 0, 1, 2
  DWORD dwAddress = BitAddress(1, 0); //  // von Bit-Adresse

  if (RS_S7Ready(Com))
  {
     long nRet =  RS_S7Fetch(Com,
                            ORG_INPUT | ORG_REQ_IN_BITS,
                            dwAddress,
                            &dwAmount,
                            cBuffer);
  }

   :
  RS_S7CloseLink(Com);

   -- Init Sequenz --

   Var Com:TCOMMID;

   Com := RS_S7OpenLink(S7CONFIGSTR); // TCP setup und S7 setup

   -- Access -- Fetch 3 Eingang Bits z.B. E1.0 to E1.2

  Var cBuffer:Array[0..2] Of Byte; // 3 Bits als  Bytes geliefert
  dwAmount :DWORD = 3;             // Anzahl Bits = 0, 1, 2
  dwAddress:DWORD = BitAddress(1, 0); // von Bit-Adresse
  nRet:LongInt;

  nRet :=  RS_S7Fetch(Com,
                      ORG_INPUT OR ORG_REQ_IN_BITS,
                      dwAddress,
                      dwAmount,
                      cBuffer);

   :
  RS_S7CloseLink(Com);

  -- Init Sequenz --
  Anstelle des nativen API demonstrieren wir die S7 Klasse TSComS7

  TSComS7 SCom = new TSComS7(S7CONFIGSTR);
  SCom.S7Connect = true;

   -- Access -- Fetch 3 Eingang Bits z.B. E1.0 to E1.2
  if (SCom.S7Connected == false) return;

  int Com = SCom.CommId; // Parameter Com

  byte[] cBuffer = new byte[3]; // 3 Bits als  Bytes geliefert
  int dwAmount   = 3;           // Anzahl Bits = 0, 1, 2
  int dwAddress  = BitAddress(1, 0); // von Bit-Adresse

  int nRet = SuperCom.S7ISOonTCP.RS_S7Fetch(Com,
                                            ORG_INPUT | ORG_REQ_IN_BITS,
                                            dwAddress,
                                            ref dwAmount,
     :                                      cBuffer);
  SCom.S7Connect = false;

   -- Init Sequenz --

   Var Com As Integer

   Com = RS_S7OpenLink(S7CONFIGSTR) ' TCP setup und S7 setup

   -- Access --  Fetch 3 Eingang Bits z.B. E1.0 to E1.2

  Dim cBuffer As String   ' 3 Bits als  Bytes geliefert
  dwAmount   = 3          ' Anzahl Bits = 0, 1, 2
  dwAddress  = BitAddress(1, 0) ' von Bit-Adresse

  nRet =  RS_S7Fetch(Com,
                     ORG_INPUT OR ORG_REQ_IN_BITS,
                     dwAddress,
                     dwAmount,
                     cBuffer)

     :

  RS_S7CloseLink(Com);

      // Fetch 2 Worte von DB 10, beginnend ab Adresse 0

  WORD  wBuffer[2];
  DWORD dwAddress = 0; // von
  DWORD dwAmount  = 2 * sizeof(WORD); // 2*2 = 4 Bytes

  long nRet = RS_S7Fetch(Com,
                         RS_S7BLOCK_AREA_NR(ORG_DB, 10),
                         dwAddress,
                         &dwAmount,
                         wBuffer);

      // Fetch 2 Worte von DB 10, beginnend ab Adresse 0

  Var wBuffer:Array[0..1] Of WORD;
  dwAddress:DWORD = 0;  // von
  dwAmount:DWORD  = 2 * SizeOf(WORD); // 2*2 = 4 Bytes;

  nRet :=  RS_S7Fetch(Com,
                      RS_S7BLOCK_AREA_NR(ORG_DB, 10),
                      dwAddress,
                      dwAmount,
                      wBuffer);

      // Fetch 2 Worte von DB 10, beginnend ab Adresse 0

  short[] wBuffer = new short[2];
  int dwAddress  = 0; // von
  int dwAmount   = 2 * SizeOf(WORD); // 2*2 = 4 Bytes;

  int nRet = SuperCom.S7ISOonTCP.RS_S7Fetch(Com,
                                            RS_S7BLOCK_AREA_NR(ORG_DB, 10),
                                            dwAddress,
                                            ref dwAmount,
                                            wBuffer);

      // Fetch 2 Worte von DB 10, beginnend ab Adresse 0

  Dim wBuffer As String
  dwAddress  = 0 ' von
  dwAmount   = 4 ' 2 WORD = 2*2=4 Bytes

  nRet =  RS_S7Fetch(Com,
                     RS_S7BLOCK_AREA_NR(ORG_DB, 10),
                     dwAddress,
                     dwAmount,
                     wBuffer)