anchor.diff:      procedure Write( const pBuf : Pointer; off, len : Integer); override;
       procedure Flush; override;
   
  +    procedure SetDnsResolveTimeout(const Value: Integer);
  +    function GetDnsResolveTimeout: Integer;
       procedure SetConnectionTimeout(const Value: Integer);
       function GetConnectionTimeout: Integer;
  +    procedure SetSendTimeout(const Value: Integer);
  +    function GetSendTimeout: Integer;
       procedure SetReadTimeout(const Value: Integer);
       function GetReadTimeout: Integer;
  +
       function GetCustomHeaders: IThriftDictionary<string,string>;
       procedure SendRequest;
  +    property DnsResolveTimeout: Integer read GetDnsResolveTimeout write SetDnsResolveTimeout;
       property ConnectionTimeout: Integer read GetConnectionTimeout write SetConnectionTimeout;
  +    property SendTimeout: Integer read GetSendTimeout write SetSendTimeout;
       property ReadTimeout: Integer read GetReadTimeout write SetReadTimeout;
       property CustomHeaders: IThriftDictionary<string,string> read GetCustomHeaders;
     public
  
positive.code:   end;
  end;
  
  procedure THTTPClientImpl.SetConnectionTimeout(const Value: Integer);
  begin
    FConnectionTimeout := Value;
  end;
  
  procedure THTTPClientImpl.SetReadTimeout(const Value: Integer);
  begin
    FReadTimeout := Value
  end;
  
  procedure THTTPClientImpl.Write( const pBuf : Pointer; off, len : Integer);
  begin
    FOutputStream.Write( pBuf, off, len);
  
negative.code:   TTransportExceptionInterrupted = class (TTransportExceptionSpecialized);
  
    IHTTPClient = interface( ITransport )
      ['{BA142D12-8AE6-4B50-9E33-6B7843B21D73}']
      procedure SetDnsResolveTimeout(const Value: Integer);
      function GetDnsResolveTimeout: Integer;
      procedure SetConnectionTimeout(const Value: Integer);
      function GetConnectionTimeout: Integer;
      procedure SetSendTimeout(const Value: Integer);
      function GetSendTimeout: Integer;
      procedure SetReadTimeout(const Value: Integer);
      function GetReadTimeout: Integer;
      function GetCustomHeaders: IThriftDictionary<string,string>;
      procedure SendRequest;
  
      property DnsResolveTimeout: Integer read GetDnsResolveTimeout write SetDnsResolveTimeout;
      property ConnectionTimeout: Integer read GetConnectionTimeout write SetConnectionTimeout;
      property SendTimeout: Integer read GetSendTimeout write SetSendTimeout;
      property ReadTimeout: Integer read GetReadTimeout write SetReadTimeout;
      property CustomHeaders: IThriftDictionary<string,string> read GetCustomHeaders;
    end;
  