有兩個相關的結構體: TMMIOInfo、TMMCKInfo.

TMMIOInfo 是多媒體文件打開后的狀態信息, mmioOpen 函數的第二個參數就是這個結構的指針.
現在先用到了 TMMCKInfo, 這是文件內部 "塊" 的信息, 構成如下:
TMMCKInfo = recordckid: FOURCC; {塊標識}cksize: DWORD; {塊大小}fccType: FOURCC; {格式類型標識}dwDataOffset: DWORD; {偏移地址}dwFlags: DWORD; {附加信息} end;
查找 "塊" 需要通過 mmioDescend、mmioAscend 兩個函數.

mmioAscend 是從子塊跳出;

mmioDescend 是進入到子塊; 進入子塊是需要指定子塊的 ckid 和父塊信息;
mmioDescend 也用來查找主塊(RIFF), 此時需要很少的信息就可以找到主塊.

---

測試代碼:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses MMSystem;const FilePath = 'C:\WINDOWS\Media\Windows XP 啟動.wav';//獲取 RIFF 塊的信息 procedure TForm1.Button1Click(Sender: TObject); varhFile: HMMIO;ckiRIFF: TMMCKInfo; begin//清空 ckiRIFF 結構體; 有些函數使用前要求必須清空, 即使不要求也還是清空的好.FillChar(ckiRIFF, SizeOf(TMMCKInfo), 0); {局部變量在清空前有垃圾數據}//打開文件, 獲取句柄hFile := mmioOpen(PChar(FilePath), nil, MMIO_READ);//獲取 RIFF 塊的信息mmioDescend(hFile, {文件句柄}@ckiRIFF, {塊信息結構的指針, 用于獲取塊的信息}nil, {這父塊的結構信息, RIFF 沒有父塊, 無需指定}MMIO_FINDRIFF {如果是查詢子塊這里的標志是 MMIO_FINDCHUNK}); {返回 0 表示查找成功, 這里忽略了驗證}//以下是查證獲取到的信息ShowMessageFmt('%d, %d, %d, %d, %d', [ckiRIFF.ckid, ckiRIFF.cksize, ckiRIFF.fccType,ckiRIFF.dwDataOffset, ckiRIFF.dwFlags ]); {1179011410, 424636, 1163280727, 8, 0}if ckiRIFF.ckid = FOURCC_RIFF then ShowMessage('是 RIFF');if ckiRIFF.fccType = mmioStringToFOURCC('WAVE',0) then ShowMessage('是 WAVE');//關閉mmioClose(hFile, 0); end;//獲取子塊的信息 procedure TForm1.Button2Click(Sender: TObject); varhFile: HMMIO;ckiRIFF,ckiSub: TMMCKInfo;n: Integer; begin//清空準備接受信息的結構FillChar(ckiRIFF, SizeOf(TMMCKInfo), 0);FillChar(ckiSub, SizeOf(TMMCKInfo), 0);hFile := mmioOpen(PChar(FilePath), nil, MMIO_READ);//先獲取主塊(RIFF)信息mmioDescend(hFile, @ckiRIFF, nil, MMIO_FINDRIFF);//獲取 fmt 子塊信息ckiSub.ckid := mmioStringToFOURCC('fmt', 0);if mmioDescend(hFile, @ckiSub, @ckiRIFF, MMIO_FINDCHUNK) = MMSYSERR_NOERROR thenbeginShowMessageFmt('%d, %d, %d, %d, %d', [ckiSub.ckid, ckiSub.cksize, ckiSub.fccType,ckiSub.dwDataOffset, ckiSub.dwFlags]);end;//如果繼續查找需要跳出子塊; 下面將從偏移地址 20 跳到 36 處mmioAscend(hFile, @ckiSub, 0); {其第三個參數一直是 0, 是備用參數}//獲取 data 子塊信息ckiSub.ckid := mmioStringToFOURCC('data', 0);if mmioDescend(hFile, @ckiSub, @ckiRIFF, MMIO_FINDCHUNK) = MMSYSERR_NOERROR thenbeginShowMessageFmt('%d, %d, %d, %d, %d', [ckiSub.ckid, ckiSub.cksize, ckiSub.fccType,ckiSub.dwDataOffset, ckiSub.dwFlags]);end;mmioClose(hFile, 0); end;end.

總結

以上是生活随笔為你收集整理的操作 Wave 文件(4): 获取 Wave 文件主块与子块的信息的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。