TIdHTTPResponse

type TIdHTTPResponse = class(TIdResponseHeaderInfo)

protected

  FHTTP: TIdCustomHTTP;

  FResponseCode: Integer;

  FResponseText: string;

  FKeepAlive: Boolean;

  FContentStream: TStream;

  FResponseVersion: TIdHTTPProtocolVersion;

  FMetaHTTPEquiv: TIdMetaHTTPEquiv;

  function GetKeepAlive;

  function GetResponseCode;

  procedure SetResponseText();

  procedure ProcessMetaHTTPEquiv;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Clear; override;

  property KeepAlive: Boolean; [rw]

  property MetaHTTPEquiv: TIdMetaHTTPEquiv; [r]

  property ResponseText: string; [rw]

  property ResponseCode: Integer; [rw]

  property ResponseVersion: TIdHTTPProtocolVersion; [rw]

  property ContentStream: TStream; [rw]

end;

TIdHTTPResponse

TIdResponseHeaderInfo

TIdEntityHeaderInfo

TObject