PureBasic

Code : Tout sélectionner

Private _waveWriter As WaveWriter = Nothing ' make it global, so that the GC can not remove it
Private _myRecProc As RECORDPROC
Private _recHandle As Integer = 0
...
' start recording
_myRecProc = New RECORDPROC(AddressOf MyRecording)
_recHandle = Bass.BASS_RecordStart(44100, 2, 
                  BASSFlag.BASS_RECORD_PAUSE Or BASSFlag.BASS_SAMPLE_FLOAT, _myRecProc, IntPtr.Zero)
' create a WaveWriter using the _recHandle to set the freq. and channels, but write the wave at 24-bit
_waveWriter = New WaveWriter("test.wav", _recHandle, 24, True)
Bass.BASS_ChannelPlay(_recHandle, False)
...
' when finished recording call this!
If Not (_waveWriter Is Nothing) Then
  ' finilize the wave file!
  _waveWriter.Close()
End If
...
' the recording callback
Private Function MyRecording(handle As Integer, buffer As IntPtr, length As Integer, user As IntPtr) As Boolean
  ' we will get float sample data here
  ' so make sure the _waveWriter.OrigResolution property is set to 32
  ' this was automatically done, since we started recording with BASSFlag.BASS_SAMPLE_FLOAT
  _waveWriter.Write(buffer, length)
  Return True ' always continue recording
End Function

Code : Tout sélectionner

Procedure.l Son_EnregistrementCallback_enreg(Channel.l, *buffer, length.f, user.f)
  
  Protected Result.l
  
  Result = BASS_Encode_IsActive(Channel); //  <> 0 continue recording if encoder is live
  
  BASS_Encode_Write(Channel.l,*buffer,length.f)
  
  ProcedureReturn Result
  
EndProcedure

Procedure Son_enregistrer()
  
  Protected NomFichier.s
  Protected Retour
   
  NomFichier = "C:\Users\user\Documents\test.ogg"
  
   Retour = BASS_RecordInit(gParametres\Dispositif_sonore)
   If Retour = 0
     Ajouter_au_log ("Bass: choix dispositif enregistrement : " + BASS_ErrorGetCode())
     BASS_RecordFree()
     ProcedureReturn #False
   EndIf
   
   Retour = BASS_RecordSetDevice(gParametres\Dispositif_sonore)
   If Retour = 0
     Ajouter_au_log ("Bass: choix dispositif enregistrement : " + BASS_ErrorGetCode())
     ProcedureReturn #False
   EndIf
   
   gParametres\Channel_enreg = BASS_RecordStart (48000, 2, #BASS_RECORD_PAUSE | #BASS_SAMPLE_FLOAT, @Son_EnregistrementCallback_enreg(), #Null);)
   
   If gParametres\Channel_enreg = 0
     Ajouter_au_log ("Bass : enregistrement erreur : " + BASS_ErrorGetCode())
     ProcedureReturn #False
   Else
     Ajouter_au_log ("Bass : enregistrement démarré.")
   EndIf  
   
  Protected Options.s
  Options = StringToANSI("--bitrate 192")
  
  gParametres\HENCODE_encoder_enreg = BASS_Encode_Ogg_StartFile(gParametres\Channel_enreg, @options, #BASS_UNICODE | #BASS_ENCODE_AUTOFREE, @NomFichier); // setup the encoder
 
  If gParametres\HENCODE_encoder_enreg = 0
    Ajouter_au_log ("Bass : erreur de l'encodeur ogg : " + BASS_ErrorGetCode())
    ProcedureReturn #False
  Else
    Ajouter_au_log ("Encodeur OGG Bass fonctionne. ("+ Str(gParametres\HENCODE_encoder_enreg) + ")")
  EndIf
     
   ;   
;     
;   EndIf
;   
   BASS_ChannelPlay(gParametres\Channel_enreg, 0)
;   BASS_Encode_SetNotify(gParametres\HENCODE_encoder, @Son_EncoderNotify(), 0)
  
EndProcedure