实时录音&实时MP3压缩组件源码发布2

Question

unit Lame_Enc;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls;const
  BE_CONFIG_MP3  = 0;
  BE_CONFIG_LAME = 256;
  
type
  THBESTREAM = ULONG;
  PHBESTREAM = ^THBESTREAM;
  PSHORT     = ^SHORT;
  PBYTE      = ^Byte;
  LMODE = (STEREO, JSTEREO, DUALCHANNEL, MONO);
  LBITRATE = (b32, b48, b64, b96, b128, b160, b192, b224, b256, b320);
  LMAXBITRATE = (m160, m192, m224, m256 ,m320);
  lQUALITY = (NORMAL, LOW, HIGH, VOICE);
  LVBRQUALITY = (v0, v1, v2, v3, v4, v5, v6, v7, v8 ,v9);
  PLHV1 = ^TLHV1;
  TLHV1 = packed record
    dwStructVersion : DWORD;
    dwStructSize    : DWORD;
    dwSampleRate    : DWORD;
    dwReSampleRate  : DWORD;
    nMode     : Integer;
    dwBitRate       : DWORD;
    dwMaxBitRate    : DWORD;
    nQuality        : DWORD;
    dwMpegVersion   : DWORD;
    dwPsyModel      : DWORD;
    dwEmphasis      : DWORD;
    bPrivate        : BOOL;
    bCRC            : BOOL;
    bCopyRight      : BOOL;
    bOriginal       : BOOL;
    bWriteVBRHeader : BOOL;
    bEnableVBR     : BOOL;
    nVBRQuality     : Integer;
    btReserved      : array [0..255] of Byte;
  end;
  PLameMP3 = ^TLameMP3;
  TLameMP3 = packed record
    dwSampleRate : DWORD;
    byMode       : Byte;
    wBitrate     : WORD;
    bPrivate     : BOOL;
    bCRC         : BOOL;
    bCopyright   : BOOL;
    bOriginal    : BOOL;
  end;
  PFormat = ^TFormat;
  TFormat = packed record
    case dwConfig : DWord of
      BE_CONFIG_MP3   : (MP3: TLameMP3);
      BE_CONFIG_LAME  : (LHV1: TLHV1);
  end;
  PBECONFIG = ^TBECONFIG;
  TBECONFIG = packed record
  Format: TFormat;
  end;
  function beInitStream(var pbeConfig: TBEConfig; var dwSamples: DWORD; var dwBufferSize: DWORD; var phbeStream: THBESTREAM): ULONG; cdecl; external 'LAME_ENC.DLL';
  function beEncodeChunk(hbeStream: THBEStream; nSamples:DWORD; pSamples: PShort;  pOutput: PByte; var pdwOutput: DWORD): ULONG; cdecl; external 'LAME_ENC.DLL';
  function beDeinitStream(hbeStream: THBEStream; pOutput:PByte; var pdwOutput : DWORD): ULONG; cdecl; external 'LAME_ENC.DLL';
  function beCloseStream(var hbeStream: THBEStream): ULONG; cdecl; external 'LAME_ENC.DLL';
  function beInit: Integer;
  function beEnc(var Ms: TMemoryStream; var Md: TMemoryStream): Integer; overload;
  function beEnc(var Ms: TMemoryStream; var Fd: TFileStream): Integer; overload;
  function beEnc(var sBuf: Pointer; sLen: Integer; var Md: TMemoryStream): Integer; overload;
  function beEnc(var sBuf: Pointer; sLen: Integer; var Fd: TFileStream): Integer; overload;
  function beEnc(var sBuf: Pointer; var sLen: Integer): Integer; overload;
  function beDeinit: Integer; overload;
  function beDeinit(var Md: TMemoryStream): Integer; overload;
  function beDeinit(var Fd: TFileStream): Integer; overload;
var
  Done          : DWORD;
  dwWrite       : DWORD;
  toRead        : DWORD;
  isRead        : DWORD;
  toWrite       : DWORD;
  IsWritten     : DWORD;
  sLength       : DWORD;
  FNumSamples   : DWORD;
  FBufSize      : DWORD;
  InputBufSize  : DWORD;
  FMp3BlockAlign: DWORD;
  vConfig       : TBeConfig;
  FHBeStream    : THBeStream;
  FInputBuf     : Pointer;
  FOutputBuf    : Pointer;implementationfunction beInit: Integer;
begin
  try
    Result:= BeInitStream(vConfig, FNumSamples, FBufSize, FHBeStream);
    if Result <> 0 then Exit;
    InputBufSize:=FNumSamples*FMp3BlockAlign;
    GetMem(FInputBuf,InputBufSize);
    GetMem(FOutputBuf,FBufSize*32);
  except
    Result:=9;
  end;
end;function beEnc(var Ms: TMemoryStream; var Md: TMemoryStream): Integer;
begin
  try
    sLength:= Ms.Size;
    Done:= 0;
    While Done <> sLength do begin
      if (Done + (InputBufSize) <= sLength) then toRead:= InputBufSize else toRead:= sLength - Done;
      isRead:= Ms.Read(FInputBuf^,toRead);
      if isRead <> toRead then Exception.Create('');
      Result:= beEncodeChunk(FHBeStream,(toRead div 2), FInputBuf, FOutputBuf, toWrite);
      if Result <> 0 then Exit;
      IsWritten:= Md.Write(FOutputBuf^,toWrite);
      if toWrite <> IsWritten then Exception.Create('');
      Done:= Done + toRead;
    end;
  except
    Result:= 9;
  end;
end;function beEnc(var Ms: TMemoryStream; var Fd: TFileStream): Integer;
begin
  try
    sLength:= Ms.Size;
    Done:= 0;
    While Done <> sLength do begin
      if (Done + (InputBufSize) <= sLength) then toRead:= InputBufSize else toRead:= sLength - Done;
      isRead:= Ms.Read(FInputBuf^,toRead);
      if isRead <> toRead then Exception.Create('');
      Result:= beEncodeChunk(FHBeStream,(toRead div 2), FInputBuf, FOutputBuf, toWrite);
      if Result <> 0 then Exit;
      IsWritten:= Fd.Write(FOutputBuf^,toWrite);
      if toWrite <> IsWritten then Exception.Create('');
      Done:= Done + toRead;
    end;
  except
    Result:= 9;
  end;
end;function beEnc(var sBuf: Pointer; sLen: Integer; var Md: TMemoryStream): Integer;
begin
  try
    Done:= 0;
    While Done <> sLen do begin
      if (Done + (InputBufSize) <= sLen) then toRead:= InputBufSize else toRead:= sLen - Done;
      Move(Pointer(Longint(sBuf) + Done)^, FInputBuf^, toRead);
      if isRead <> toRead then Exception.Create('');
      Result:= beEncodeChunk(FHBeStream,(toRead div 2), FInputBuf, FOutputBuf, toWrite);
      if Result <> 0 then Exit;
      IsWritten:= Md.Write(FOutputBuf^,toWrite);
      if toWrite <> IsWritten then Exception.Create('');
      Done:= Done + toRead;
    end;
  except
    Result:= 9;
  end;
end;function beEnc(var sBuf: Pointer; sLen: Integer; var Fd: TFileStream): Integer;
begin
  try
    Done:= 0;
    While Done <> sLen do begin
      if (Done + (InputBufSize) <= sLen) then toRead:= InputBufSize else toRead:= sLen - Done;
      Move(Pointer(Longint(sBuf) + Done)^, FInputBuf^, toRead);
      if isRead <> toRead then Exception.Create('');
      Result:= beEncodeChunk(FHBeStream,(toRead div 2), FInputBuf, FOutputBuf, toWrite);
      if Result <> 0 then Exit;
      IsWritten:= Fd.Write(FOutputBuf^,toWrite);
      if toWrite <> IsWritten then Exception.Create('');
      Done:= Done + toRead;
    end;
  except
    Result:= 9;
  end;
end;function beEnc(var sBuf: Pointer; var sLen: Integer): Integer;
begin
  Result:= beEncodeChunk(FHBeStream,(sLen div 2), sBuf, FOutputBuf, toWrite);
  sBuf:=FOutputBuf;
  sLen:=toWrite;
end;function beDeinit: Integer;
begin
  try
    Result:= beDeinitStream(FHBeStream, FOutputBuf, dwWrite);
    Result:= beCloseStream(FHBeStream);
  finally
    FreeMem(FInputBuf);
    FreeMem(FOutputBuf);
    FInputBuf:= Nil;
    FOutputBuf:= Nil;
  end;
end;function beDeinit(var Md: TMemoryStream): Integer;
begin
  try
    Result:= beDeinitStream(FHBeStream, FOutputBuf, dwWrite);
    Md.Write(FOutputBuf^,toWrite);
    Result:= beCloseStream(FHBeStream);
  finally
    FreeMem(FInputBuf);
    FreeMem(FOutputBuf);
    FInputBuf:= Nil;
    FOutputBuf:= Nil;
  end;
end;function beDeinit(var Fd: TFileStream): Integer;
begin
  try
    Result:= beDeinitStream(FHBeStream, FOutputBuf, dwWrite);
    Fd.Write(FOutputBuf^,toWrite);
    Result:= beCloseStream(FHBeStream);
  finally
    FreeMem(FInputBuf);
    FreeMem(FOutputBuf);
    FInputBuf:= Nil;
    FOutputBuf:= Nil;
  end;
end;end.

Answer 1

该组件其中用到了lame_enc.dll编码引擎，下载地址：http://www.mp3－tech.org/software/encoders/lame.zip

Answer 2

我记得wave可以不用压缩成mp3格式的，所以就不需要外部的DLL，但没有去研究，有一些例子是转成内置的codec格式，就是acm还是流格式转换我记不太清楚了你的wavein的代码感觉很熟悉，是

Answer 3

哪个DLL不能下载啊，能不能发个给我呢？
[email protected]

Answer 4

to ：copy_paste(木石三) wavein部分代码是在网上下载的，为何wave可以不用压缩成mp3格式？
我主要为了录音，我硬盘很小的，但要求有比较好的音质，
to：楼上，我已经发给你了，请查收

Answer 5

写个例程看下啦！先谢了。另外这个可以录制声卡linein的声音吗？