网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
Delphi实现MP3 互相转换 WAV (无需任何第三方dll)
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式
open a file, read in a bunch of MP3 data, and convert it!

  // open file
  fpIn := FileOpen(MP3FileName, fmOpenRead);
  if (fpIn = 0) then Exit;

  // find out how big the decompressed buffer will be
  rawbufsize := 0;
  acmStreamSize(g_mp3stream, MP3_BLOCK_SIZE, rawbufsize, ACM_STREAMSIZEF_SOURCE);

  // allocate our I/O buffers
  mp3Buf := PByte(LocalAlloc(LPTR, MP3_BLOCK_SIZE));
  rawbuf := pByte(LocalAlloc(LPTR, rawbufsize));

  // prepare the decoder
  ZeroMemory(@mp3streamHead, sizeof(TACMSTREAMHEADER));
  mp3streamHead.cbStruct := sizeof(TACMSTREAMHEADER);
  mp3streamHead.pbSrc := mp3buf;
  mp3streamHead.cbSrcLength := MP3_BLOCK_SIZE;
  mp3streamHead.pbDst := rawbuf;
  mp3streamHead.cbDstLength := rawbufsize;
  acmStreamPrepareHeader(g_mp3stream, mp3streamHead, 0);

  // let''s dump this data off to disk (for debug checking!)
  RawFileName := ChangeFileExt(MP3FileName, ''.raw'');
  fpOut := FileCreate(RawFileName);
  if (fpOut = 0) then Exit;

  FileSeek(fpIn, 0, 0);

  while True do
  begin
    //suck in some MP3 data
    Count := FileRead(fpIn, mp3buf^, MP3_BLOCK_SIZE);
    if (Count <> MP3_BLOCK_SIZE) then break;

    // convert the data
    mmr := acmStreamConvert(g_mp3stream, mp3streamHead, ACM_STREAMCONVERTF_BLOCKALIGN);
    if mmr <> 0 then
    begin
      MessageBox(0, ''输入参数错误。请检查你的输入参数。'', ''系统提示: '', 64);
      Exit;
    end;

    //write the decoded PCM to disk
    Count := FileWrite(fpOut, rawbuf^, mp3streamHead.cbDstLengthUsed);
    if Count <> mp3streamHead.cbDstLengthUsed then
    begin
      MessageBox(0, ''输入参数错误。请检查你的输入参数。'', ''系统提示: '', 64);
      Exit;
    end;
  end; ;

//  clean up after yourself like a good little boy
  FileClose(fpIn);
  FileClose(fpOut);
  acmStreamUnprepareHeader(g_mp3stream, mp3streamHead, 0);
  LocalFree(LongInt(rawbuf));
  LocalFree(LongInt(mp3buf));
  acmStreamClose(g_mp3stream, 0);
  Result := True;
end;

 ConverMP3ToRaw函数是将MP3转换成RAW(RIFF格式),添加WAV文件头就是WAV文件了。

  • 下一篇资讯: 模拟键盘操作Delphi单元
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号