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

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

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

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

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

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

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

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