/*

? Compiler Directives

? (Uncomment and declare compiler directives as needed)

*/

// #ENABLE_DYNAMIC

#SYMBOL_NAME "Dynamic TCP Client"

// #HINT ""

#DEFINE_CONSTANT BUFFER_SIZE? 255

// #CATEGORY ""?

// #PRINT_TO_TRACE

// #DIGITAL_EXPAND?

// #ANALOG_SERIAL_EXPAND?

// #OUTPUT_SHIFT?

// #HELP_PDF_FILE ""

#DEFAULT_VOLATILE

#ENABLE_STACK_CHECKING

#ENABLE_TRACE

// #ENCODING_ASCII

// #ENCODING_UTF16

// #ENCODING_INHERIT_FROM_PARENT

// #ENCODING_INHERIT_FROM_PROGRAM

/*

#HELP_BEGIN

? ?(add additional lines of help lines)

#HELP_END

*/

?

/*

? Include Libraries

? (Uncomment and include additional libraries as needed)

*/

// #CRESTRON_LIBRARY ""

// #USER_LIBRARY ""

?

/*

? DIGITAL, ANALOG and SERIAL INPUTS and OUTPUTS

? (Uncomment and declare inputs and outputs as needed)

*/

DIGITAL_INPUT? ?connect;

ANALOG_INPUT? ? port;

STRING_INPUT? ? target_address[BUFFER_SIZE], TX[BUFFER_SIZE];

?

DIGITAL_OUTPUT? connected;

ANALOG_OUTPUT? ?status;

STRING_OUTPUT? ?RX;

?

/*

? SOCKETS

? (Uncomment and define socket definitions as needed)

*/

TCP_CLIENT client[1024];

?

/*

? Global Variables

? (Uncomment and declare global variables as needed)

? Note:? Be sure to initialize all declared STRING variables as needed

? ? ? ? ?For example, in Function Main: myString = "";

*/

?

INTEGER reconnect_enabled;

INTEGER is_connected;

?

/*

? Functions

? (Add any additional functions here)

? Note:? Functions must be physically placed before the location in

? ? ? ? ?the code that calls them.

*/

?

/*

? Event Handlers

? (Uncomment and declare additional event handlers as needed)

*/

?

PUSH connect

{

? SIGNED_INTEGER connection_status;

? connection_status = SocketConnectClient(client, target_address, port, reconnect_enabled);

?

? if(connection_status < 0)

? ? trace("Error connecting socket to address %s on port %d", target_address, port);

}

?

RELEASE connect

{

? SIGNED_INTEGER connection_status;

? connection_status = SocketDisconnectClient(client);

?

if (connection_status < 0)

trace("Error disconnecting socket to address %s on port %d", target_address, port);

}

?

CHANGE TX

{

? //SIGNED_INTEGER send_status;

?

? trace("LEN TX: %d TX: %s", len(TX), TX);

? SocketSend(client, TX);

?

? //if (send_status < 0)

? //? trace("Error sending tocleint: %d\n", send_status);

?

}

?

SOCKETCONNECT client

{

? connected = 1;

}

?

SOCKETDISCONNECT client

{

? connected = 0;

? if (connect)

? ? trace("Socket disconnected remotely");

? else

? ? trace("Local disconnect complete.");

}

?

SOCKETSTATUS client

{

? status = SocketGetStatus();

?

? trace("The SocketGetStatus returns:? ? ?%d\n", status);

? trace("The Client.SocketStatus returns: %d\n", client.SocketStatus);

}

?

SOCKETRECEIVE client

{

? if (len(client.SocketRxBuf) < BUFFER_SIZE)

? ? trace("RX: %s", client.SocketRxBuf);

?

? // Send to serial output and clear buffer.

? RX = client.SocketRxBuf;

? ClearBuffer(client.SocketRxBuf);

}

?

/*

? Main()

? Uncomment and place one-time startup code here

? (This code will get called when the system starts up)

*/

?

Function Main()

{

? ? // TODO:? Add code here

? ? // Initialize declared global and local variables/arrays as needed.

? reconnect_enabled = 1;

?

? ? WaitForInitializationComplete();

? ? // If you are reading any Input or Output variables, uncomment

? ? //? ?the WaitForInitializationComplete statement above and read

? ? //? ?them afterwards.? Input/Output variables will not have

? ? //? ?their correct values set until after the logic processor

? ? //? ?runs and propagates the values to them.

}