TIdSocketHandle

type TIdSocketHandle = class(TCollectionItem)

protected

  FClientPortMin: TIdPort;

  FClientPortMax: TIdPort;

  FHandle: TIdStackSocketHandle;

  FHandleAllocated: Boolean;

  FIP: string;

  FPeerIP: string;

  FPort: TIdPort;

  FPeerPort: TIdPort;

  FReadSocketList: TIdSocketList;

  FSocketType: TIdSocketType;

  FOverLapped: Boolean;

  FIPVersion: TIdIPVersion;

  FConnectionHandle: TIdCriticalSection;

  FBroadcastEnabled: Boolean;

  FUseNagle: Boolean;

  FReuseSocket: TIdReuseSocket;

  function BindPortReserved;

  procedure BroadcastEnabledChanged;

  procedure SetBroadcastEnabled();

  procedure Disconnect; virtual;

  procedure SetBroadcastFlag();

  procedure SetOverLapped();

  procedure SetHandle();

  procedure SetIPVersion();

  procedure SetUseNagle();

  function TryBind();

public

  function Accept();

  procedure AllocateSocket();

  procedure Assign(); override;

  procedure Bind;

  procedure Broadcast();

  procedure CloseSocket; virtual;

  procedure Connect; virtual;

  constructor Create(); override;

  destructor Destroy; override;

  procedure Listen();

  function Readable();

  function Receive();

  function RecvFrom();

  procedure Reset();

  function Send();

  procedure SendTo();

  procedure SetPeer();

  procedure SetBinding();

  procedure GetSockOpt();

  procedure SetSockOpt();

  function Select();

  procedure UpdateBindingLocal;

  procedure UpdateBindingPeer;

  procedure AddMulticastMembership();

  procedure DropMulticastMembership();

  procedure SetKeepAliveValues();

  procedure SetLoopBack();

  procedure SetMulticastTTL();

  procedure SetTTL();

  procedure SetNagleOpt();

  property HandleAllocated: Boolean; [r]

  property Handle: TIdStackSocketHandle; [r]

  property OverLapped: Boolean; [rw]

  property PeerIP: string; [r]

  property PeerPort: TIdPort; [r]

  property SocketType: TIdSocketType; [r]

published

  property BroadcastEnabled: Boolean; [rw]

  property ClientPortMin: TIdPort; [rw]

  property ClientPortMax: TIdPort; [rw]

  property IP: string; [rw]

  property IPVersion: TIdIPVersion; [rw]

  property Port: TIdPort; [rw]

  property ReuseSocket: TIdReuseSocket; [rw]

  property UseNagle: Boolean; [rw]

end;

TIdSocketHandle

TObject