TTCPOptions

Return to Unit TCP

Note: For Get/Set Options Level = TCP_PROTO Option = TCP_NODELAY, TCP_MAXSEG etc

`constructor Create;`
`destructor Destroy; override;`
private
`FMemory:TMemoryStream;`
`FOptions:LongWord;`

`FMaxSeg:Word;`	MSS Option in TCP Header (MSS we send to Remote)
`FWindowScale:Byte;`	Window Scale Option in TCP Header (Window Scale we send to Remote)

`procedure SetMaxSeg(AMaxSeg:Word);`
`procedure SetWindowScale(AWindowScale:Byte);`

`function GetOptions:Pointer;`
`function GetNoDelay:Boolean;`
`procedure SetNoDelay(ANoDelay:Boolean);`
`function GetNoPush:Boolean;`
`procedure SetNoPush(ANoPush:Boolean);`
`function GetNoOpt:Boolean;`
`procedure SetNoOpt(ANoOpt:Boolean);`
`function GetBsdUrgent:Boolean;`
`procedure SetBsdUrgent(ABsdUrgent:Boolean);`
`function GetNoSack:Boolean;`
`procedure SetNoSack(ANoSack:Boolean);`
public
`property MaxSeg:Word read FMaxSeg write SetMaxSeg;`
`property WindowScale:Byte read FWindowScale write SetWindowScale;`

`property Options:Pointer read GetOptions;`
`property NoDelay:Boolean read GetNoDelay write SetNoDelay;`	Determines if we Delay small segments until previous sends are ACKed
`property NoPush:Boolean read GetNoPush write SetNoPush;`
`property NoOpt:Boolean read GetNoOpt write SetNoOpt;`
`property BsdUrgent:Boolean read GetBsdUrgent write SetBsdUrgent;`
`property NoSack:Boolean read GetNoSack write SetNoSack;`	Determines if we send SACKOK to Remote

Contents