操作 Wave 文件(3): 接触 mmio 系列函数

mmio 系列函数用于 Wave 等多媒体文件的 I/O 操作, 相关函数有:

---

mmioOpen
mmioClose
mmioRead
mmioWrite
mmioFlush
mmioSeek
mmioRename

mmioGetInfo
mmioSetInfo

mmioCreateChunk
mmioAscend
mmioDescend
mmioAdvance
mmioSetBuffer

mmioStringToFOURCC

mmioSendMessage
mmioInstallIOProc

mmio 系列函数比一般的 I/O 函数更适合操作 RIFF 格式的多媒体文件, 主要是能更方便地操作 RIFF 的文件块, 官方还说它们更优化.

和其他 I/O 函数一样, 它们也是要 Open 获取句柄, 然后读写, 最后关闭; 但它们文件句柄和其他 I/O 函数的句柄并不兼容, 不过部分函数(上面前 7 个)也可以用于一般文件的操作.

就先操作个一般文件吧.

---

uses MMSystem;

procedure TForm1.FormCreate(Sender: TObject);
const
  FilePath = 'C:\Temp\mm.txt';
var
  hFile: HMMIO;
  str: RawByteString;
begin
  hFile := mmioOpen(PChar(FilePath),              {要打开的文件}
                    nil,                          {接受 TMMIOInfo 结构信息的指针, 暂时没用到}
                    MMIO_CREATE or MMIO_READWRITE {打开选项; 这是建立并以读写权限打开}
                   );
  mmioWrite(hFile, 'Delphi', 6);      {写入 6 个字符}

  mmioSeek(hFile, 0, SEEK_SET);       {把读写指针移动到文件头}

  SetLength(str, 6);
  mmioRead(hFile, PAnsiChar(str), 6); {读出 6 个字符}
  ShowMessage(str);                   {Delphi}

  mmioClose(hFile, 0);                {关闭文件; 第二个参数还可以是 MMIO_FHOPEN, 另有它用}

  {最后再删除这个文件, 既然已删除就无需 Close 了}
  mmioOpen(PChar(FilePath), nil, MMIO_DELETE);
end;