WriteData( #outfile, *pDstBuf,ash\cbDstLengthUsed)
move to the start of the input buffer any of the unused pcm dataĬopyMemory( *pSrcBuf +ash\cbSrcLengthUsed, *pSrcBuf,leftover) Leftover =ash\cbSrcLength -ash\cbSrcLengthUsed PrintN( "compressed total: " +StrU(total_bytes, #PB_Long) + " mp3: " +StrU(ash\cbDstLengthUsed, #PB_Long) + " pcm: " +StrU(ash\cbSrcLengthUsed, #PB_Long)) Res #ACM_STREAMCONVERTF_BLOCKALIGN | #ACM_STREAMCONVERTF_END) Total_bytes = 0 keep looping until we break or the eof is found on the input file While Eof( #infile) = 0
MP3D PUREBASIC DRIVER
Res #Null, 0, 0,ACM_STREAMOPENF_NONREALTIME)ĮndIf now let the driver decide how big the destination buffer should be based on the parameters of both input and output wfxĮndIf this would likely be a better place to allocate both the input and output buffers instead of the fixed size used at the top now set up the header to get ready to convertĮndIf here's a hack to skip over the usual 44 bytes in the wav header UseFile(#infile) do something here about the failure Goto quitĮndIf now try to open the input and output streams Res =acmFormatSuggest_( #ACM_FORMATSUGGESTF_WFORMATTAG) MP3wfxDst\wfx\nBlockAlign = 1 now let the driver try and find the best match for us MP3wfxDst\wfx\cbSize = #MPEGLAYER3_WFX_EXTRA_BYTES MP3wfxDst\wfx\nAvgBytesPerSec = 320000 / 8 MP3wfxDst\wfx\wFormatTag = #WAVE_FORMAT_MPEGLAYER3 WfxSrc\cbSize = 0 set the destination structure in this example we'll say it is going to be an mp3 with 2 channels, 44100hz sample rate and 128k bitrate WfxSrc\nAvgBytesPerSec =wfxSrc\nSamplesPerSec *wfxSrc\nBlockAlign PrintN( " build " +StrU( *acmver\build, #PB_Word))ĮndIf set the source structure we need to know ahead of time what the sample rate, bits per sample, number of channels and bit rate numbers are Total_bytes.l = 0 these buffer sizes are hard coded here, you need to pick appropriate onesĭwACMVer = acmGetVersion_() *acmver.ACMVERSION "ACM v" +StrU( *acmver\ver, #PB_Byte) + "." +StrU( *acmver\rev, #PB_Byte))
MP3D PUREBASIC DRIVERS
You should have received a copy of the GNU Lesser General Public License along with this library if not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA here's a msdn page that has lots of good acm related info and code If you find that you are unable to get this to work for bitrates higher than 56k, then it may be that there are some registry settings that are causing acm drivers to pick up the old restricted filter and not the new one installed along with windows media player 10 this one should be l3codecp.acm, but if it is l3codeca.acm then it is the 56k limited driver "msacm.l3acm"="l3codecp.acm" this one may not be necessary, but may just be cosmetic "l3codecp.acm"="Fraunhofer IIS MPEG Layer-3 Codec (professional)" PureBasic port by Rescator #MPEGLAYER3_ID_MPEG = 1 #WAVE_FORMAT_MPEGLAYER3 = $0055 #MPEGLAYER3_WFX_EXTRA_BYTES = 12 #ACM_FORMATSUGGESTF_WFORMATTAG = $00010000 #ACM_STREAMSIZEF_SOURCE = $00000000 #ACM_STREAMCONVERTF_BLOCKALIGN = $00000004 #ACM_STREAMCONVERTF_END = $00000020 Structure MPEGLAYER3WAVEFORMATĮnumeration #infile #outfile EndEnumeration See the GNU Lesser General Public License for more details.
This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. Original source : This library is free software you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation either version 2.1 of the License, or (at your option) any later version. Sélectionnez this is a minimal set of source coded needed to make use of the l3codecp.acm ACM filter driver that is installed along with windows media player 10 Copyright (C) 2005 Thomson, Inc.
0 kommentar(er)
