文档章节

操作 Wave 文件(7): 建立一个空的 Wave 文件(三种方法)

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 518
阅读 5
收藏 0

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses MMSystem;

//chan: 1 单声道、2 立体声;
//freq: 频率, 取值: 11025, 22050, 44100
//bit : 每个样本的大小, 取值 8、16
function CreateWav1(chan, freq, bit: Word; const FilePath: string): Boolean;
var
  h: HMMIO;
  ckiRiff, ckiFmt, ckiData: TMMCKInfo;
  fmt: TPCMWaveFormat;
begin
  //此函数是使用 mmioCreateChunk 函数来分别建立 Wave 文件的每个块.

  {初识化相关结构}
  ZeroMemory(@ckiRiff, SizeOf(TMMCKInfo));
  ckiRiff.cksize := 36; {mmioCreateChunk 函数会自动写上 ckid, 但其 cksize 需要手动给}
  ckiRiff.fccType := mmioStringToFOURCC('WAVE', 0);

  ZeroMemory(@ckiFmt, SizeOf(TMMCKInfo));
  ckiFmt.ckid := mmioStringToFOURCC('fmt', 0);

  ZeroMemory(@ckiData, SizeOf(TMMCKInfo));
  ckiData.ckid := mmioStringToFOURCC('data', 0);

  {指定 Wave 格式}
  fmt.wf.wFormatTag := WAVE_FORMAT_PCM;
  fmt.wf.nChannels := chan;
  fmt.wf.nSamplesPerSec := freq;
  fmt.wf.nAvgBytesPerSec := freq * chan * bit div 8;
  fmt.wf.nBlockAlign := chan * bit div 8;
  fmt.wBitsPerSample := bit;

  h := mmioOpen(PChar(FilePath), nil, MMIO_CREATE or MMIO_WRITE);
  if h = 0 then Exit(False);

  {分别建立 RIFF、fmt、data 块}
  if (mmioCreateChunk(h, @ckiRiff, MMIO_CREATERIFF) = MMSYSERR_NOERROR) and
    (mmioCreateChunk(h, @ckiFmt, 0) = MMSYSERR_NOERROR) and
    (mmioWrite(h, PAnsiChar(@fmt), SizeOf(TPCMWaveFormat)) = SizeOf(TPCMWaveFormat)) and
    (mmioAscend(h, @ckiFmt, 0) = MMSYSERR_NOERROR) and
    (mmioCreateChunk(h, @ckiData, 0) = MMSYSERR_NOERROR) then Result := True;

  mmioClose(h, 0);
end;

//把 PCM 编码的 WAVE 文件的前 44 个字节看成一个结构来操作:
function CreateWav2(chan, freq, bit: Word; const FilePath: string): Boolean;
type
  TWaveHeader = record
    Riff_ckid      : DWORD;
    Riff_cksize    : DWORD;
    Riff_fccType   : DWORD;
    fmt_ckid       : DWORD;
    fmt_cksize     : DWORD;
    wFormatTag     : Word;
    nChannels      : Word;
    nSamplesPerSec : DWORD;
    nAvgBytesPerSec: DWORD;
    nBlockAlign    : Word;
    wBitsPerSample : Word;
    data_ckid      : DWORD;
    data_cksize    : DWORD;
  end;
var
  wh: TWaveHeader;
  hFile: Integer;
begin
  wh.Riff_ckid := FOURCC_RIFF;
  wh.Riff_cksize := 36;
  wh.Riff_fccType := mmioStringToFOURCC('WAVE', 0);
  wh.fmt_ckid := mmioStringToFOURCC('fmt', 0);
  wh.fmt_cksize := 16;
  wh.wFormatTag := WAVE_FORMAT_PCM;
  wh.nChannels := chan;
  wh.nSamplesPerSec := freq;
  wh.nAvgBytesPerSec := freq * chan * bit div 8;
  wh.nBlockAlign := chan * bit div 8;
  wh.wBitsPerSample := bit;
  wh.data_ckid := mmioStringToFOURCC('data', 0);
  wh.data_cksize := 0;

  hFile := FileCreate(FilePath);
  Result := (FileWrite(hFile, wh, SizeOf(TWaveHeader)) <> -1);
  FileClose(hFile);
end;

//同上, 只是改用流来写文件
function CreateWav3(chan, freq, bit: Word; const FilePath: string): Boolean;
type
  TWaveHeader = record
    Riff_ckid      : DWORD;
    Riff_cksize    : DWORD;
    Riff_fccType   : DWORD;
    fmt_ckid       : DWORD;
    fmt_cksize     : DWORD;
    wFormatTag     : Word;
    nChannels      : Word;
    nSamplesPerSec : DWORD;
    nAvgBytesPerSec: DWORD;
    nBlockAlign    : Word;
    wBitsPerSample : Word;
    data_ckid      : DWORD;
    data_cksize    : DWORD;
  end;
var
  wh: TWaveHeader;
begin
  wh.Riff_ckid := FOURCC_RIFF;
  wh.Riff_cksize := 36;
  wh.Riff_fccType := mmioStringToFOURCC('WAVE', 0);
  wh.fmt_ckid := mmioStringToFOURCC('fmt', 0);
  wh.fmt_cksize := 16;
  wh.wFormatTag := WAVE_FORMAT_PCM;
  wh.nChannels := chan;
  wh.nSamplesPerSec := freq;
  wh.nAvgBytesPerSec := freq * chan * bit div 8;
  wh.nBlockAlign := chan * bit div 8;
  wh.wBitsPerSample := bit;
  wh.data_ckid := mmioStringToFOURCC('data', 0);
  wh.data_cksize := 0;

  with TFileStream.Create(FilePath, fmCreate) do begin
    Result := (Write(wh, SizeOf(TWaveHeader)) = SizeOf(TWaveHeader));
    Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateWav1(1, 11025, 8,  'C:\Temp\X1.wav');
  CreateWav2(2, 22050, 16, 'C:\Temp\X2.wav');
  CreateWav3(2, 44100, 16, 'C:\Temp\X3.wav');
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/11/10/1599435.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
【wav音频解析】之wavread函数的C++实现

本文由三部分组成,第一部分背景介绍 —— 音频类型及本文动机,第二部分类比matlab下wavread()函数的作用,第三部分则给出该函数的C++实现。 一 背景介绍 1.1 本文动机 1)所有wav音频处理的...

刘小米
2014/09/29
0
8
Apache 基金会让Google Wave 重生?

北京时间11月25日消息,据国外媒体报道,谷歌于今年8月宣布关闭在线实时沟通协作服务 Google Wave。但开源项目Apache软件基金会日前宣布将推出一款类似于Google Wave的服务,在其开源软件Apa...

小卒过河
2011/10/11
1K
7
Google Wave 拓展推出 刺激第三方应用开发

谷歌在3月12日启动了Google Wave的拓展,又向有着第三方应用贡献的开源、实时协作平台迈进了一步。 新拓展包括Trip app Trippy;Mind Map,来让用户创建可视化工作流;Waffle,一个时间管理工...

老枪
2010/03/14
567
0
痞子衡嵌入式:PCM编码与Waveform音频文件(.wav)格式详解

  大家好,我是痞子衡,是正经搞技术的痞子。今天痞子衡给大家介绍的是PCM编码及Waveform音频文件格式。   嵌入式里有时候也会和音频打交道,比如最近特别火的智能音箱产品,离不开前端的...

痞子衡
08/12
0
0
使用waveOut接口在Windows中播放声音

使用waveOut接口在Windows中播放声音 转贴地址:http://wmnmtm.blog.163.com/blog/static/382457142011101314135546/ ####################### //声明: 1 本帖作者是:加菲 ,至此感谢! 2 ...

ll124884135
2012/05/29
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Pycharm上Django的使用 Day8

1.添加新条目 1>编写用于添加新条目的表单 在forms.py中创建一个与模型Entry相关联的表单 1处给字段'text'指定一个空标签 2处定义小部件widgets,widgets是一个HTML表单元素 2>定义new_entry...

不会TC的猫
17分钟前
2
0
MongoDB副本集

MongoDB介绍 早期版本使用master-slave,一主一从和MySQL类似,但slave在此架构中为只读,当主库宕机后,从库不能自动切换为主 目前已经淘汰master-slave模式,改为副本集,这种模式下有一个...

chencheng-linux
30分钟前
1
0
WebService 客户端记录

https://blog.csdn.net/qiuhan/article/details/49487009

呼呼南风
30分钟前
0
0
七牛云彭垚:智能平台的创新和发展

2018 年 11 月 14 日至 11 月 18 日,第二十届中国国际高新技术成果交易会(简称高交会)在深圳成功举办,七牛云作为国内领先的以数据智能和视觉智能为核心的企业级云计算服务商受邀参展。 ...

七牛云
37分钟前
0
0
Java内存模型原理,你真的理解透彻了吗?

内存模型产生背景 在介绍 Java 内存模型之前,我们先了解一下物理计算机中的并发问题,理解这些问题可以搞清楚内存模型产生的背景。 物理机遇到的并发问题与虚拟机中的情况有不少相似之处,物...

小刀爱编程
41分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部