delphi制作wav文件的方法

 更新时间:2020年6月30日 23:43  
这篇文章主要介绍了delphi制作wav文件的方法,涉及Delphi操作多媒体文件的相关技巧,需要的朋友可以参考下

本文实例讲述了delphi制作wav文件的方法。分享给大家供大家参考。具体如下:

这里delphi用waveIn...函数制作wav文件

具体代码如下:

//使用窗口接受音频设备发出的消息:
unit Unit1; 
interface 
uses 
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
 Dialogs, StdCtrls; 
type 
 TForm1 = class(TForm) 
  Button1: TButton; 
  Button2: TButton; 
  Button3: TButton; 
  procedure FormCreate(Sender: TObject); 
  procedure Button1Click(Sender: TObject); 
  procedure Button2Click(Sender: TObject); 
  procedure Button3Click(Sender: TObject); 
 protected 
  procedure WndProc(var m: TMessage); override; 
 end; 
var 
 Form1: TForm1; 
implementation 
{$R *.dfm}  
uses MMSystem; 
var 
 whIn1,whIn2, whOut: TWaveHdr; 
 hWaveIn,hWaveOut: HWAVE; 
 fmt: TWaveFormatEx; 
 buf1,buf2,SaveBuf: TBytes; 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
 Button1.Caption := '开始录音'; 
 Button2.Caption := '停止录音'; 
 Button3.Caption := '播放录音'; 
end; 
//开始录音 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
 {指定要录制的格式} 
 fmt.wFormatTag := WAVE_FORMAT_PCM; 
 fmt.nChannels := 2; 
 fmt.nSamplesPerSec := 22050; 
 fmt.nAvgBytesPerSec := 88200; 
 fmt.nBlockAlign := 4; 
 fmt.wBitsPerSample := 16; 
 fmt.cbSize := 0; 
 SaveBuf := nil; {清除已录制的内容} 
 if waveInOpen(@hWaveIn, WAVE_MAPPER,[email protected], Handle, 0, CALLBACK_WINDOW) = 0 then 
 begin 
  SetLength(buf1, 1024*8); 
  SetLength(buf2, 1024*8); 
  whIn1.lpData := PAnsiChar(buf1); 
  whIn1.dwBufferLength := Length(buf1); 
  whIn1.dwBytesRecorded := 0; 
  whIn1.dwUser := 0; 
  whIn1.dwFlags := 0; 
  whIn1.dwLoops := 0; 
  whIn1.lpNext := nil; 
  whIn1.reserved := 0; 
  whIn2.lpData := PAnsiChar(buf2); 
  whIn2.dwBufferLength := Length(buf2); 
  whIn2.dwBytesRecorded := 0; 
  whIn2.dwUser := 0; 
  whIn2.dwFlags := 0; 
  whIn2.dwLoops := 0; 
  whIn2.lpNext := nil; 
  whIn2.reserved := 0; 
  waveInPrepareHeader(hWaveIn,[email protected], SizeOf(TWaveHdr)); 
  waveInPrepareHeader(hWaveIn,[email protected], SizeOf(TWaveHdr)); 
  waveInAddBuffer(hWaveIn,[email protected], SizeOf(TWaveHdr)); 
  waveInAddBuffer(hWaveIn,[email protected], SizeOf(TWaveHdr)); 
  waveInStart(hWaveIn); 
 end; 
end; 
//停止录音 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
 waveInStop(hWaveIn); 
 waveInUnprepareHeader(hWaveIn,[email protected], SizeOf(TWaveHdr)); 
 waveInUnprepareHeader(hWaveIn,[email protected], SizeOf(TWaveHdr)); 
 waveInClose(hWaveIn); 
end; 
//播放录音 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
 whOut.lpData := PAnsiChar(SaveBuf); 
 whOut.dwBufferLength := Length(SaveBuf); 
 whOut.dwBytesRecorded := 0; 
 whOut.dwUser := 0; 
 whOut.dwFlags := 0; 
 whOut.dwLoops := 1; 
 whOut.lpNext := nil; 
 whOut.reserved := 0; 
 waveOutOpen(@hWaveOut, WAVE_MAPPER,[email protected], Handle, 0, CALLBACK_WINDOW); 
 waveOutPrepareHeader(hWaveOut,[email protected], SizeOf(TWaveHdr)); 
 waveOutWrite(hWaveOut,[email protected], SizeOf(TWaveHdr)); 
end; 
procedure TForm1.WndProc(var m: TMessage); 
var 
 ordLen: Integer; 
begin 
 inherited; 
 case m.Msg of 
  {处理录音消息} 
  MM_WIM_OPEN: ;   {此消息只携带了设备句柄} 
  MM_WIM_CLOSE: ;  {此消息只携带了设备句柄} 
  MM_WIM_DATA: begin {此消息携带了设备句柄和 WaveHdr 指针(LParam)}
   {保存录制的数据} 
   ordLen := Length(SaveBuf); 
   SetLength(SaveBuf, ordLen + PWaveHdr(m.LParam).dwBytesRecorded); 
   CopyMemory(Ptr(DWORD(SaveBuf)+ordLen), PWaveHdr(m.LParam).lpData, PWaveHdr(m.LParam).dwBytesRecorded); 
   {继续录制} 
   waveInAddBuffer(hWaveIn, PWaveHdr(m.LParam), SizeOf(TWaveHdr));
  end;
  {处理播放消息} 
  MM_WOM_OPEN: ;   {此消息只携带了设备句柄} 
  MM_WOM_CLOSE: ;  {此消息只携带了设备句柄} 
  MM_WOM_DONE: begin {此消息携带了设备句柄和 WaveHdr 指针(LParam)}
   waveOutUnprepareHeader(hWaveOut, PWaveHdr(m.LParam), SizeOf(TWaveHdr)); 
   waveOutClose(hWaveOut); 
  end; 
 end; 
end; 
end.

希望本文所述对大家的Delphi程序设计有所帮助。

相关文章

  • pyqt5打包成exe可执行文件的方法

    最近做了一个窗口程序,那么能不能将其生成一个可执行文件,本文就介绍一下pyqt5打包成exe可执行文件的方法,感兴趣的可以了解一下...2021-05-15
  • Tomcat将配置文件放在外部的解决方法

    这篇文章主要给大家介绍了关于Tomcat将配置文件放在外部的相关资料,对平时工作来说还是挺实用的,需要的朋友们下面随着小编一起来看看吧...2021-05-16
  • Python3中PyQt5简单实现文件打开及保存

    本文将结合实例代码,介绍Python3中PyQt5简单实现文件打开及保存,具有一定的参考价值,需要的朋友们下面随着小编来一起学习学习吧...2021-06-10
  • Android实现app分享文件到微信功能

    这篇文章主要为大家详细介绍了Android实现app分享文件到微信功能,文中示例代码介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们可以参考一下...2021-05-25
  • 浅谈Java中File文件的创建以及读写

    文中有非常详细的步骤介绍了Java中file文件的创建以及读写,对刚开始学习java的小伙伴们很有帮助,而且下文有非常详细的代码示例及注释哦,需要的朋友可以参考下...2021-05-13
  • java.io.File的renameTo方法移动文件失败的解决方案

    这篇文章主要介绍了java.io.File的renameTo方法移动文件失败的解决方案,具有很好的参考价值,希望对大家有所帮助。如有错误或未考虑完全的地方,望不吝赐教...2021-07-07
  • 基于tensorflow权重文件的解读

    这篇文章主要介绍了关于tensorflow权重文件的解读,具有很好的参考价值,希望对大家有所帮助。...2021-05-27
  • python必学知识之文件操作(建议收藏)

    python中对文件、文件夹(文件操作函数)的操作需要涉及到os模块和shutil模块。下面这篇文章主要给大家介绍了关于python必学知识之文件操作的相关资料,需要的朋友可以参考下...2021-05-30
  • 教你在SpringBoot中管理多环境配置文件

    在项目开发中,一般会分为开发环境,测试环境和生产环境.如果总是在一个文件中修修改改,难免会出现错误,尤其是在交接的过程中,一旦出现问题,轻则丢失绩效,重则需要删库跑路.本文则带大家详细了解怎么管理多环境配置文件,需要的朋友可以参考下...2021-05-13
  • python通过http上传文件思路详解

    这篇文章主要介绍了python通过http上传文件,在post请求中,用files参数来接受文件对象相关的参数,通过data/json参数接受post请求体的其他参数...2021-07-06
  • 一文搞懂C#实现读写文本文件中的数据

    这篇文章重点给大家介绍C#实现读写文本文件中的数据的一些知识,读取.txt文件数据的实例代码及写入读取过程完整代码,感兴趣的朋友跟随小编一起看看吧...2021-06-19
  • SpringBoot部署到Linux读取resources下的文件及遇到的坑

    本文主要给大家介绍SpringBoot部署到Linux读取resources下的文件,在平时业务开发过程中,很多朋友在获取到文件内容乱码或者文件读取不到的问题,今天给大家分享小编遇到的坑及处理方案,感兴趣的朋友跟随小编一起看看吧...2021-06-21
  • spring boot项目application.properties文件存放及使用介绍

    这篇文章主要介绍了spring boot项目application.properties文件存放及使用介绍,我们的application.properties文件中会有很多敏感信息,大家在使用过程中要多加小心...2021-06-30
  • python读取一个大于10G的txt文件的方法

    读取文件是一个常用的功能,那么如何用python 读取一个大于10G 的文件,需要的朋友们下面随着小编来一起学习学习吧...2021-05-28
  • Springboot集成阿里云OSS上传文件系统教程

    这篇文章主要介绍了Springboot集成阿里云OSS上传文件系统教程,通过详细的图文展示,代码步骤的展示和文件配置信息,希望对你有所帮助...2021-06-29
  • SpringBoot读取Resource下文件的4种方法

    这篇文章主要介绍了SpringBoot读取Resource下文件的4种方法小结,具有很好的参考价值,希望对大家有所帮助。如有错误或未考虑完全的地方,望不吝赐教...2021-07-02
  • python 中yaml文件用法大全

    本文主要是总结yaml常用的一些数据形式,对于我们正常的项目使用,已经足够用了,接下来通过本文给大家分享python 中yaml文件用法,需要的朋友参考下吧...2021-07-05