TLTcp

type TLTcp = class(TLConnection)

protected

  FCount: Integer;

  FReuseAddress: Boolean;

  function InitSocket(); override;

  function GetConnected; override;

  function GetConnecting;

  function GetCount; override;

  procedure SetReuseAddress();

  procedure ConnectAction(); override;

  procedure AcceptAction(); override;

  procedure ReceiveAction(); override;

  procedure SendAction(); override;

  procedure ErrorAction(); override;

  procedure CanSendEvent(); override;

  function Bail();

  procedure SocketDisconnect();

public

  constructor Create(); override;

Standard constructor

  function Connect(); override;

Connects to the other side

  function Listen(); override;

Start listening for new connections

  function Get(); override;

Receive data from the other side

  function GetMessage(); override;

Receive a message from the other side

  function Send(); override;

Send data to the other side

  function SendMessage(); override;

Send a string message to the other side

  function IterNext; override;

Get the next iterator

  procedure IterReset; override;

Resets the socket iterator

  procedure CallAction; override;

Eventize the connection

  procedure Disconnect; override;

Disconnects the connection

  property Connecting: Boolean; [r]

Specifies connecting status

  property OnAccept: TLSocketEvent; [rw]

Accept event callback

  property OnConnect: TLSocketEvent; [rw]

Connect event callback

  property ReuseAddress: Boolean; [rw]

end;

TLTcp

Concrete implementation of TCP protocol connection

TLConnection

Basic TCP and UDP abstraction class

TLComponent

Basic abstraction of network connections.

TComponent

TObject