TIdEntityHeaderInfo

type TIdEntityHeaderInfo = class(TPersistent)

protected

  FOwner: TPersistent;

  FCacheControl: string;

  FRawHeaders: TIdHeaderList;

  FCharSet: string;

  FConnection: string;

  FContentDisposition: string;

  FContentEncoding: string;

  FContentLanguage: string;

  FContentLength: Int64;

  FContentRangeEnd: Int64;

  FContentRangeStart: Int64;

  FContentRangeInstanceLength: Int64;

  FContentRangeUnits: string;

  FContentType: string;

  FContentVersion: string;

  FCustomHeaders: TIdHeaderList;

  FDate: TDateTime;

  FExpires: TDateTime;

  FETag: string;

  FLastModified: TDateTime;

  FPragma: string;

  FHasContentLength: Boolean;

  FTransferEncoding: string;

  procedure AssignTo(); override;

  procedure ProcessHeaders; virtual;

  procedure SetHeaders; virtual;

  function GetOwner; override;

  function GetOwnerComponent;

  procedure SetContentLength();

  procedure SetContentType();

  procedure SetCustomHeaders();

  function GetHasContentRange;

  function GetHasContentRangeInstance;

public

  procedure AfterConstruction; override;

  procedure Clear; virtual;

  constructor Create(); virtual;

  destructor Destroy; override;

  property OwnerComponent: TComponent; [r]

  property HasContentLength: Boolean; [r]

  property HasContentRange: Boolean; [r]

  property HasContentRangeInstance: Boolean; [r]

  property RawHeaders: TIdHeaderList; [r]

published

  property CacheControl: string; [rw]

  property CharSet: string; [rw]

  property Connection: string; [rw]

  property ContentDisposition: string; [rw]

  property ContentEncoding: string; [rw]

  property ContentLanguage: string; [rw]

  property ContentLength: Int64; [rw]

  property ContentRangeEnd: Int64; [rw]

  property ContentRangeStart: Int64; [rw]

  property ContentRangeInstanceLength: Int64; [rw]

  property ContentRangeUnits: string; [rw]

  property ContentType: string; [rw]

  property ContentVersion: string; [rw]

  property CustomHeaders: TIdHeaderList; [rw]

  property Date: TDateTime; [rw]

  property ETag: string; [rw]

  property Expires: TDateTime; [rw]

  property LastModified: TDateTime; [rw]

  property Pragma: string; [rw]

  property TransferEncoding: string; [rw]

end;

TIdEntityHeaderInfo

TObject