wav转换mp3求助
用了一个国内的免费控件AudioConvert,需要注册。
还有比较老的mp3nec不注册只能转换几秒钟,虽然网上有注册码,但是找不到注册的入口呀
求助,有没有其他的代码控件之类的,不需要注册的。
就算我能注册,可软件发布出去总不能让用户也都注册吧
谢谢了
[解决办法]
这种软件多的很
[解决办法]
没有,暂时都不公开
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。几呼每台机都有的
[解决办法]
我也想知道
[解决办法]
你是在找软件吗?那建议你用格式工厂和魔影工厂,免费用的。百度一下能找到。