TTCPBlockSocket

type TTCPBlockSocket = class(TSocksBlockSocket)

protected

  FOnAfterConnect: THookAfterConnect;

  FSSL: TCustomSSL;

  FHTTPTunnelIP: string;

  FHTTPTunnelPort: string;

  FHTTPTunnel: Boolean;

  FHTTPTunnelRemoteIP: string;

  FHTTPTunnelRemotePort: string;

  FHTTPTunnelUser: string;

  FHTTPTunnelPass: string;

  FHTTPTunnelTimeout: Integer;

  procedure SocksDoConnect();

  procedure HTTPTunnelDoConnect();

  procedure DoAfterConnect;

public

  constructor Create;

  constructor CreateWithSSL();

  destructor Destroy; override;

  procedure CloseSocket; override;

  function WaitingData; override;

  procedure Listen; override;

  function Accept; override;

  procedure Connect(); override;

  procedure SSLDoConnect;

  procedure SSLDoShutdown;

  function SSLAcceptConnection;

  function GetLocalSinIP; override;

  function GetRemoteSinIP; override;

  function GetLocalSinPort; override;

  function GetRemoteSinPort; override;

  function SendBuffer(); override;

  function RecvBuffer(); override;

  function GetSocketType; override;

  function GetSocketProtocol; override;

  property SSL: TCustomSSL; [r]

  property HTTPTunnel: Boolean; [r]

published

  function GetErrorDescEx; override;

  property HTTPTunnelIP: string; [rw]

  property HTTPTunnelPort: string; [rw]

  property HTTPTunnelUser: string; [rw]

  property HTTPTunnelPass: string; [rw]

  property HTTPTunnelTimeout: Integer; [rw]

  property OnAfterConnect: THookAfterConnect; [rw]

end;

TTCPBlockSocket

TSocksBlockSocket

TBlockSocket

TObject