/*@!Encoding:1252*/

includes
{
	#include "TcpCommon.can"
}

variables
{
	int state = 0;
}

// Get information of local network interface such like ip address

on preStart
{
	setStartdelay(1000);
}

on start
{
	long fehler;

	fehler = TcpConnectTo("192.168.1.3", 502);
	state = fehler == 0;
}

on key 'd'
{
	SendTcpData();
}

void SendTcpData()
{
	const word length = 12;
	char buffer[length];
	
	if (state == 0)
	{
		writelineex(0, 2, "Tcp socket is invalid!");

		return;
	}

	// Modbus Application Header
	buffer[00] = 0x23;			// [2] Transaction ID
	buffer[01] = 0x45;
	buffer[02] = 0x00;			// [2] Protocol ID = 0
	buffer[03] = 0x00;
	buffer[04] = (length-6)>>8;	// [2] Length; Number of bytes following
	buffer[05] = (length-6);
	buffer[06] = 0xFF;			// [1] Unit identifier; not relevant
	// Payload
	buffer[07] = 0x01;			// [1] Function Code; 1:Read DI; 2:Read DIO; 3:Read AIO; 4:Read AI; 5:Write 1 DO; 6:Write 1 AO; 7: Read Exeption, 15:Write n DO; 16:Write n AO;
	buffer[08] = 0x00;			// [2] Start address
	buffer[09] = 0x00;
	buffer[10] = 0x01;			// [2] Number of items; 1:max 2000=0x7D0
	buffer[11] = 0xFF;

	write("Sende '%s' (Länge: %d)", buffer, length);
	
	if (gSocket.Send(buffer, elCount(buffer)) != 0)
	{
		gIpLastErr = gSocket.GetLastSocketError();

		if (gIpLastErr != WSA_IO_PENDING)
		{
			gSocket.GetLastSocketErrorAsString(gIpLastErrStr, elcount(gIpLastErrStr));

			writelineex(0, 2, "Tcp send error (%d): %s", gIpLastErr, gIpLastErrStr);
		}
	}
	else
	{
		writelineex(0, 1, "Tcp data sent successfully!");
	}
}

/**/