第三十三章 UDP 客户端 服务器通信 - IPv4 和 IPv6

UDP 支持 IPv4 和 IPv6 互联网协议。由于这些协议不兼容，服务器和客户端都必须使用相同的Internet协议，否则传输将失败。

IPv4 地址具有以下格式。 n是 0 到 255 范围内的十进制整数：

n.n.n.n

可以将 IPv4 协议指定为"0.0.0.0" 。

IPv6 地址具有以下完整格式。 h是一个具有四个十六进制数字的十六进制数：

h:h:h:h:h:h:h:h

通常，IPv6 地址的缩写方式是消除前导零并用双冒号 (::) 替换连续的零部分； IPv6 地址中只能使用一个双冒号。通过使用 IPv4 缩写规则，可以将 IPv6 协议指定为“::” （意味着所有 8 个h部分的值为 0000）。

建立互联网协议：

• 客户端必须在 %New() 方法中建立 IPv4 或 IPv6。默认为 IPv4。
• 这必须与GetHostAddr()方法中指定并在Send()方法中提供（以二进制形式）的 IPv4 或 IPv6 协议匹配。

以下是 IPv4 传输：

Server
 SET sobj=##class(%Net.UDP).%New(3001,"127.0.0.1")



  SET inmsg=sobj.Recv() 

Client
 SET cobj=##class(%Net.UDP).%New()   /* the default is IPv4 */
 SET bhost=##class(%Net.UDP).GetHostAddr("127.0.0.1")
 SET outmsg="this is the message to send"
 WRITE cobj.Send(outmsg,bhost,3001) 

以下是 IPv6 传输：

Server
 SET x=##class(%SYSTEM.INetInfo).IsIPV6Enabled()
 IF x=1 {
    SET sobj=##class(%Net.UDP).%New(3001,"::1")



  SET inmsg=sobj.Recv() }
  ELSE {WRITE "IPv6 not enabled" } 

Client
 SET cobj=##class(%Net.UDP).%New(0,"::")
 SET bhost=##class(%Net.UDP).GetHostAddr("::1")
 SET outmsg="this is the message to send"
 WRITE cobj.Send(outmsg,bhost,3001) 

处理主机地址的方法可在%SYSTEM.INetInfo类文档中找到。