TIGMPGroup

Return to Unit IGMP

`constructor Create;`
`destructor Destroy; override;`
private
`FLock:TCriticalSectionHandle;`

`FCount:Word;`	Number of memberships
`FQueryTime:Int64;`	IGMP query reply timer
`FReportTime:Int64;`	IGMP report reply/transmit timer
`FTransmitCount:Word;`	IGMP report transmit counter
`FAddress:TInAddr;`	IP address of group
`FHardware:THardwareAddress;`	Hardware address of group
`FTransport:TNetworkTransport;`	Transport provider for group

`procedure SetCount(ACount:Word);`
`function GetActive:Boolean;`
`procedure SetQueryTime(const AQueryTime:Int64);`
`procedure SetReportTime(const AReportTime:Int64);`
`procedure SetTransmitCount(ATransmitCount:Word);`
`procedure SetAddress(const AAddress:TInAddr);`
`procedure SetHardware(const AHardware:THardwareAddress);`
`procedure SetTransport(ATransport:TNetworkTransport);`
public
`property Count:Word read FCount write SetCount;`
`property Active:Boolean read GetActive;`
`property QueryTime:Int64 read FQueryTime write SetQueryTime;`
`property ReportTime:Int64 read FReportTime write SetReportTime;`
`property TransmitCount:Word read FTransmitCount write SetTransmitCount;`
`property Address:TInAddr read FAddress write SetAddress;`
`property Hardware:THardwareAddress read FHardware write SetHardware;`
`property Transport:TNetworkTransport read FTransport write SetTransport;`

`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`

`procedure IncrementCount;`
`procedure DecrementCount;`
`procedure IncrementTransmitCount;`
`procedure DecrementTransmitCount;`

Contents