soAddrInetGet (Function)

The soAddrInetGet function will return the IP address and port from a socket address.

Input:

address : STRING

The socket address.

Output:

host : STRING

The IP address.

port : DINT

The IP port number.

Returns: INT

Declaration:

FUNCTION soAddrInetGet : INT;
VAR_INPUT
  address : STRING;
  host    : ACCESS STRING;
  port    : ACCESS DINT;
END_VAR;

Example:

INCLUDE rtcu.inc
 
PROGRAM udp_example;
VAR
handle  : SYSHANDLE;
address : STRING;
 
buf     : ARRAY [1..230] OF SINT;
size    : DINT;
local   : STRING;
remote  : STRING;
rc      : INT;
 
port    : DINT;
host    : STRING;
str     : STRING;
END_VAR;
 
// Open network
netOpen(iface := _NET_IFACE_LAN1);
 
// Open UDP socket
rc := soCreate(type := _SO_TYPE_DGRAM, protocol := _SO_PROT_UDP, socket := handle);
IF rc < 1 THEN
// Error handling
DebugFmt(message := "soCreate=\1", v1 := rc);
END_IF;
 
// Listen to port 5022 on any network interface
soAddrInetSet(address := address, port := 5022);
rc := soBind(socket := handle, address := address);
IF rc < 1 THEN
// Error handling
DebugFmt(message := "soBind=\1", v1 := rc);
END_IF;
 
BEGIN
// Read data (blocks until data is available)
rc  := soRecvFrom(
                  socket  := handle,
                  data    := ADDR(buf),
                  maxsize := SIZEOF(buf),
                  size    := size,
                  local   := local,
                  remote  := remote
                  );
IF rc < 1 THEN
  // Error handling
END_IF;
 
// Get information
soAddrInetGet(address := remote, host := host, port := port);
str := strFromMemory(src := ADDR(buf), len := INT(size));
 
// Show information
DebugFmt(message := " soRecvFrom    = \1", v1 := rc);
DebugFmt(message := "    interface  = \1", v1 := soAddrToInterface(address := local));
DebugMsg(message := "    IP address = " + host);
DebugFmt(message := "    IP port    = \4", v4 := port);
DebugMsg(message := "    data       = [" + str + "]");
END;
END_PROGRAM;