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