TSocksBlockSocket

type TSocksBlockSocket = class(TBlockSocket)

protected

  FSocksIP: String;

  FSocksPort: String;

  FSocksTimeout: Integer;

  FSocksUsername: String;

  FSocksPassword: String;

  FUsingSocks: Boolean;

  FSocksResolver: Boolean;

  FSocksLastError: Integer;

  FSocksResponseIP: String;

  FSocksResponsePort: String;

  FSocksLocalIP: String;

  FSocksLocalPort: String;

  FSocksRemoteIP: String;

  FSocksRemotePort: String;

  FBypassFlag: Boolean;

  FSocksType: TSocksType;

  function SocksCode();

  function SocksDecode();

public

  constructor Create;

  function SocksOpen;

  function SocksRequest();

  function SocksResponse;

  property UsingSocks: Boolean; [r]

  property SocksLastError: Integer; [r]

published

  property SocksIP: String; [rw]

  property SocksPort: String; [rw]

  property SocksUsername: String; [rw]

  property SocksPassword: String; [rw]

  property SocksTimeout: Integer; [rw]

  property SocksResolver: Boolean; [rw]

  property SocksType: TSocksType; [rw]

end;

TSocksBlockSocket

TBlockSocket

TObject