如何用vb提取音乐文件专辑封面

显示全部楼层 · 2013-8-4 19:41:37

我用的是vb6.0 ，不知道如何把音乐文件的专辑封面图片从音乐文件里提取出来然后显示出来呢？谢谢大家帮忙。

千问 · 2013-8-4 19:41:37

所谓“专辑封面”，其实就是AlbumArt，ID3V2中称APIC。不出意外的话，可以读文件ID3V2，下面的代码实现了。不过假定文件必须有专辑图，也就是APIC。窗体上放Command1，文件路径根据实际修改。Private Sub Command1_Click()
Dim DAT() As Byte
Dim sDAT() As Byte
Dim FileSize As Long '文件长度
Dim btnACPI As Long
Dim btnStart As Long
Dim btnExit As Long
btnACPI = 0: btnStart = 0: btnExit = 0