TIdSocksInfo

type TIdSocksInfo = class(TIdCustomTransparentProxy)

protected

  FAuthentication: TSocksAuthentication;

  FVersion: TSocksVersion;

  FUDPSocksAssociation: TIdIOHandlerSocket;

  function DisasmUDPReplyPacket();

  function MakeUDPRequestPacket();

  function GetEnabled; override;

  procedure InitComponent; override;

  procedure AuthenticateSocks5Connection();

  procedure MakeSocks4Request();

  procedure MakeSocks5Request();

  procedure MakeSocks4Connection();

  procedure MakeSocks4Bind();

  procedure MakeSocks5Connection();

  procedure MakeSocks5Bind();

  procedure MakeConnection(); override;

  function MakeSocks4Listen();

  function MakeSocks5Listen();

  procedure MakeSocks5UDPAssociation();

  procedure CloseSocks5UDPAssociation;

public

  procedure Assign(); override;

  destructor Destroy; override;

  procedure Bind(); override;

  function Listen(); override;

  procedure OpenUDP(); override;

  function RecvFromUDP(); override;

  procedure SendToUDP(); override;

  procedure CloseUDP(); override;

published

  property Authentication: TSocksAuthentication; [rw]

  property Host: string;

  property Password: string;

  property Port: TIdPort;

  property IPVersion: TIdIPVersion;

  property Username: string;

  property Version: TSocksVersion; [rw]

  property ChainedProxy: TIdCustomTransparentProxy;

end;

TIdSocksInfo

TIdCustomTransparentProxy

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject