当前位置：文档之家 › Delphi判断一个文件是否是MP3

Delphi判断一个文件是否是MP3

  • 格式：docx
  • 大小：20.03 KB
  • 文档页数：10

Delphi判断一个文件是否是MP3MP3文件是流媒体文件，没有文件头，要判断是不是MP3文件只能分析帧头数据。

MP3文件还可能存在TAG，也可能不存在TAG。

如果存在TAG，其格式可能是ID3V1或者是ID3V2或者是2者都有。

如果是ID3V1，它将存在于MP3文件的末尾，占据128个字节；如果是ID3V2，它在MP3文件的头部，大小不固定，要获取MP3文件的各种信息，不但要判断文件是否含有TAG，还要判断每一帧的数据。

下面将用Delphi实现对上述三种格式的判断。

1.ID3V1：包含128个字节，结构如下：_TTAGV1INFO = record// TAG三个字母，如果有这三个字母则是ID3V1，如果不是则没有Indentify: array [0..2] of Char;// 歌曲名，30个字节Title: array [0..29] of Char;// 歌手名，30个字节Artist: array [0..29] of Char;// 所属唱片，30个字节Album: array [0..29] of Char;// 年，4个字节Year: array [0..3] of Char;// 注释，28个字节Comment: array [0..29] of Char;// 保留位，3个字节Reserved: Char;end;只要判断文件末尾第128个字节开始3个字节是否含有“TAG”标志即可，如含有，则表示有ID3V1，没有则表示没有该TAG。

代码如下：function TForm1.tagV1Check(fileName: string): Boolean;varfsMP3: TFileStream;tagInfo: _TTAGV1INFO;beginresult := False;fsMP3 := TFileStream.Create(fileName, fmOpenRead);tryfsMP3.Position := fsMP3.Size - 128;fsMP3.Read(tagInfo, SizeOf(tagInfo));if tagInfo.Indentify = 'TAG' thenresult := True;finallyFreeAndNil(fsMP3);end;end;2.ID3V2：这个比ID3V1要复杂些，长度并不固定，它的结构大体如下：_TTAGV2INFO = record// ID3v2的标识位，3字节Indentify: array [0..2] of Char;// 版本号,1字节Version: Byte;// 副版本号1字节Sub_Version: Byte;// 存放标志(Flag) 的3位，但只记录1字节Flag: Byte;// 标签大小，4字节(标签头的10个字节不计算在内)Size: array [0..3] of Byte;end;含义：①ID3v2的标识位，3字节，是“ID3”三个字母，如果没有这三个字母，则没有ID3V2信息②版本号，1字节，ID3V2的3版，是“3”③副版本号1字节，此版本记录，是“0”④存放标志(Flag) 的3位，但只记录1字节，标志字节一般为0，格式:abc00000，“a 位”表示不使用同步；“b位”表示否使用展扩头，展扩头一般不用；“c位”表示这个标签是否是个供测试用的标签(一般不是，也不置)。

所以a、b、c三位均设为零。

⑤标签大小，4字节(标签头的10个字节不计算在内) 。

标签大小：一共四个字节，但每个字节只使用7位，最高位不使用恒为0，所以格式如下：0xxxxxxx 0xxxxxxx 0xxxxxxx 0xxxxxxx计算大小时要将0去掉，得到一个28位的二进制数，就是标签的大，计算公式如下ID3大小= 第一个字节 × 0x200000 + 第二个字节 × 0x400 + 第三个字节 × 0x80 + 第四个字节。

为了计算MP3文件的播放时间，要将MP3文件除去TAG的大小计算出来，所以在判断ID3V2时，将其所占字节数返回，以便计算MP3帧的大小，代码如下：function TForm1.tagV2Check(fileName: string): Cardinal;varfsMP3: TFileStream;tagInfo: _TTAGV2INFO;tagSize: Integer;bTagNoExist: Boolean;beginresult := 0;bTagNoExist := False;fsMP3 := TFileStream.Create(fileName, fmOpenRead);tryfsMP3.Position := 0;repeatfsMP3.Read(tagInfo, SizeOf(tagInfo));if tagInfo.Indentify = 'ID3' thenbegintagSize := (tagInfo.Size[0] and $7F) * $200000 + (tagInfo.Size[1] and $7F) * $400 + (tagInfo.Size[2] and $7F) * $80 + (tagInfo.Size[3] and $7F);result := tagSize + 10;fsMP3.Position := tagSize + 10;endelsebTagNoExist := True;until bTagNoExist;finallyFreeAndNil(fsMP3);end;end;3.MP3帧头：mp3帧头的格式如下：=======================================帧头格式=======================================12 sync 0xFFF1 version 1=mpeg1.0, 0=mpeg2.02 lay 4-lay = layerI, II or III1 error protection 0=yes, 1=no4 bitrate_index see table below2 sampling_freq see table below1 padding1 extension see table below2 mode see table below2 mode_ext used with "joint stereo" mode1 copyright 0=no 1=yes1 original 0=no 1=yes2 emphasis see table below=======================================含义：- bitrate_index. mpeg1.01 2 3 4 5 6 7 8 9 10 11 12 13 14layer1 32 64 96 128 160 192 224 256 288 320 352 384 416 448 layer2 32 48 56 64 80 96 112 128 160 192 224 256 320 384 layer3 32 40 48 56 64 80 96 112 128 160 192 224 256 320 . mpeg2.01 2 3 4 5 6 7 8 9 10 11 12 13 14layer1 32 48 56 64 80 96 112 128 144 160 176 192 224 256layer2 8 16 24 32 40 48 56 64 80 96 112 128 144 160layer3 8 16 24 32 40 48 56 64 80 96 112 128 144 160- sampling_freq. mpeg1.00 1 244100 48000 32000. mpeg2.00 1 222050 24000 16000- mode:0 "stereo"1 "joint stereo"2 "dual channel"3 "single channel"- mode extension:0 MPG_MD_LR_LR1 MPG_MD_LR_I2 MPG_MD_MS_LR3 MPG_MD_MS_Ijsbound :mode_ext 0 1 2 3layer1 4 8 12 162 4 8 12 163 04 8 16- emphasis:0 "none"1 "50/15 microsecs"2 "reserved" must not be used !3 "CCITT J 17"播放时间计算公式：MP3文件一帧的播放时间为26ms。

播放时间（ms）= 帧数× 26帧数= 帧文件大小/ 帧长度帧长度：. mpeg1.0layer1:(48000 × bitrate) / sampling_freq + paddinglayer2 & 3:(144000 × bitrate) / sampling_freq + padding. mpeg2.0layer1：(24000 × bitrate) / sampling_freq + paddinglayer2 & 3：(72000 × bitrate) / sampling_freq + paddingMP3为mpeg1.0 layer3，所以以上的取值都取mpeg1.0 layer3 Delphi定义的帧结构：_MP3Header = recordsync: string;version: string;lay: string;error_protection: string;bitrate_index: Word;sampling_freq: Word;padding: Byte;extension: string;mode: string;mode_ext: string;copyright: string;original: string;emphasis: string;end;_MPEG1_LAY_3 = (// 32kbps 1MPEG1_LAY_3_BITRATE_32 = 1,// 40kbps 2MPEG1_LAY_3_BITRATE_40,// 48kbps 3MPEG1_LAY_3_BITRATE_48,// 56kbps 4MPEG1_LAY_3_BITRATE_56,// 64kbps 5MPEG1_LAY_3_BITRATE_64,// 80kbps 6MPEG1_LAY_3_BITRATE_80,// 96kbps 7MPEG1_LAY_3_BITRATE_96,// 112kbps 8MPEG1_LAY_3_BITRATE_112,// 128kbps 9MPEG1_LAY_3_BITRATE_128,// 160kbps 10MPEG1_LAY_3_BITRATE_160,// 192kbps 11MPEG1_LAY_3_BITRATE_192,// 224kbps 12MPEG1_LAY_3_BITRATE_224,// 256kbps 13MPEG1_LAY_3_BITRATE_256,// 320kbps 14MPEG1_LAY_3_BITRATE_320);实现代码：function TActiveFormX.headCheck(fileName: string; bTagV1Exist: Boolean;cTagV2Length, cBitRate, cPlayTime: Cardinal): Boolean;varfsMP3: TFileStream;header_Info: _MP3Header;strHeader: array [0..3] of Byte;fileSize, frameLength, frameNum, fileTime: Cardinal;beginresult := False;fsMP3 := TFileStream.Create(fileName, fmOpenRead);tryfsMP3.Seek(cTagV2Length, soBeginning);fsMP3.Read(strHeader, SizeOf(strHeader));// (同步信号)sync,version,lay,error protection检查if ((strHeader[0] and $FF) <> $FF) or ((strHeader[1] and $FB) <> $FB) thenbeginShowMessage('sync,version,lay,error protection is error! sync,version,lay,error protection: ' + IntToStr(strHeader[0]) + IntToStr(strHeader[1]));Exit;end;// bitrate检查if ((strHeader[2] and $F0) = $00) or ((strHeader[2] and $F0) = $F0) thenbeginShowMessage('bitrate检查error! bitrate:' + IntToStr((strHeader[2] and $F0)));end;// sampling_freq检查if ((strHeader[2] shr 2) and $03) = $03 thenbeginShowMessage('sampling_freq检查error! sampling_freq:' + IntToStr((strHeader[2] shr 2) and $03));Exit;end;// 取bitrate_indexcase _MPEG1_LAY_3((strHeader[2] shr 4) and $0F) of// 32kbps 1MPEG1_LAY_3_BITRATE_32: header_Info.bitrate_index := 32;// 40kbps 2MPEG1_LAY_3_BITRATE_40: header_Info.bitrate_index := 40;// 48kbps 3MPEG1_LAY_3_BITRATE_48: header_Info.bitrate_index := 48;// 56kbps 4MPEG1_LAY_3_BITRATE_56: header_Info.bitrate_index := 56;// 64kbps 5MPEG1_LAY_3_BITRATE_64: header_Info.bitrate_index := 64;// 80kbps 6MPEG1_LAY_3_BITRATE_80: header_Info.bitrate_index := 80;// 96kbps 7MPEG1_LAY_3_BITRATE_96: header_Info.bitrate_index := 96;// 112kbps 8MPEG1_LAY_3_BITRATE_112: header_Info.bitrate_index := 112;// 128kbps 9MPEG1_LAY_3_BITRATE_128: header_Info.bitrate_index := 128;// 160kbps 10MPEG1_LAY_3_BITRATE_160: header_Info.bitrate_index := 160;// 192kbps 11MPEG1_LAY_3_BITRATE_192: header_Info.bitrate_index := 192;// 224kbps 12MPEG1_LAY_3_BITRATE_224: header_Info.bitrate_index := 224;// 256kbps 13MPEG1_LAY_3_BITRATE_256: header_Info.bitrate_index := 256;// 320kbps 14MPEG1_LAY_3_BITRATE_320: header_Info.bitrate_index := 320;elsebeginShowMessage('取bitrate_index error! bitrate_index:' + IntToStr((strHeader[2] shr 4) and $0F));Exit;end;// 判断此mp3文件是否为cBitRate kbps以上文件if header_Info.bitrate_index < cBitRate thenbeginShowMessage('判断此mp3文件是否为' + IntToStr(cBitRate) + 'kbps以上文件error! bitrate_index:' + IntToStr(header_Info.bitrate_index));Exit;end;// 取sampling_freqif ((strHeader[2] shr 2) and $03) = $00 thenheader_Info.sampling_freq := 44100else if ((strHeader[2] shr 2) and $03) = $01 thenheader_Info.sampling_freq := 48000else if ((strHeader[2] shr 2) and $03) = $02 thenheader_Info.sampling_freq := 32000elsebeginShowMessage('取sampling_freq error! sampling_freq:' + IntToStr((strHeader[2] shr 2) and $03));Exit;end;// 获取paddingif ((strHeader[2] shr 1) and $01) = $00 thenheader_Info.padding := 0elseheader_Info.padding := 1;// 获得MP3播放时间fileSize := fsMP3.Size - cTagV2Length;if bTagV1Exist thenfileSize := fileSize - 128;frameLength := (144000 * header_Info.bitrate_index) div header_Info.sampling_freq + header_Info.padding;frameNum := fileSize div frameLength;fileTime := frameNum * 26 div 1000;// 判断此mp3音频的播放时间是否为cPlayTime分以上文件if fileTime < cPlayTime thenbeginShowMessage('判断此mp3音频的播放时间是否为' + IntToStr(cPlayTime) + '秒以上文件error! 音频的播放时间:' + IntToStr(fileTime));Exit;end;// 判断mp3音频采样率是否在44KHZ以上if header_Info.sampling_freq < 44000 thenShowMessage('判断mp3音频采样率是否在44KHZ以上error! 音频采样率:' + IntToStr(header_Info.sampling_freq));Exit;end;result := True;finallyFreeAndNil(fsMP3);end;end;。

合集下载

Delphi字号修改之二

Delphi字号修改之二

Delphi 字号修改之二声明个人可以自由转载本文，不过应保持原文的完整性，并通知我；商业转载先请和我联系。

本文没有任何明确或不明确地提示说本文完全正确，阅读和使用本文的内容是您自己的选择，本人不负任何责任。

如果您发现本文有错漏的地方，请您给我指出；如果有什么不理解的，请您给我提出。

意见、建议和提出的问题最好写在我的主页 的留言版上。

Hint在上次的 Delphi 消息框字体问题之后，又有汉化人提出 Hint 字体修正的问题，在说这一个问题之前，我们要再熟悉一下微软推荐的字体设置方法：nHeight = -MulDiv(PointSize, GetDeviceCaps(hDC,LOGPIXELSY), 72);大家也看到了，最后一个参数是 72 ，也就是十六进制的0x48 ，而且它是一个常数，所以这样的语句编译到可执行文件中的时候就会出现一个明显的 push 00000048 的语句，而且，因为72 是最后一个参数，所以这个 push 语句是这一行程序的第一个push 语句，这样，上次我们介绍的修改消息框的方法就可以用push 00000048 作为辅助判断方法，据大宇说，用这种方法判断，迄今为止是百发百中的。

:)而这一次的 Hint 的问题，因为在反编译出来的文件中找不到“push 00000008\n\n* Reference To: kernel32.MulDiv,”或上面几行没有“push 00000048”，所以无法找到需要修改的地方，我通过查找代码发现，对于 Hint 的字体设置，其中并不是直接压入 8 ，也就是说没有明显的 push 00000008 ，但是仍然是可以修改的。

以前 ChinEase 曾问过 iProtect SoHo 的字体问题，当时我并不熟悉，以为主界面是使用了枚举的方式设置的字体，觉得不能解决，不过现在才发现其实其主界面字体是可以自己设置的，所以所剩的字体问题仍然是 Hint 的问题，在这里就以 iProtect SoHo 为例说一下。

Delphi开发之DirectShow开发介绍

Delphi开发之DirectShow开发介绍

第一部分：背景知识DirectShow是微软公司提供的一套在Windows平台上进行流媒体处理的开发包，与DirectX开发包一起发布。

它经过DirectX 6.0中的DirectX Media发展而来，集成了DirectX家族中的其他成员（DirectDraw、DirectSound等），可以说是一位“集大成者”。

DirectShow能做些什么？ DirectShow为多媒体流的捕捉和回放提供了强有力的支持。

运用DirectShow，可以很方便地从支持WDM驱动模型的采集卡上捕获数据，并且进行相应的后期处理乃至存储到文件中。

它广泛地支持各种媒体格式，包括Asf、Mpeg、Avi、Dv、Mp3、Wave等等，使得多媒体数据的回放变得轻而易举。

另外，DirectShow直接支持DVD的播放，视频的非线性编辑，以及与数字摄像机的数据交换。

更值得一提的是，DirectShow提供的是一种开放式的开发环境，每个功能模块都采取COM组件方式，称为Filter，开发者也可以开发自己的功能Filter来扩展DirectShow的应用。

按照功能来划分，Filter 分为3类：Source Filter, Transform Filter, Rendering Filter。

前者负责获取数据，数据源可以是文件、数字摄像机等，然后将数据往下传输；中间者负责数据的格式转换，比如数据流的分离与合成、编码解码等，然后把数据继续往下传输；后者负责数据的去向——给声卡、显卡进行播放或者输出到文件存储。

第二部分核心技术DirectShow的开发实际就是Filter的开发，DirectShow自身提供了，下面就是Filter概述。

1、DirectShow的 FilterFilter 一般分为下面几种类型。

（1）源过滤器（source filter）：源过滤器引入数据到过滤器图表中，数据来源可以是文件、网络、照相机等。

不同的源过滤器处理不同类型的数据源。

常见的文件扩展名

常见的文件扩展名

精品文档1ISO ：镜像文件定义：所谓镜像文件其实和ZIP压缩包类似，它将特定的一系列文件按照一定的格式制作成单一的文件，以方便用户下载和使用，例如一个测试版的操作系统、游戏等。

镜像文件不仅具有ZIP压缩包的“合成〃功能，它最重要的特点是可以被特定的软件识别并可直接刻录到光盘上。

其实通常意义上的镜像文件可以再扩展一下，在镜像文件中可以包含更多的信息。

比如说系统文件、引导文件、分区表信息等，这样镜像文件就可以包含一个分区甚至是一块硬盘的所有信息。

使用这类镜像文件的经典软件就是Ghost，它同样具备刻录功能，不过它的刻录仅仅是将镜像文件本身保存在光盘上，而通常意义上的刻录软件都可以直接将支持的镜像文件所包含的内容刻录到光盘上。

镜像文件的使用方法[1][2][镜像文件是无法直接使用的，需要利用一些虚拟光驱工具进行解压后才能使用。

虚拟光驱的原理跟物理光驱一样，比如说你买了一张正版碟，那么把游戏碟加入物理光驱你就能顺利进行游戏，而虚拟光驱中需要加入的是镜像文件（iso文件，相当于游戏光盘），当你装载完虚拟光驱以后，你的电脑里面多了一个光驱，那就是虚拟光驱。

在桌面上双击虚拟光驱的快捷方式，发现桌面的右下角多了一个图标，通过右击图标可以进行操作，接着载入镜像文件，以便完成游戏的安装，如果安装完以后那么就可以再载入它要求的镜像进入游戏。

Daemon Tools是一款不错的虚拟光驱软件，利用它就可以直接将ISO 文件虚拟为光盘文件使用。

Daemon Tools的安装很简单，在完成文件的复制工作后，系统会提示你安装一个虚拟光驱的新硬件，需要重新启动来完成软硬件的安装。

Daemon Tools能自动设置成为自启动，只在任务栏上生成一个小图标，用鼠标左键点击，进入菜单选择ISO文件的位置，即可将ISO文件虚拟成光盘。

其实还有很多解压镜像文件的软件，如精灵虚拟光驱，powerISO等等！常见的镜像文件格式主要有.iso、.bin、.nrg、.vcd、.cif、.fcd、.img、.ccd、.c2d、.dfi、.tao、.dao 和.cue 等。

delphi 制作 Realplay播放器

delphi 制作 Realplay播放器

Realplay播放器DELPHI前期版本，本身并没有播放REALPLAY文件的功能，但是它提供了一个activeX插件，可以播放REALPLAY文件，刚安装的DELPHI的ACTIVE标签页上并没有这个插件，需要用户自已安装，本实例将详细讲解安装过程。

步骤：1）启动DELPHI，打开一个新的标准工程。

单击“component”菜单 import activex control…,出现如图所示对话框:2)选择如图所示realplayer activex control library [version1.0]单击install按钮,出现对话框单击OK继续即可.最后可以ACTIVE X标签页上可以找到REAL图标。

其主要属性有：autostart:自动开始source:数据源，即其它多媒体的文件名。

十六.列表框与组合框1.列表框LISTBOX列表框表面上与编辑框很相似,但不同是在列表框内容可以放很多选项每一个选项都有自已的单击事件.当列表框不能同时显示所有选项时,将自动加上一个垂直的滚动条,使用户可以上下滚动列表框,以查阅所有的选项.常用的属性有:ITEMS 以行为单位的,列表框中选项的集合,组合框也有.ITEMSINDEX选项的索引值.SORTED 决定选项是否排序COLUMNS 决定列表框的列数,列表框也有.MULTISELECT是否可以选择多项,列表框独有.SELCOUNT表示被选中项的数目,只读,列表框独有SELECTED 用来设置或返回某选项是否被选中.例如: LISTBOX1.ITEMS.ADD(‘李小明’);LISTBOX1.ITEMS.DELETE(5)删除第6行.LISTBOX1.ITEMS.INSERT(3,’王二’);LISTBOX1.ITEMS.MOVE(2,4);例：制作一个查看留音板procedure TForm1.ListBox1Click(Sender: TObject);beginif listbox1.ItemIndex=0 thenbeginrealaudio1.Source:='G:\歌曲\小薇.mp3';realaudio1.AutoStart:=true;end;if listbox1.ItemIndex=1 thenbeginrealaudio1.Source:='G:\歌曲\爱你十分泪七分.mp3';realaudio1.AutoStart:=true;end;if listbox1.ItemIndex=2 thenbeginrealaudio1.Source:='G:\歌曲\别说我的眼泪你无所谓.mp3';realaudio1.AutoStart:=true;end;if listbox1.ItemIndex=3 thenbeginrealaudio1.Source:='G:\歌曲\当你孤单你会想起谁.mp3';realaudio1.AutoStart:=true;end;if listbox1.ItemIndex=4 thenbeginrealaudio1.height:=300;realaudio1.Source:='G:\电影\新蜀山ssz01.rm';realaudio1.AutoStart:=true;end;end; end;。