delphi IdIPMCastClient的AddMulticastMembership方法如何添加多个组播组

在 Delphi 中，使用 IdIPMCastClient 的 AddMulticastMembership 方法可以将一个或多个多播组成员身份添加到客户端套接字。如果要添加多个多播组成员身份，可以多次调用 AddMulticastMembership 方法。

以下是使用 IdIPMCastClient 的 AddMulticastMembership 方法添加多个多播组成员身份的示例代码：

var
  MulticastClient: TIdIPMCastClient;
begin
  MulticastClient := TIdIPMCastClient.Create(nil);
  try
    MulticastClient.IPVersion := Id_IPv4;
    MulticastClient.Bindings.Add;
    MulticastClient.Bindings[0].IP := '0.0.0.0';
    MulticastClient.Bindings[0].Port := 5000;
    MulticastClient.AddMulticastMembership('224.0.0.1'); // 添加第一个多播组
    MulticastClient.AddMulticastMembership('224.0.0.2'); // 添加第二个多播组
    MulticastClient.JoinGroup('224.0.0.1');
    MulticastClient.JoinGroup('224.0.0.2');
    try
      while not Terminated do
      begin
        MulticastClient.ReceiveBuffer(Buffer, SizeOf(Buffer), SourceIP, SourcePort);
        // 处理接收到的数据
      end;
    finally
      MulticastClient.LeaveGroup('224.0.0.1');
      MulticastClient.LeaveGroup('224.0.0.2');
    end;
  finally
    MulticastClient.Free;
  end;
end;

在此示例中，我们向客户端套接字添加了两个多播组成员身份，然后连接到这两个多播组并不断接收消息，直到程序终止。注意，在添加多个多播组成员身份时，需要分别调用 AddMulticastMembership 方法。

希望这个示例代码可以帮助您了解如何在 Delphi 中使用 IdIPMCastClient 的 AddMulticastMembership 方法添加多个多播组成员身份。