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 个)也可以用于一般文件的操作.
就先操作个一般文件吧.
MMSystem; TForm1.FormCreate(Sender: TObject); FilePath = ; hFile: HMMIO; str: RawByteString; hFile := mmioOpen(PChar(FilePath), , MMIO_CREATE MMIO_READWRITE ); mmioWrite(hFile, , ); mmioSeek(hFile, , SEEK_SET); SetLength(str, ); mmioRead(hFile, PAnsiChar(str), ); ShowMessage(str); mmioClose(hFile, ); mmioOpen(PChar(FilePath), , MMIO_DELETE); ;