文档章节

在 Delphi 下使用 DirectSound (6): 按文件自己的格式(TWaveFormatEx)播放

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 302
阅读 14
收藏 0

这必须手动建立主缓冲区.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses DirectSound, MMSystem, ReadWaveFile; //ReadWaveFile 是在前面(4)自定义的单元

var
  myDSound: IDirectSound8;        //设备对象
  bufPrimary: IDirectSoundBuffer; //主缓冲
  buf: IDirectSoundBuffer;        //次缓冲

{初始化设备并建立主缓冲区}
procedure TForm1.FormCreate(Sender: TObject);
var
  wavFormat: TWaveFormatEx;
  bufDesc: TDSBufferDesc;
begin
  DirectSoundCreate8(nil, myDSound, nil);
  myDSound.SetCooperativeLevel(Handle, DSSCL_PRIORITY);

  ZeroMemory(@bufDesc, SizeOf(TDSBufferDesc));
  bufDesc.dwSize := SizeOf(TDSBufferDesc);
  bufDesc.dwFlags := DSBCAPS_PRIMARYBUFFER;
  bufDesc.dwBufferBytes := 0;
  bufDesc.lpwfxFormat := nil;

  myDSound.CreateSoundBuffer(bufDesc, bufPrimary, nil);
end;

{建立次缓冲区, 并从 Wave 文件填充数据}
procedure TForm1.Button1Click(Sender: TObject);
var
  wavFormat: TWaveFormatEx;
  bufDesc: TDSBufferDesc;
  wavPath: string;
  wav: TReadWaveFile;
  p1: Pointer;
  n1: DWORD;
begin
  buf := nil;
  with TOpenDialog.Create(nil) do begin
    Filter := 'Wave File(*.wav)|*.wav';
    if Execute then wavPath := FileName;
    Free;
  end;

  wav := TReadWaveFile.Create;
  if not wav.Open(wavPath) then
  begin
    ShowMessage('只能是 PCM 格式的 WAVE 文件');
    wav.Free;
    Exit;
  end;

  ZeroMemory(@bufDesc, SizeOf(TDSBufferDesc));
  bufDesc.dwSize := SizeOf(TDSBufferDesc);
  bufDesc.dwFlags := DSBCAPS_STATIC;
  bufDesc.dwBufferBytes := wav.Size;
  bufDesc.lpwfxFormat := @wav.Format;

  {建立次缓冲, 并把主缓冲的格式修改为当前文件的格式}
  myDSound.CreateSoundBuffer(bufDesc, buf, nil);
  bufPrimary.SetFormat(@wavFormat); //!

  buf.Lock(0, 0, @p1, @n1, nil, nil, DSBLOCK_ENTIREBUFFER);
  wav.Read(p1, n1);
  wav.Free;
  buf.Unlock(p1, n1, nil, 0);
  buf.Play(0, 0, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bufPrimary := nil;
  buf := nil;
  myDSound := nil;
end;

end.

本文转载自:http://www.cnblogs.com/del/archive/2011/01/19/1939105.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
DirectSound入门

文档内容: (费话篇) 关于DirectSound DirectSound是DirectX API的音频(waveaudio)组件之一,它可以提供快速的混音、硬件加速功能,并且可以直接访问相关设备,当然,最主要的是它提供的...

长平狐
2012/08/13
901
0
DirectSound学习(二)--流式缓冲区

使用流式缓冲方式播放波形音频文件比较复杂,主要原因是在只有一个缓冲区提供给用户的前提下,这个缓冲区在提供给声卡播放数据的同是还需要用户不断的定时向其中写入数据。要注意从缓冲区这时...

imxiangzi
02/11
0
0
waveOutOpen 函数说明

waveOutOpen 函数说明 (2008-12-21 13:33:10) 转载▼ 使用心得:首先打开声音输出设备,然后初始化输出内存,并保证不要使用缓存;(调用waveOutPrepareHeader设置内存),然后通过回调函数进...

薛蕊
2014/05/28
0
0
delphi资源文件制作及使用详解

delphi资源文件制作及使用详解 摘自:http://www.ej38.com/showinfo/delphi-131567.html 一、引子: 现在的Windows应用程序几乎都使用图标、图片、光标、声音等,我们称它们为资源(Resourc...

vga
2015/03/03
0
0
我的开源视音频项目汇总

本文汇总一下自己视音频编解码学习方面的开源项目。这些开源项目大体上可以分成专业领域程序,FFmpeg示例程序,FFmpeg移植程序,多媒体项目示例程序,视音频编解码原理学习工程几个类别。这些...

leixiaohua1020
2015/01/13
0
0

没有更多内容

加载失败,请刷新页面

加载更多

jquery通过id显示隐藏

var $div3 = $('#div3'); 显示 $div3.show(); 隐藏 $div3.hide();

yan_liu
今天
3
0
《乱世佳人》读书笔记及相关感悟3900字

《乱世佳人》读书笔记及相关感悟3900字: 之前一直听「荔枝」,后来不知怎的转向了「喜马拉雅」,一听就是三年。上班的时候听房产,买房了以后听装修,兴之所至时听旅行,分手后听亲密关系,...

原创小博客
今天
3
0
大数据教程(9.6)map端join实现

上一篇文章讲了mapreduce配合实现join,本节博主将讲述在map端的join实现; 一、需求 实现两个“表”的join操作,其中一个表数据量小,一个表很大,这种场景在实际中非常常见,比如“订单日志...

em_aaron
今天
3
0
cookie与session详解

session与cookie是什么? session与cookie属于一种会话控制技术.常用在身份识别,登录验证,数据传输等.举个例子,就像我们去超市买东西结账的时候,我们要拿出我们的会员卡才会获取优惠.这时...

士兵7
今天
3
0
十万个为什么之为什么大家都说dubbo

Dubbo是什么? 使用背景 dubbo为什么这么流行, 为什么大家都这么喜欢用dubbo; 通过了解分布式开发了解到, 为适应访问量暴增,业务拆分后, 子应用部署在多台服务器上,而多台服务器通过可以通过d...

尾生
今天
5
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部