delphi indy10 IdIPMCastClient的 ThreadedEvent如何使用

在 Delphi Indy10 中，IdIPMCastClient 组件的 ThreadedEvent 是用于处理多播消息的事件。当 IdIPMCastClient 接收到多播消息时，会触发该事件，开发者可以在该事件中处理接收到的消息。

在使用 ThreadedEvent 之前，需要先设置 IdIPMCastClient 组件的 MulticastGroup 属性为要加入的多播组地址，然后调用 IdIPMCastClient 组件的 Activate 方法开始接收多播消息。

以下是一个简单的使用示例：

procedure TForm1.IdIPMCastClient1ThreadedEvent(Sender: TObject;
  AData: TStream; ABinding: TIdSocketHandle);
var
  Msg: string;
begin
  SetLength(Msg, AData.Size);
  AData.Read(Pointer(Msg)^, AData.Size);
  Memo1.Lines.Add('Received: ' + Msg);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdIPMCastClient1.MulticastGroup := '224.1.1.1';
  IdIPMCastClient1.Activate;
end;

在上述示例中，当 IdIPMCastClient1 组件接收到多播消息时，会触发 ThreadedEvent 事件，在事件处理程序中将接收到的消息输出到 Memo1 控件中。在按钮点击事件中，设置 MulticastGroup 属性为要加入的多播组地址，并调用 Activate 方法开始接收多播消息。

需要注意的是，由于 ThreadedEvent 是在单独的线程中执行的，因此在事件处理程序中访问界面控件时需要使用 Synchronize 方法进行同步。