读书人

wav转换mp3

发布时间: 2012-01-08 22:48:50 作者: rapoo

wav转换mp3求助
用了一个国内的免费控件AudioConvert,需要注册。
还有比较老的mp3nec不注册只能转换几秒钟,虽然网上有注册码,但是找不到注册的入口呀

求助,有没有其他的代码控件之类的,不需要注册的。

就算我能注册,可软件发布出去总不能让用户也都注册吧

谢谢了

[解决办法]
这种软件多的很
[解决办法]
没有,暂时都不公开

探讨
引用:
这种软件多的很


不是要软件,要控件,能开发到程序里的

[解决办法]
到站下一控件,能的
http://www.multimediasoft.com/amp3dj/



my blog
http://www.multimediasoft.com/amp3dj/
[解决办法]
AudioConvert,我也在用,需要注册,怎么注册啊~~~~同问同问~~~~
[解决办法]
都免费了,人家开发人员还咋挣钱呀
可以借助第3方软件,程序里调用它,把它集成到界面里,自动完成转换
[解决办法]
试试用暴风转码这个东西
[解决办法]
这有MP3算法的源码,你可以参考一下
http://www.pudn.com/downloads49/sourcecode/multimedia/mpeg/detail166499.html
[解决办法]
写过,丢了,抱歉,路过
[解决办法]
我这有,要的话 我发你
[解决办法]
好像可以用API实现,不需要用第三方DLL实现。记得ACTIVEVB.de有这方面的Source Code.
[解决办法]
VB code
Option ExplicitPublic Type WAV_Hdr    RIFF                As String * 4    filesize            As Long    WAVEfmt             As String * 8    fmtlen              As Long    formattag           As Integer    channels            As Integer    sps                 As Long    bpsec               As Long    bla                 As Integer    bps                 As Integer    data                As String * 4    datalen             As LongEnd TypePrivate Type mmioinfo   dwFlags              As Long   fccIOProc            As Long   pIOProc              As Long   wErrorRet            As Long   htask                As Long   cchBuffer            As Long   pchBuffer            As String   pchNext              As String   pchEndRead           As String   pchEndWrite          As String   lBufOffset           As Long   lDiskOffset          As Long   adwInfo(4)           As Long   dwReserved1          As Long   dwReserved2          As Long   hmmio                As LongEnd TypePrivate Type MMCKINFO   ckid                 As Long   ckSize               As Long   fccType              As Long   dwDataOffset         As Long   dwFlags              As LongEnd TypePublic Type ChunkInfo    Start               As Long    length              As LongEnd TypePrivate Const MMIO_READ         As Long = &H0Private Const MMIO_FINDCHUNK    As Long = &H10Private Const MMIO_FINDRIFF     As Long = &H20Private Const SEEK_CUR          As Long = 1Private Declare Function mmioClose Lib "winmm.dll" ( _        ByVal hmmio As Long, _        ByVal uFlags As Long) As LongPrivate Declare Function mmioDescend Lib "winmm.dll" ( _        ByVal hmmio As Long, _        lpck As MMCKINFO, _        lpckParent As MMCKINFO, _        ByVal uFlags As Long) As LongPrivate Declare Function mmioDescendParent Lib "winmm.dll" _Alias "mmioDescend" ( _        ByVal hmmio As Long, _        lpck As MMCKINFO, _        ByVal X As Long, _        ByVal uFlags As Long) As LongPrivate Declare Function mmioOpen Lib "winmm.dll" _Alias "mmioOpenA" ( _        ByVal szFileName As String, _        lpmmioinfo As mmioinfo, _        ByVal dwOpenFlags As Long) As LongPrivate Declare Function mmioSeek Lib "winmm.dll" ( _        ByVal hmmio As Long, _        ByVal lOffset As Long, _        ByVal iOrigin As Long) As LongPrivate Declare Function mmioStringToFOURCC Lib "winmm.dll" _Alias "mmioStringToFOURCCA" ( _        ByVal sz As String, _        ByVal uFlags As Long) As LongPublic Function GetWavChunkPos( _    ByVal strFile As String, _    ByVal strChunk As String _) As ChunkInfo    Dim hMmioIn             As Long    Dim lR                  As Long    Dim mmckinfoParentIn    As MMCKINFO    Dim mmckinfoSubchunkIn  As MMCKINFO    Dim mmioinf             As mmioinfo    ' WAV für Lesezugriff öffnen    hMmioIn = mmioOpen(strFile, mmioinf, MMIO_READ)    If hMmioIn = 0 Then        Exit Function    End If    ' Auf Formatgültigkeit überprüfen    mmckinfoParentIn.fccType = mmioStringToFOURCC("WAVE", 0)    lR = mmioDescendParent(hMmioIn, mmckinfoParentIn, 0, MMIO_FINDRIFF)    If Not (lR = MMSYSERR_NOERROR) Then        mmioClose hMmioIn, 0       Exit Function    End If    ' gefragten Chunk suchen    mmckinfoSubchunkIn.ckid = mmioStringToFOURCC(strChunk, 0)    lR = mmioDescend(hMmioIn, mmckinfoSubchunkIn, mmckinfoParentIn, MMIO_FINDCHUNK)    If Not (lR = MMSYSERR_NOERROR) Then        mmioClose hMmioIn, 0        Exit Function    End If    ' Startposition und Länge des Chunks zurückgeben    GetWavChunkPos.Start = mmioSeek(hMmioIn, 0, SEEK_CUR)    GetWavChunkPos.length = mmckinfoSubchunkIn.ckSize    mmioClose hMmioIn, 0End Function 


[解决办法]
回复内容过长!
[解决办法]
用directshow可以转,只要系统中有正常的wav和mp3的filter。几呼每台机都有的
[解决办法]
我也想知道
[解决办法]
你是在找软件吗?那建议你用格式工厂和魔影工厂,免费用的。百度一下能找到。

读书人网 >VB

热点推荐