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

  maxFormatSize := 0;                                                                               // find the biggest format size
  acmMetrics(nil, ACM_METRIC_MAX_SIZE_FORMAT, maxFormatSize);

  waveFormat := PWAVEFORMATEX(Pointer(LocalAlloc(LPTR, maxFormatSize)));                            // define desired output format
  waveFormat^.wFormatTag := WAVE_FORMAT_PCM;
  if Channels = 1 then waveFormat^.nChannels := 1;
  if Channels = 2 then waveFormat^.nChannels := 2;
  waveFormat^.nSamplesPerSec := SamplesPerSec;                                                      // 44.1kHz
  waveFormat^.wBitsPerSample := BitsPerSample;                                                      // 16 bits
  waveFormat^.nBlockAlign := waveFormat^.nChannels * waveFormat^.wBitsperSample div 8;              // 4;                                                                     // 4 bytes of data at a time are useful (1 sample)
  waveFormat^.nAvgBytesPerSec := waveFormat^.nBlockAlign * SamplesPerSec;                     &n

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

    免费论文

    原创论文

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