TIdTCPClientCustom

type TIdTCPClientCustom = class(TIdTCPConnection)

protected

  FBoundIP: string;

  FBoundPort: TIdPort;

  FBoundPortMax: TIdPort;

  FBoundPortMin: TIdPort;

  FConnectTimeout: Integer;

  FDestination: string;

  FHost: string;

  FIPVersion: TIdIPVersion;

  FOnConnected: TNotifyEvent;

  FPassword: string;

  FPort: TIdPort;

  FReadTimeout: Integer;

  FUsername: string;

  FReuseSocket: TIdReuseSocket;

  FUseNagle: Boolean;

  FOnBeforeBind: TNotifyEvent;

  FOnAfterBind: TNotifyEvent;

  FOnSocketAllocated: TNotifyEvent;

  procedure DoOnConnected; virtual;

  function MakeImplicitClientHandler; virtual;

  procedure SetConnectTimeout();

  procedure SetReadTimeout();

  procedure SetReuseSocket();

  procedure SetUseNagle();

  procedure SetBoundIP();

  procedure SetBoundPort();

  procedure SetBoundPortMax();

  procedure SetBoundPortMin();

  procedure SetHost(); virtual;

  procedure SetPort(); virtual;

  procedure SetIPVersion(); virtual;

  procedure SetOnBeforeBind();

  procedure SetOnAfterBind();

  procedure SetOnSocketAllocated();

  procedure SetIOHandler(); override;

  procedure InitComponent; override;

  function GetReadTimeout;

  function GetReuseSocket;

  function GetUseNagle;

  property Host: string; [rw]

  property IPVersion: TIdIPVersion; [rw]

  property Password: string; [rw]

  property Port: TIdPort; [rw]

  property Username: string; [rw]

public

  procedure Connect();

  function ConnectAndGetAll; virtual;

  property BoundIP: string; [rw]

  property BoundPort: TIdPort; [rw]

  property BoundPortMax: TIdPort; [rw]

  property BoundPortMin: TIdPort; [rw]

  property ConnectTimeout: Integer; [rw]

  property ReadTimeout: Integer; [rw]

  property ReuseSocket: TIdReuseSocket; [rw]

  property UseNagle: Boolean; [rw]

  property OnBeforeBind: TNotifyEvent; [rw]

  property OnAfterBind: TNotifyEvent; [rw]

  property OnSocketAllocated: TNotifyEvent; [rw]

published

  property OnConnected: TNotifyEvent; [rw]

end;

TIdTCPClientCustom

TIdTCPConnection

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject