TIdCustomTransparentProxy

type TIdCustomTransparentProxy = class(TIdComponent)

protected

  FHost: string;

  FPassword: string;

  FPort: TIdPort;

  FIPVersion: TIdIPVersion;

  FUsername: string;

  FChainedProxy: TIdCustomTransparentProxy;

  procedure InitComponent; override;

  function GetEnabled; virtual; abstract;

  procedure SetEnabled(); virtual;

  procedure MakeConnection(); virtual; abstract;

  procedure Notification(); override;

  procedure SetChainedProxy();

public

  procedure Assign(); override;

  procedure OpenUDP(); virtual;

  procedure CloseUDP(); virtual;

  function RecvFromUDP(); virtual;

  procedure SendToUDP(); virtual;

  procedure Connect();

  procedure Bind();

  function Listen(); virtual;

  property Enabled: Boolean; [rw]

  property Host: string; [rw]

  property Password: string; [rw]

  property Port: TIdPort; [rw]

  property IPVersion: TIdIPVersion; [rw]

  property Username: string; [rw]

  property ChainedProxy: TIdCustomTransparentProxy; [rw]

end;

TIdCustomTransparentProxy

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject