之所以说复杂, 就是区别与以前谈到的 结构化文件存取; 这种复杂的结构化文件也有叫做"复合文档".

有些文档不是结构化的, 譬如记事本文件; 结构化的档可以分为以下几类:
标准结构化文档、自定义结构化文档(譬如 bmp 文件)和复合文档.

这里要谈到的结构化储存(复合文档)是由 Windows 系统通过 COM 提供的, 它能完成像 Windows 目录结构一样复杂的文件结构的存取; 提示一下 Windows 的目录结构: 一个目录下可以包含子目录和文件, 然后层层嵌套...

有时我们要存储的文件也可能会层层分支, 具体的文件内容也可能五花八门, 譬如分支当中的某个文件是张图片、是一个字符串列表、是一个记录(或叫结构)等等, 存储这样的文件内容恐怕用数据库也是无能为力的.

这种复合文件支持多线程, 不同的进程中的不同线程可以同时访问一个复合文件的不同部分.

复合文件最典型的实例就是 OLE(譬如在 Word 中可以嵌入电子表格); 这也或许是这种复合文件的来由.

或许有了这个东西, 出品属于自己的文件格式就成了轻而易举的事情了.

存取和访问复合文档主要使用定义在 Activex 单元的三个 COM 接口:
IStorage (类似于 Windows 的目录, 也就是文件夹);
IStream (类似于目录中的文件, 不过在这里都是"流", 每个流至少要占用 512 字节);
IEnumStatStg (用于列举 IStorage 的层次结构)

"接口" 又是一个复杂的概念, 暂时把它认作是一组函数的集合吧.

下面罗列出了所有相关的函数(现在还没有全部掌握, 学习过程中再慢慢注释):

IStorage 中的函数:
//创建一个子 IStorage 接口
function CreateStorage(
  pwcsName: POleStr;  {指定子 IStorage 接口的名称}
  grfMode: Longint;   {指定访问模式}
  dwStgFmt: Longint;  {保留, 须是 0}
  reserved2: Longint; {保留, 须是 0}
  out stg: IStorage   {返回子 IStorage 接口}
): HResult; stdcall;

//打开当前 IStorage 的子 IStorage
function OpenStorage(
  pwcsName: POleStr;           {指定子 IStorage 接口的名称}
  const stgPriority: IStorage; {已存在的 IStorage 接口, 一般为 nil}
  grfMode: Longint;            {指定访问模式}
  snbExclude: TSNB;            {是个指针, 一般为 nil; 好像是指定要排除的元素}
  reserved: Longint;           {保留, 须是 0}
  out stg: IStorage            {返回打开的子 IStorage 接口}
): HResult; stdcall;

//创建一个子 IStream 接口
function CreateStream(
  pwcsName: POleStr;  {指定子 IStream 接口的名称}
  grfMode: Longint;   {指定访问模式}
  reserved1: Longint; {保留, 须是 0}
  reserved2: Longint; {保留, 须是 0}
  out stm: IStream    {返回子 IStream 接口}
): HResult; stdcall;

//打开当前 IStorage 的子 IStream
function OpenStream(
  pwcsName: POleStr;  {指定子 IStream 接口的名称}
  reserved1: Pointer; {保留, 须为 nil}
  grfMode: Longint;   {指定访问模式}
  reserved2: Longint; {保留, 须是 0}
  out stm: IStream    {返回子 IStream 接口}
): HResult; stdcall;

//复制 IStorage, 该函数可以实现“整理文件,释放碎片空间”的功能
function CopyTo(
  ciidExclude: Longint;   {要排除的元素数, 可以是 0}
  rgiidExclude: PIID;     {好像是以 PIID 的方式指定要排除的元素, 可以是 nil}
  snbExclude: TSNB;       {指定要被排除的元素, 一般为 nil}
  const stgDest: IStorage {目标 IStorage}
): HResult; stdcall;

//复制或移动 "子 IStorage" 或 "子 IStream" 
function MoveElementTo(
  pwcsName: POleStr;       {要复制或移动的 IStorage 或 IStream 的名称}
  const stgDest: IStorage; {目标 IStorage 的名称}
  pwcsNewName: POleStr;    {给复制或移动后的 IStorage 或 IStream 指定新的名称}
  grfFlags: Longint        {指定是复制还是移动, 可选值: STGMOVE_MOVE、STGMOVE_COPY}
): HResult; stdcall;

//提交更改, 确保更改后的流能反映在父级存储中
function Commit(
  grfCommitFlags: Longint {提交方式, 四个可选值见下面}
): HResult; stdcall;
//grfCommitFlags 可选值:
STGC_DEFAULT                            = 0;
STGC_OVERWRITE                          = 1;
STGC_ONLYIFCURRENT                      = 2;
STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE = 4;

//放弃自从上次 Commit 调用以来对事务处理流所做的所有更改
function Revert: HResult; stdcall;

//获取当前 IStorage 的 IEnumStatStg 接口变量; IEnumStatStg 列举了 IStorage 的层次结构
function EnumElements(
  reserved1: Longint;   {保留, 须为 0}
  reserved2: Pointer;   {保留, 须为 nil}
  reserved3: Longint;   {保留, 须为 0}
  out enm: IEnumStatStg {返回 IEnumStatStg 接口变量}
): HResult; stdcall;

//删除 "子 IStorage" 或 "子 IStream" 
function DestroyElement(
  pwcsName: POleStr {指定名称}
): HResult; stdcall;

//重命名 "子 IStorage" 或 "子 IStream" 
function RenameElement(
  pwcsOldName: POleStr; {原名}
  pwcsNewName: POleStr  {新名}
): HResult; stdcall;

//设置元素的时间信息
function SetElementTimes(
  pwcsName: POleStr;      {元素名}
  const ctime: TFileTime; {创建时间}
  const atime: TFileTime; {访问时间}
  const mtime: TFileTime  {修改时间}
): HResult; stdcall;

//在当前存储中建立一个特殊的流对象,用来保存 CLSID
function SetClass(
  const clsid: TCLSID {}
): HResult; stdcall;

//设置状态位
function SetStateBits(
  grfStateBits: Longint; {}
  grfMask: Longint       {}
): HResult; stdcall;

//返回一个 TStatStg 结构, 此结构包含该 IStorage 详细信息, 结构框架附下
function Stat(
  out statstg: TStatStg; {TStatStg 结构变量}
  grfStatFlag: Longint   {选项, 此值可决定是否返回成员值, 见下}
): HResult; stdcall;

//TStatStg 结构:
tagSTATSTG = record
  pwcsName: POleStr;
  dwType: Longint;
  cbSize: Largeint;
  mtime: TFileTime;
  ctime: TFileTime;
  atime: TFileTime;
  grfMode: Longint;
  grfLocksSupported: Longint;
  clsid: TCLSID;
  grfStateBits: Longint;
  reserved: Longint;
end;
TStatStg = tagSTATSTG;

//grfStatFlag 可选值:
STATFLAG_DEFAULT = 0;
STATFLAG_NONAME  = 1;

IStream 中的函数:
//从 IStream 中读取数据
function Read(
  pv: Pointer;      {接受数据的变量的指针}
  cb: Longint;      {要读取的字节数}
  pcbRead: PLongint {实际读出的字节数}
): HResult; stdcall;

//向 IStream 写入数据
function Write(
  pv: Pointer;         {要写入的数据的指针}
  cb: Longint;         {要写入的字节数}
  pcbWritten: PLongint {实际写入的字节数}
): HResult; stdcall;

//移动指针
function Seek(
  dlibMove: Largeint;          {要移动的字节数}
  dwOrigin: Longint;           {指定移动的起点, 三种取值分别是: 开始、当前、结尾}
  out libNewPosition: Largeint {返回新位置指针}
): HResult; stdcall;
//dwOrigin 可选值:
STREAM_SEEK_SET = 0; {开始}
STREAM_SEEK_CUR = 1; {当前}
STREAM_SEEK_END = 2; {结尾}

//更改流对象的大小
function SetSize(
  libNewSize: Largeint {指定新的大小, 以字节为单位}
): HResult; stdcall;

//复制部分数据到另一个 IStream
function CopyTo(
  stm: IStream;           {目标 IStream}
  cb: Largeint;           {要复制的字节数}
  out cbRead: Largeint;   {从源中实际读出的字节数}
  out cbWritten: Largeint {向目标实际写入的字节数}
): HResult; stdcall;

//提交更改, 确保更改后的流能反映在父级存储中
function Commit(
  grfCommitFlags: Longint {提交方式, 四个可选值见下面}
): HResult; stdcall;
//grfCommitFlags 可选值:
STGC_DEFAULT                            = 0;
STGC_OVERWRITE                          = 1;
STGC_ONLYIFCURRENT                      = 2;
STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE = 4;

//放弃自从上次 Commit 调用以来对事务处理流所做的所有更改
function Revert: HResult; stdcall;

//限制对流中指定字节范围的访问
function LockRegion(
  libOffset: Largeint; {起始字节(从头算)}
  cb: Largeint;        {范围长度, 以字节为单位}
  dwLockType: Longint  {限制类型, 可选值附下面}
): HResult; stdcall;
//dwLockType 可选值:
LOCK_WRITE     = 1;
LOCK_EXCLUSIVE = 2;
LOCK_ONLYONCE  = 4;

//移除用 LockRegion 设定的字节范围的访问限制, 参数同 LockRegion
function UnlockRegion(
  libOffset: Largeint; {}
  cb: Largeint;        {}
  dwLockType: Longint  {}
): HResult; stdcall;

//返回一个 TStatStg 结构, 此结构包含该 IStream 详细信息, 结构框架附下
function Stat(
  out statstg: TStatStg; {TStatStg 结构变量}
  grfStatFlag: Longint   {选项, 此值可决定是否返回成员值, 见下}
): HResult; stdcall;

//TStatStg 结构:
tagSTATSTG = record
  pwcsName: POleStr;
  dwType: Longint;
  cbSize: Largeint;
  mtime: TFileTime;
  ctime: TFileTime;
  atime: TFileTime;
  grfMode: Longint;
  grfLocksSupported: Longint;
  clsid: TCLSID;
  grfStateBits: Longint;
  reserved: Longint;
end;
TStatStg = tagSTATSTG;

//grfStatFlag 可选值:
STATFLAG_DEFAULT = 0;
STATFLAG_NONAME  = 1;

//再制一个与指定 IStream 相同的副本
function Clone(
  out stm: IStream {指定 IStream}
): HResult; stdcall;

IEnumStatStg 中的函数:
//检索枚举序列中指定数目的项
function Next(
  celt: Longint;         {}
  out elt;               {}
  pceltFetched: PLongint {}
): HResult; stdcall;

//跳过枚举序列中指定数目的项
function Skip(
  celt: Longint {枚举中要跳过的元素数目}
): HResult; stdcall;

//将枚举序列重置到开始处
function Reset: HResult; stdcall;

//再制一个相同的 IEnumStatStg 
function Clone(
  out enm: IEnumStatStg {}
): HResult; stdcall;

相关的函数还有:
//创建一个复合文档, 并通过参数返回 IStorage 接口
function StgCreateDocfile(
  pwcsName: POleStr;    {指定文件名}
  grfMode: Longint;     {指定访问模式}
  reserved: Longint;    {保留, 须是 0}
  out stgOpen: IStorage {返回 IStorage 接口}
): HResult; stdcall;

//打开一个复合文档, 并通过参数返回 IStorage 接口
function StgOpenStorage(
  pwcsName: POleStr;     {指定文件名}
  stgPriority: IStorage; {已存在的 IStorage 接口, 一般为 nil}
  grfMode: Longint;      {指定访问模式}
  snbExclude: TSNB;      {是一个 POleStr(双字节字符串)类型的指针, 一般为 nil}
  reserved: Longint;     {保留, 须是 0}
  out stgOpen: IStorage  {返回 IStorage 接口}
): HResult; stdcall;

//判断指定文件是否是按照结构化方式存储的
function StgIsStorageFile(
  pwcsName: POleStr  {文件名}
): HResult; stdcall;

//
function StgCreateDocfileOnILockBytes(
  lkbyt: ILockBytes;    {}
  grfMode: Longint;     {}
  reserved: Longint;    {}
  out stgOpen: IStorage {}
): HResult; stdcall;

//
function StgOpenStorageOnILockBytes(
  lkbyt: ILockBytes;     {}
  stgPriority: IStorage; {}
  grfMode: Longint;      {}
  snbExclude: TSNB;      {}
  reserved: Longint;     {}
  out stgOpen: IStorage  {}
): HResult; stdcall;

//
function StgIsStorageILockBytes(
  lkbyt: ILockBytes {}
): HResult; stdcall;

//
function StgSetTimes(
  pszName: POleStr;       {}
  const ctime: TFileTime; {}
  const atime: TFileTime; {}
  const mtime: TFileTime  {}
): HResult; stdcall;

//
function StgOpenAsyncDocfileOnIFillLockBytes(
  flb: IFillLockBytes;          {}
  grfMode, asyncFlags: Longint; {}
  var stgOpen: IStorage         {}
): HResult; stdcall;

//
function StgGetIFillLockBytesOnILockBytes(
  ilb: ILockBytes;        {}
  var flb: IFillLockBytes {}
): HResult; stdcall;

//
function StgGetIFillLockBytesOnFile(
  pwcsName: POleStr;      {}
  var flb: IFillLockBytes {}
): HResult; stdcall;

//
function StgOpenLayoutDocfile(
  pwcsDfName: POleStr;        {}
  grfMode, reserved: Longint; {}
  var stgOpen: IStorage       {}
): HResult; stdcall;

//读出 WriteClassStg 写入的 CLSID, 相当于简化调用 IStorage.Stat
function ReadClassStg(
  stg: IStorage;    {}
  out clsid: TCLSID {}
): HResult; stdcall;

//写 CLSID 到存储中, 同IStorage.SetClass
function WriteClassStg(
  stg: IStorage;    {}
  const clsid: TIID {}
): HResult; stdcall;

//读出 WriteClassStm 写入的 CLSID 
function ReadClassStm(
  stm: IStream;     {}
  out clsid: TCLSID {}
): HResult; stdcall;

//写 CLSID 到流的开始位置
function WriteClassStm(
  stm: IStream;     {}
  const clsid: TIID {}
): HResult; stdcall;

//写入用户指定的剪贴板格式和名称到存储中
function WriteFmtUserTypeStg(
  stg: IStorage;       {}
  cf: TClipFormat;     {}
  pszUserType: POleStr {}
): HResult; stdcall;

//读出 WriteFmtUserTypeStg 写入的信息
function ReadFmtUserTypeStg(
  stg: IStorage;           {}
  out cf: TClipFormat;     {}
  out pszUserType: POleStr {}
): HResult; stdcall;

posted on 2008-07-27 10:01  万一  阅读(11004)  评论(16编辑  收藏  举报