51 lines
No EOL
1.1 KiB
Text
51 lines
No EOL
1.1 KiB
Text
/*@!Encoding:1252*/
|
|
|
|
includes
|
|
{
|
|
#include "TcpCommon.cin"
|
|
#include "ModbusClientCommon.cin"
|
|
}
|
|
|
|
void ModbusConnectTo(char Remote_IP[], word Remote_Port)
|
|
{
|
|
TcpConnectTo("192.168.1.3", 502);
|
|
}
|
|
|
|
void ModbusSend(byte buffer[])
|
|
{
|
|
TcpSnd(buffer);
|
|
}
|
|
|
|
void ModbusRecv()
|
|
{
|
|
TcpRecv();
|
|
}
|
|
|
|
|
|
void OnTcpReceive(dword socket, long result, dword address, dword port, byte buffer[], dword size)
|
|
{
|
|
if (result == 0)
|
|
{
|
|
if (size == 0)
|
|
{
|
|
// Size of zero indicates that the socket was closed by the communication peer.
|
|
writeLineEx(0, 2, "<%NODE_NAME%> OnTcpReceive: Socket closed by peer");
|
|
gSocket.Close();
|
|
gSocketState = CLOSED;
|
|
}
|
|
else
|
|
{
|
|
// Sucessfully received some bytes over the TCP/IP connection.
|
|
OnModbusReceive(buffer, size);
|
|
TcpRecv();
|
|
}
|
|
}
|
|
else
|
|
{
|
|
gIpLastErr = gSocket.GetLastSocketError();
|
|
gSocket.GetLastSocketErrorAsString(gIpLastErrStr, elcount(gIpLastErrStr));
|
|
writeLineEx(0, 2, "<%NODE_NAME%> OnTcpReceive error (%d): %s", gIpLastErr, gIpLastErrStr);
|
|
gSocket.Close();
|
|
gSocketState = CLOSED;
|
|
}
|
|
} |