PureBasic Forums - English

Code: Select all

;/ A little example of using DMO Audio FX in a FilterGraph
;/ By Esteban1
;/ 08-18-2005

#CLSCTX_INPROC_SERVER  = $1
;     #INFINITE = $FFFFFFFF

Structure CAUUID ; this structure is used to retrieve property pages collection
  cElems.l ; here goes the number of property pages
  *pElems.GUID[10] ; and here is where all the collection is stored
EndStructure


CoInitialize_(0)
If CoCreateInstance_(?CLSID_FilterGraph, #Null,#CLSCTX_INPROC_SERVER,?IID_IGraphBuilder,@GraphBuilder.IGraphBuilder)=0  ; First we create a FilterGraph object
  GraphBuilder\QueryInterface(?IID_IMediaControl,@MediaControl.IMediaControl) ; then we get the MediaControl interface
  GraphBuilder\QueryInterface(?IID_IMediaEventEx, @MediaEvents.IMediaEventEx) ; and the MediaEvent interface
  GraphBuilder\Release()
  
  If CoCreateInstance_(?CLSID_DMOWrapperFilter, #Null, #CLSCTX_INPROC_SERVER,?IID_IBaseFilter,@DMOFilter.IBaseFilter)=0 ; Create a DMOWrapperFilter object
    DMOFilter\QueryInterface(?IID_IDMOWrapperFilter,@DMOWrapperFilter.IDMOWrapperFilter) ; get the Wrapper interface
    ; Here you can put the CLSID corresponding to the DMO Filter you want
    ; I choose CLSID_Flanger for example, but you can put CLSID_Chorus, CLSID_Compressor, CLSID_Distortion,
    ; CLSID_Echo, CLSID_Flanger, CLSID_Gargler, CLSID_I3DL2Reverb, CLSID_ParamEq and CLSID_WavesReberv. It's up to you!
    DMOWrapperFilter\init(?CLSID_Flanger,?DMOCATEGORY_AUDIO_EFFECT) ; and asign the DMO Filter we want
    DMOWrapperFilter\Release();
    GraphBuilder\AddFilter(DMOFilter, @"DMOFilter") ; and of course, add it to the FilterGraph
    DMOFilter\Release()
  EndIf
  
  
  wav.s= OpenFileRequester("Please choose WAV file", "","Audio files | *.wav; *.wma", 0 ) ; self explained
  If wav.s<>""
    Dim MyFile.w(Len(wav))
    MultiByteToWideChar_(#CP_ACP, 0, wav, -1, MyFile(), Len(wav)) ; just convert from ansi to widechar
    MediaControl\RenderFile(PeekS(@myfile(),#PB_Unicode)) ; and let the FilterGraph do the magic! (intelligent connect)
    MediaControl\Run() ; play it
    
    ; If you want to modify the properties of the effect...
    If DMOFilter\QueryInterface(?IID_ISpecifyPropertyPages,@SpecifyProperty.ISpecifyPropertyPages)=0 ; get the Specify Property Pages interface
      SpecifyProperty\GetPages(@CAUUID.CAUUID) ; retrieve Property Pages (DMO has only one per filter)
      If CAUUID\cElems > 0  ; if there are any Property Pages
        title.s="PureBasic DMO Effects" ; let's set the title of the window
        Dim title.w(Len(title))
        MultiByteToWideChar_(#CP_ACP, 0, title, -1, title(), Len(title))
        OleCreatePropertyFrame_(GetDesktopWindow_(), 100, 100,@title(), 1, @DMOFilter, CAUUID\cElems,CAUUID\pElems, 0, 0, #Null ) ; and show it
      EndIf
      SpecifyProperty\Release()
    EndIf
    
    Repeat ; now we must check for the events
      MediaEvents\GetEvent(@EventCode, @Param1, @Param2,0) ; self explained too
      Delay(10)
      MediaEvents\FreeEventParams(EventCode, Param1, lParam2)
    Until EventCode=1 ; repeat until the audio finish
    
    MediaControl\Stop()
  EndIf
  MediaControl\Release() ; and free resources
  MediaEvents\Release()
EndIf

CoUninitialize_()

DataSection
  CLSID_FilterGraph:
  Data.l $E436EBB3
  Data.w $524F,$11CE
  Data.b $9F,$53,$00,$20,$AF,$0B,$A7,$70
  IID_IGraphBuilder:
  Data.l $56A868A9
  Data.w $0AD4,$11CE
  Data.b $B0,$3A,$00,$20,$AF,$0B,$A7,$70
  CLSID_Chorus:
  Data.l $EFE6629C
  Data.w $81F7,$4281
  Data.b $BD,$91,$C9,$D6,$4,$A9,$5A,$F6
  CLSID_Compressor:
  Data.l $EF011F79
  Data.w $4000,$406D
  Data.b $87,$AF,$BF,$FB,$3F,$C3,$9D,$57
  CLSID_Distortion:
  Data.l $EF114C90
  Data.w $CD1D,$484E
  Data.b $96,$E5,$9,$CF,$AF,$91,$2A,$21
  CLSID_Echo:
  Data.l $EF3E932C
  Data.w $D40B,$4F51
  Data.b $8C,$CF,$3F,$98,$F1,$B2,$9D,$5D
  CLSID_Flanger:
  Data.l $EFCA3D92
  Data.w $DFD8,$4672
  Data.b $A6,$3,$74,$20,$89,$4B,$AD,$98
  CLSID_Gargler:
  Data.l $DAFD8210
  Data.w $5711,$4B91
  Data.b $9F,$E3,$F7,$5B,$7A,$E2,$79,$BF
  CLSID_I3DL2Reverb:
  Data.l $EF985E71
  Data.w $D5C7,$42D4
  Data.b $BA,$4D,$2D,$7,$3E,$2E,$96,$F4
  CLSID_ParamEq:
  Data.l $120CED89
  Data.w $3BF4,$4173
  Data.b $A1,$32,$3C,$B4,$6,$CF,$32,$31
  CLSID_WavesReberv:
  Data.l $87FC0268
  Data.w $9A55,$4360
  Data.b $95,$AA,$0,$4A,$1D,$9D,$E2,$6C
  CLSID_DMOWrapperFilter:
  Data.l $94297043
  Data.w $BD82,$4DFD
  Data.b $B0,$DE,$81,$77,$73,$9C,$6D,$20
  IID_IDMOWrapperFilter:
  Data.l $52D6F586
  Data.w $9F0F,$4824
  Data.b $8F,$C8,$E3,$2C,$A0,$49,$30,$C2
  DMOCATEGORY_AUDIO_EFFECT:
  Data.l $D990EE14
  Data.w $776C,$4723
  Data.b $BE,$46,$3D,$A2,$F5,$6F,$10,$B9
  IID_IBaseFilter:
  Data.l $56A86895
  Data.w $0AD4,$11CE
  Data.b $B0,$3A,$00,$20,$AF,$0B,$A7,$70
  IID_IMediaControl:
  Data.l $56A868B1
  Data.w $0AD4,$11CE
  Data.b $B0,$3A,$00,$20,$AF,$0B,$A7,$70
  IID_IMediaEventEx:
  Data.l $56A868C0
  Data.w $0AD4,$11CE
  Data.b $B0,$3A,$00,$20,$AF,$0B,$A7,$70
  IID_ISpecifyPropertyPages:
  Data.l $B196B28B
  Data.w $BAB4,$101A
  Data.b $B6,$9C,$0,$AA,$0,$34,$1D,$7
EndDataSection