SuperCom S7 Protokoll Bibliothek

      // Fetch 3 Eingang Bits z.B. E1.0 to E1.2

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

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

      // 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);

      // Fetch 3 Eingang Bits z.B. E1.0 to E1.2

  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);

      ' 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)

      // 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)