TTransportSocket

Return to Unit Transport

`constructor Create(ATransport:TNetworkTransport);`
`destructor Destroy; override;`
private
`FLock:TSynchronizerHandle;`
`FLocalLock:TMutexHandle;`

`procedure SetFamily(AFamily:Word);`
`procedure SetStruct(AStruct:Word);`
`procedure SetProto(AProto:Word);`
`procedure SetOwner(AOwner:TSocketList);`

`procedure SetSocketError(ASocketError:Integer);`
`procedure SetOpenTime(const AOpenTime:Int64);`
`procedure SetCloseTime(const ACloseTime:Int64);`
`procedure SetLingerTime(const ALingerTime:Int64);`
`procedure SetTimewaitTime(const ATimewaitTime:Int64);`
`procedure SetKeepAliveTime(const AKeepAliveTime:Int64);`
protected
`FTransport:TNetworkTransport;`

`FFamily:Word;`	AF_INET, AF_INET6, AF_IPX etc
`FStruct:Word;`	SOCK_STREAM, SOCK_DGRAM etc
`FProto:Word;`	IPPROTO_UDP, IPPROTO_TCP etc
`FOwner:TSocketList;`	List that this Socket belongs to (eg AcceptQueue)

`FSocketError:Integer;`	CONN_REFUSED etc
`FSocketState:TSocketState;`	SS_UNCONNECTED, SS_ISCONNECTED etc
`FSocketOptions:TSocketOptions;`	SO_ACCEPTCONN, SO_BROADCAST etc
`FOpenTime:Int64;`	Socket was Opened ar [msec] (TCP_STATE_ESTAB)
`FCloseTime:Int64;`	Socket was Closed at [msec] (TCP_STATE_CLOSED)
`FLingerTime:Int64;`	Went into Linger at [msec]
`FTimewaitTime:Int64;`	Went into Timewait at [msec] (TCP_STATE_TIMEWAIT)
`FKeepAliveTime:Int64;`	Last KeepAlive Packet at [msec]

`FTransportState:TTransportState;`
`FTransportOptions:TTransportOptions;`

`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`
public
`property Family:Word read FFamily write SetFamily;`
`property Struct:Word read FStruct write SetStruct;`
`property Proto:Word read FProto write SetProto;`
`property Owner:TSocketList read FOwner write SetOwner;`

`property SocketError:Integer read FSocketError write SetSocketError;`
`property SocketState:TSocketState read FSocketState;`
`property SocketOptions:TSocketOptions read FSocketOptions;`
`property OpenTime:Int64 read FOpenTime write SetOpenTime;`
`property CloseTime:Int64 read FCloseTime write SetCloseTime;`
`property LingerTime:Int64 read FLingerTime write SetLingerTime;`
`property TimewaitTime:Int64 read FTimewaitTime write SetTimewaitTime;`
`property KeepAliveTime:Int64 read FKeepAliveTime write SetKeepAliveTime;`

`property TransportState:TTransportState read FTransportState;`
`property TransportOptions:TTransportOptions read FTransportOptions;`

`property Transport:TNetworkTransport read FTransport;`

`function GetOption(ALevel,AOptName:Integer; AOptValue:PChar; var AOptLength:Integer):Integer; virtual;`
`function SetOption(ALevel,AOptName:Integer; AOptValue:PChar; AOptLength:Integer):Integer; virtual;`
`function IoCtl(ACommand:DWORD; var AArgument:u_long):Integer; virtual;`

`function IsConnected(ALocalAddress,ARemoteAddress:Pointer; ALocalPort,ARemotePort:Word; ABroadcast:Boolean):Boolean; virtual;`
`function IsListening(ALocalAddress,ARemoteAddress:Pointer; ALocalPort,ARemotePort:Word; ABroadcast:Boolean):Boolean; virtual;`

`function ReaderLock:Boolean;`
`function ReaderUnlock:Boolean;`
`function ReaderConvert:Boolean;`
`function WriterLock:Boolean;`
`function WriterUnlock:Boolean;`
`function WriterConvert:Boolean;`