hi,
this code doesn't work, but what's wrong ?
the output file still at 0Kb
Bass.BASS_Init(-1, 11025, BASSInit.BASS_DEVICE_DEFAULT, IntPtr.Zero, Nothing)
H = Bass.BASS_StreamCreateFile(File, 0, 0, BASSFlag.BASS_STREAM_DECODE Or BASSFlag.BASS_STREAM_PRESCAN)
LL = New EncoderLAME(H)
LL.OutputFile = IO.Path.ChangeExtension(File, ".mp3")
LL.LAME_Bitrate = EncoderLAME.BITRATE.kbps_128
LL.LAME_Mode = EncoderLAME.LAMEMode.Mono
LL.LAME_TargetSampleRate = EncoderLAME.SAMPLERATE.Hz_11025
LL.LAME_Quality = EncoderLAME.LAMEQuality.Q5
LL.EncoderDirectory = Application.StartupPath
Dim b As Boolean = LL.EncoderExists
LL.Start(Nothing, IntPtr.Zero, False)
Bass.BASS_ChannelPlay(H, False)
thank