关于读取VQF文件的信息！！(150分)

谁知道呀？请告诉我！！求求各位了！！：）

给个 Email 地址吧，我发给你。<br><br>一.安装<br>&nbsp; 不需要安装，使用这个单元时，decoder.dll 必须在 windows system 目录中，否则返回一个错误。<br>&nbsp; 重要说明：如果不能发现 dll 文件，程序能够继续，但没有声音！<br><br>二.单元<br>&nbsp; 1.什么是Vqf<br>&nbsp; &nbsp; Vqf 是一种比MP3压缩率更好、音质更好的压缩方式。一个例子：<br>&nbsp; 一个很好音质的vqf文件，3分钟大约3.5mb.<br>&nbsp; &nbsp; 2.怎样工作<br>&nbsp; &nbsp; 仅仅增加这个单元到你的工程。然后你能使用它的函数播放 vqf 文件。<br>&nbsp; &nbsp; 你也能从vqf文件获得信息：作者、注释、标题、比特/秒、帧、时间以及其他。<br>&nbsp; &nbsp; 怎样使用这个单元，请打开单元读注释和声明，它的使用非常简单。<br>&nbsp; 3.必要条件<br>&nbsp; &nbsp; windows 32位（Windows 95,98,NT 等等）<br>&nbsp; &nbsp; Vqf.Pas (单元)<br>&nbsp; &nbsp; Vqf.Dll 和 TwinVq2.CDB (包含)<br>&nbsp; &nbsp; 说明：这个单元不是控件，你能复制到 delphi 目录下的 lib 目录中，不用安装它。<br>三.声明<br>&nbsp; &nbsp;提供这些 类型 , 函数和子程序.<br>类型：<br>&nbsp; &nbsp; TVqfInfo - 录音函数和程序使用信息<br>&nbsp; &nbsp; Vqfstruc - 播放录音函数和程序必需<br>函数和子程序<br>Interface 声明:<br>procedure PlayVqfFileApi(Filename:String;Handle:integer);<br>procedure DllDecoderPause; &nbsp;暂停<br>procedure DllDecoderRestart; &nbsp;继续(暂停时使用)<br>function VqfPlaying:Bool;<br>function PlayVqf(Filename:string;WindowHandle:integer):string;<br>function TitleVqf(FileN:string):string;<br>function GetFileInfoVqf(filename:string):vqfinfo;<br>function CurrentTime(Filename:string):String;<br>function MaxTime(FileName:string):string;<br>注意：看演示学习更多的函数和子程序<br>

ifbn@21cn.com<br>多谢了！！[]<br>其它各式的，如果有的话，请也给我发来！谢谢了！！[]

信件已经发出，请接收。

jams_classmate@263.net<br>老兄，我也要，多谢!

To:jamstina<br>信件已经发出。

大哥，给我发的是zip坏了，打不开！！请用rar再给我发一回行吗？？[]

to:ifbn <br>信件已经发出。

有关于wma的吗？？

调用WinAmp带的WMA解码的DLL吧。

不对，我要的是向读取mp3的tag一样读取vqf的方法！！vqf的信息是如何定义的？？

devecom@163.com &nbsp;谢谢

应该是用 function GetFileInfoVqf(filename:string):vqfinfo;<br>这个函数吧。

请举个具体的实例，谢谢！！[]