rchFallbackGet (Functionblock)

rchFallbackGet will read out the fallback parameters for the RTCU Communication Hub, previously set from the RTCU M2M Studio or by using the rchFallbackSet function.

Input:        

None

Output:

enabled : BOOL

True if fallback connection is enabled, false if not.

address : STRING

The IP address or symbolic name of the server.

port : DINT

The IP port the device should use to connect to the server.

loginkey : STRING

The key (password) the device should use to connect to the server.

MaxConnectionAttempt : INT

Max number of connection attempts before the network media reconnects.

MaxSendReqAttempt : INT

Max number of send-request attempts before send fails.

ResponseTimeout : INT

Time waiting for response in seconds.

AliveFreq : DINT

Frequency for sending self-transactions in seconds.

CryptKey[n] : SINT

The key used to encrypt communication with the server.

Declaration:

FUNCTION_BLOCK rchFallbackGet;
VAR_OUTPUT
   enabled              : BOOL;
   address              : STRING;
   port                 : DINT;
   loginkey             : STRING;
   MaxConnectionAttempt : INT;
   MaxSendReqAttempt    : INT;
   ResponseTimeout      : INT;
   AliveFreq            : DINT;
   CryptKey             : ARRAY[1..16] OF SINT;
END_VAR;

Example:

INCLUDE rtcu.inc
 
PROGRAM test;
VAR
   mobileParm : netGetMobileParam;
   rchParm    : rchFallbackGet;
   parmReset  : BOOL := FALSE;
   CryptKey   : ARRAY[1..16] OF SINT;
END_VAR;
 
// Check cellular network and RTCU Communication Hub settings
mobileParm();
rchParm();
IF mobileParm.IP <> 0 OR mobileParm.SubnetMask <> 0 OR mobileParm.Gateway <> 0 OR
   mobileParm.DNS1 <> 0 OR mobileParm.DNS2 <> 0 OR mobileParm.Authenticate <> 0 OR
   strCompare(str1 := mobileParm.Username, str2 := "") <> 0 OR
   strCompare(str1 := mobileParm.Password, str2 := "") <> 0 OR
   strCompare(str1 := mobileParm.APN, str2 := "internet") <> 0 THEN
   // Set APN and keep the default values for the others
   netSetMobileParam(APN := "internet");
   parmReset := TRUE;
END_IF;
IF NOT rchParm.enabled OR rchParm.port <> 5001 OR rchParm.CryptKey[1] <> 0 OR
   rchParm.CryptKey[2] <> 0 OR rchParm.CryptKey[3] <> 0 OR rchParm.CryptKey[4] <> 0 OR
   rchParm.CryptKey[5] <> 0 OR rchParm.CryptKey[6] <> 0 OR rchParm.CryptKey[7] <> 0 OR
   rchParm.CryptKey[8] <> 0 OR rchParm.CryptKey[9] <> 0 OR rchParm.CryptKey[10] <> 0 OR
   rchParm.CryptKey[11] <> 0 OR rchParm.CryptKey[12] <> 0 OR rchParm.CryptKey[13] <> 0 OR
   rchParm.CryptKey[14] <> 0 OR rchParm.CryptKey[15] <> 0 OR rchParm.CryptKey[16] <> 0 OR
   strCompare(str1 := rchParm.address, str2 := "gw.rtcu.dk") <> 0 OR
   strCompare(str1 := rchParm.loginkey, str2 := "AABBCCDD") <> 0 THEN
   // Clear encryption key
   CryptKey[1]  := 0;
   CryptKey[2]  := 0;
   CryptKey[3]  := 0;
   CryptKey[4]  := 0;
   CryptKey[5]  := 0;
   CryptKey[6]  := 0;
   CryptKey[7]  := 0;
   CryptKey[8]  := 0;
   CryptKey[9]  := 0;
   CryptKey[10] := 0;
   CryptKey[11] := 0;
   CryptKey[12] := 0;
   CryptKey[13] := 0;
   CryptKey[14] := 0;
   CryptKey[15] := 0;
   CryptKey[16] := 0;
   // Set RCH parameters
   rchFallbackSet(enable := TRUE, address := "gw.rtcu.dk", port := 5001, loginkey := "AABBCCDD", CryptKey := ADDR(CryptKey));
   parmReset := TRUE;
END_IF;
IF parmReset THEN
   // Reset device before the changes are used
   boardReset();
END_IF;
 
// Turn on power to the GSM module
gsmPower(power := TRUE);
netOpen(iface := 1);
 
BEGIN
   ...
END;
END_PROGRAM;