{* (C) CopyRight 2010 - by Hzj }
{说明：实现录音、MP3 格式压缩核心类文件 }
{ 创建日期：2010.06.20 }
{ 创建人：贺振军 }
{******************************************************************************}
unit EwRecord;
interface
uses
SysUtils, Classes, Graphics, Controls,Dialogs,StdVcl,
StdCtrls,ShellAPI,StrUtils,Forms,Windows,MPlayer;
type
TEwRec = class
private
public
{格式转换相关函数、方法}
//获取 Lame.exe 文件路径（在 windwos/system32 目录下）
function GetLamePath:string;
//获取生成的 mp3 文件名，如果传入 mp3 文件名则使用传入的，如果没有则使用 wav
文件生成相应的 MP3 文件名
function GetMp3FileName(_Mp3FileName:string;_WavFile: string):string;
//利用 ShellExecute 执行压缩命令
procedure EwConvertMp3FromLame(_WavFile: string;_Mp3File: string);
//procedure EwConvertMp3Procress(const DosApp : string;var OutStr : string);
function EwConvertMp3Procress(const DosApp : string;var OutStr : string) : Cardinal;
//利用 CreatProcess 执行命令，可以捕获结束标志
function WinExecAndWait32(FileName: string; Visibility: integer): Cardinal;
{录音相关函数方法}
//生成 WAV 头文件
procedure CreateWav(channels: word;{1(单声)或者 2(立体声)}resolution: word;{8 或者
16,代表 8 位或 16 位声音}rate: longint;{声音频率,如 11025,22050,44100}fn: string{对应的文件
名称});
//获取生成的文件名
function GetCreateWavName:string;
//根据传入的目录串检测当前目录是否存在，如果存在则返回，如果不存在则创建该
