unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses MMSystem; function GetWaveData(FilePath: string; var stream: TMemoryStream): Boolean; var hFile: HMMIO; ckiRIFF,ckiData: TMMCKInfo; begin Result := False; hFile := mmioOpen(PChar(FilePath), nil, MMIO_READ); if hFile = 0 then Exit; ZeroMemory(@ckiRIFF, SizeOf(TMMCKInfo)); ZeroMemory(@ckiData, SizeOf(TMMCKInfo)); ckiData.ckid := mmioStringToFOURCC('data', 0); //先获取主块的信息 mmioDescend(hFile, @ckiRIFF, nil, MMIO_FINDRIFF); //再获取 data 块的信息后, 指针将自动指向 data 数据的起点; 然后读出数据 if (ckiRIFF.ckid = FOURCC_RIFF) and (ckiRIFF.fccType = mmioStringToFOURCC('WAVE',0)) and (mmioDescend(hFile, @ckiData, @ckiRIFF, MMIO_FINDCHUNK) = MMSYSERR_NOERROR) then begin stream.Size := ckiData.cksize; Result := (mmioRead(hFile, stream.Memory, ckiData.cksize) = ckiData.cksize); end; mmioClose(hFile, 0); end; //调用测试 procedure TForm1.Button1Click(Sender: TObject); const FilePath = 'C:\WINDOWS\Media\Windows XP 启动.wav'; var stream: TMemoryStream; begin stream := TMemoryStream.Create; if GetWaveData(FilePath, stream) then ShowMessageFmt('读出的数据大小是: %d', [stream.Size]); {424600} stream.Free; end; end.
Wave 文件(6): 获取 Wave 文件的波形数据
原创
©著作权归作者所有:来自51CTO博客作者低代码布道者的原创作品,请联系作者获取转载授权,否则将追究法律责任
读取函数及测试代码:
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
大模型应用由你创造!WAVE SUMMIT+ Workshop等你来参加
星河探索,智能应用,ALL IN,ALL“应”。
插件开发 原生应用 WAVE SUMMIT 人工智能 开发者 -
读取wave文件信息例子
d short uint16;typedef unsi
4s #include 数据 -
es score是怎么计算的
写在前面es在进行数据查询时,数据的返回顺序是由评分决定的,而默认的评分是采用的相关度评分,但在某些业务场景中如果是仅仅考虑相关度评分的话,无法满足需求,所以es提供了function score query来通过其他的方式来改变最终的评分,如下:本文一起来看下这部分相关的内容。1:例子考虑这样的场景,某良心企业发起一项征文活动,文章主题你对996的看法,并且文章发布到网上可以供广大的热心网友投票
es score是怎么计算的 elasticsearch function score boost mode max boost