TIPOptions

Return to Unit IP

Note: For Get/Set Options Level = IP_PROTO Option = ???

`constructor Create;`
`destructor Destroy; override;`
private
`FMemory:TMemoryStream;`
`FOptions:Pointer;`
`FLength:Integer;`

`FTOS:Byte;`	IPTOS_LOWDELAY etc
`FTTL:Byte;`	Time To Live
`FFlags:Word;`	IP_DF etc
`FHeader:Boolean;`	IP_HDRINCL
`FMulticastIF:TInAddr;`	IP_MULTICAST_IF
`FMulticastTTL:Byte;`	IP_MULTICAST_TTL
`FMulticastLOOP:Boolean;`	IP_MULTICAST_LOOP

`procedure SetTOS(ATOS:Byte);`
`procedure SetTTL(ATTL:Byte);`
`procedure SetFlags(AFlags:Word);`
`procedure SetHeader(AHeader:Boolean);`
`procedure SetMulticastIF(const AMulticastIF:TInAddr);`
`procedure SetMulticastTTL(AMulticastTTL:Byte);`
`procedure SetMulticastLOOP(AMulticastLOOP:Boolean);`

`procedure SetLength(ALength:Integer);`
public
`property TOS:Byte read FTOS write SetTOS;`
`property TTL:Byte read FTTL write SetTTL;`
`property Flags:Word read FFlags write SetFlags;`
`property Header:Boolean read FHeader write SetHeader;`
`property MulticastIF:TInAddr read FMulticastIF write SetMulticastIF;`
`property MulticastTTL:Byte read FMulticastTTL write SetMulticastTTL;`
`property MulticastLOOP:Boolean read FMulticastLOOP write SetMulticastLOOP;`

`property Options:Pointer read FOptions;`	IP_OPTIONS
`property Length:Integer read FLength write SetLength;`

Contents