第三十二章 UDP 客户端 服务器通信

第三十二章 UDP 客户端 服务器通信

本页介绍如何使用 UDP 在进程之间建立远程通信。

介绍

通过%Net.UDP来支持 UDP。此类提供以下方法： Send()数据包到指定的目的地和端口、 Recv()来自套接字的数据包以及Reply()发送器最后收到的数据包。

目标被标识为本地主机名或者 IPv4 或 IPv6 主机地址。该端口可以是指定的端口号或动态端口分配。

建立UDP套接字

要使用 UDP，必须使用%New()方法来创建 UDP 套接字对象。然后，该对象实例用于发送、接收和回复数据包传输。

创建 UDP 套接字对象时，可以指定端口号和主机地址，如下例所示：

  SET UPDOref=##class(%Net.UDP).%New(3001,"0.0.0.0")

端口号和主机地址都是可选的。 %New()方法返回 UDP 套接字对象实例的 OREF（对象引用）。

• 服务器等待接收请求，然后提供所请求的信息。因此，传输的这一方可以称为接收方或提供方。当提供者创建 UDP 对象时，它必须定义接收请求的端口号。
• 客户端发送信息请求，然后接收回复。因此，传输的这一方可以称为发送方或请求方。当请求者创建 UDP 对象时，它可以使用动态端口号。默认值为0。当它发送数据包时，必须指定提供者的主机名和端口号。

主机地址

Send()方法指定目标的二进制地址。这是主机地址的二进制版本。必须使用GetHostAddr()方法创建此二进制主机地址，如下所示：

  SET client=##class(%Net.UDP).%New()
  SET addrbin=##class(%Net.UDP).GetHostAddr("172.16.61.196")
  WRITE client.Send("message text",addrbin,3001)

以向GetHostAddr()指定主机名、IPv4 地址或 IPv6 地址，如以下示例所示：

  SET hostname="MYLAPTOP"
  SET IPv4="172.16.61.196"
  SET IPv6="::1"
  SET flag=$SYSTEM.INetInfo.CheckAddressExist(hostname)
  IF flag=1 { SET addrbin=##class(%Net.UDP).GetHostAddr(hostname)
              WRITE "host name valid",! }
     ELSE { WRITE "not a hostname: ",hostname,! }
  SET flag=$SYSTEM.INetInfo.CheckAddressExist(IPv4)
  IF flag=1 { SET addrbin=##class(%Net.UDP).GetHostAddr(IPv4)
              WRITE "IPv4 valid",! }
     ELSE { WRITE "not an IPv4 address: ",IPv4,! }
  SET flag=$SYSTEM.INetInfo.CheckAddressExist(IPv6)
  IF flag=1 { SET addrbin=##class(%Net.UDP).GetHostAddr(IPv6)
              WRITE "IPv6 valid",! }
     ELSE { WRITE "not an IPv6 address: ",IPv6,! }

可以使用AddrToHostName()方法将此二进制主机地址扩展回主机名，如以下示例所示：

  SET addrbin=##class(%Net.UDP).GetHostAddr("MYLAPTOP")
  WRITE $SYSTEM.INetInfo.AddrToHostName(addrbin)

可以使用LocalHostName()法来确定主机名。可以使用HostNameToAddr()方法将主机名转换为 IPv4 或 IPv6 地址，如以下示例所示：

  SET localhost=$SYSTEM.INetInfo.LocalHostName()            /* get host name */
     WRITE "local host name is ",localhost,!
  SET addrbin=##class(%Net.UDP).GetHostAddr(localhost)      /* compress to binary address */
     WRITE "binary form of IP address is ",addrbin,!
  SET hostname=$SYSTEM.INetInfo.AddrToHostName(addrbin)     /* expand binary address to host name */
     WRITE "binary IP address expands to ",hostname,!
  SET ipaddr=$SYSTEM.INetInfo.HostNameToAddr(hostname)      /* host name to IP address */
     WRITE "hostname corresponds to IP address ",ipaddr,!