TIdHTTPResponseInfo

type TIdHTTPResponseInfo = class(TIdResponseHeaderInfo)

protected

  FAuthRealm: string;

  FConnection: TIdTCPConnection;

  FResponseNo: Integer;

  FCookies: TIdCookies;

  FContentStream: TStream;

  FContentText: string;

  FCloseConnection: Boolean;

  FFreeContentStream: Boolean;

  FHeaderHasBeenWritten: Boolean;

  FResponseText: string;

  FHTTPServer: TIdCustomHTTPServer;

  FSession: TIdHTTPSession;

  FRequestInfo: TIdHTTPRequestInfo;

  procedure ReleaseContentStream;

  procedure SetCookies();

  procedure SetHeaders; override;

  procedure SetResponseNo();

  procedure SetCloseConnection();

public

  function GetServer;

  procedure SetServer();

  procedure CloseSession;

  constructor Create();

  destructor Destroy; override;

  procedure Redirect();

  procedure WriteHeader;

  procedure WriteContent;

  function ServeFile(); virtual;

  function SmartServeFile();

  property AuthRealm: string; [rw]

  property CloseConnection: Boolean; [rw]

  property ContentStream: TStream; [rw]

  property ContentText: string; [rw]

  property Cookies: TIdCookies; [rw]

  property FreeContentStream: Boolean; [rw]

  property HeaderHasBeenWritten: Boolean; [rw]

  property ResponseNo: Integer; [rw]

  property ResponseText: string; [rw]

  property HTTPServer: TIdCustomHTTPServer; [r]

  property ServerSoftware: string; [rw]

  property Session: TIdHTTPSession; [r]

end;

TIdHTTPResponseInfo

TIdResponseHeaderInfo

TIdEntityHeaderInfo

TObject