PureBasic Forums - English

Code: Select all

- Added: #PB_FTP_Debug flag for OpenFTP() to allow to get more info (in the console) about the connection.

Code: Select all

;Test of miniaudio duplex record and playback 
;records from default input to default output 

;download and save adjust path to suit for include 
;https://atomicwebserver.com/miniaudio_11_23.h

HeaderSection 
 
#include "E:\idle\miniaudio\miniaudio_11_23.h"; 

EndHeaderSection 

InitSound() 

ProcedureC data_callback(*Device,*Output,*Input,frameCount)
  Protected amount 
  If frameCount  
    
    !ma_device *pdevice = p_device; 
    !v_amount = v_framecount * ma_get_bytes_per_frame(pdevice->capture.format, pdevice->capture.channels);
    If amount <> 0  
      CopyMemory(*Input,*Output,amount) 
    EndIf
  EndIf 
EndProcedure 
 
Global pcb = @data_callback() ;need to reference the function or PB won't include it  

OpenConsole()

!ma_result result;
!ma_device_config deviceConfig;
!ma_device device;
 
!deviceConfig = ma_device_config_init(ma_device_type_duplex);
!deviceConfig.capture.pDeviceID  = NULL;
!deviceConfig.capture.format     = ma_format_s16;
!deviceConfig.capture.channels   = 2;
!deviceConfig.capture.shareMode  = ma_share_mode_shared;
!deviceConfig.playback.pDeviceID = NULL;
!deviceConfig.playback.format    = ma_format_s16;
!deviceConfig.playback.channels  = 2;
!deviceConfig.dataCallback       = &f_data_callback; 

!result = ma_device_init(NULL, &deviceConfig, &device);

!if (result != MA_SUCCESS) {
   MessageRequester("error","failed to config")  
   End 
!}

PrintN("start recording") 

!ma_device_start(&device);

PrintN("press enter to end") 
Input();

!ma_device_uninit(&device);