TIdIPMCastClient

type TIdIPMCastClient = class(TIdIPMCastBase)

protected

  FBindings: TIdSocketHandles;

  FBufferSize: Integer;

  FCurrentBinding: TIdSocketHandle;

  FListenerThread: TIdIPMCastListenerThread;

  FOnBeforeBind: TIdSocketHandleEvent;

  FOnAfterBind: TNotifyEvent;

  FOnIPMCastRead: TIPMCastReadEvent;

  FThreadedEvent: Boolean;

  procedure CloseBinding; override;

  procedure DoBeforeBind(); virtual;

  procedure DoAfterBind; virtual;

  procedure DoIPMCastRead(); virtual;

  function GetActive; override;

  function GetBinding; override;

  function GetDefaultPort;

  procedure PacketReceived();

  procedure SetBindings();

  procedure SetDefaultPort();

  procedure InitComponent; override;

public

  destructor Destroy; override;

published

  property IPVersion: TIdIPVersion;

  property Active: Boolean;

  property Bindings: TIdSocketHandles; [rw]

  property BufferSize: Integer; [rw]

  property DefaultPort: Integer; [rw]

  property MulticastGroup: string;

  property ReuseSocket: TIdReuseSocket;

  property ThreadedEvent: Boolean; [rw]

  property OnBeforeBind: TIdSocketHandleEvent; [rw]

  property OnAfterBind: TNotifyEvent; [rw]

  property OnIPMCastRead: TIPMCastReadEvent; [rw]

end;

TIdIPMCastClient

TIdIPMCastBase

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject