TIdHTTPAppResponse

type TIdHTTPAppResponse = class(TWebResponse)

protected

  FContent: string;

  FRequestInfo: TIdHTTPRequestInfo;

  FResponseInfo: TIdHTTPResponseInfo;

  FSent: Boolean;

  FThread: TIdContext;

  FContentType: AnsiString;

  function GetContent; override;

  function GetDateVariable(); override;

  function GetStatusCode; override;

  function GetIntegerVariable(); override;

  function GetLogMessage; override;

  function GetStringVariable(); override;

  procedure SetContent(); override;

  procedure SetContentStream(); override;

  procedure SetStatusCode(); override;

  procedure SetStringVariable(); override;

  procedure SetDateVariable(); override;

  procedure SetIntegerVariable(); override;

  procedure SetLogMessage(); override;

  procedure MoveCookiesAndCustomHeaders;

public

  constructor Create();

  procedure SendRedirect(); override;

  procedure SendResponse; override;

  procedure SendStream(); override;

  function Sent; override;

end;

TIdHTTPAppResponse

TObject