Mp3'leri çalma

o=NEWOBJECT("_soundplayer","c:\program files\microsoft visual foxpro 9\ffc\_multimedia.vcx")

o.cfilename ="\mp3\Rihanna - Umbrella.mp3"

o.opensound

lcfilename =getfile("mp3")

 

declare long ShellExecute in "shell32.dll" ;

    long hwnd, string lpszOp, ;

    string lpszFile, string lpszParams, ;

    string lpszDir, long nShowCmd

 

ShellExecute(0,'Open',m.lcFileName,0,0,0)

#Define BASSTRUE 1

#Define BASSFALSE 0

#Define BASS_ACTIVE_STOPPED 0

#Define BASS_ACTIVE_PLAYING 1

#Define BASS_ACTIVE_STALLED 2

#Define BASS_ACTIVE_PAUSED 3

 

Declare_bass()

 

tcFilename="Therion - The Rise Of Sodom And Gomorrah.mp3"

 

BASS_Init(-1, 44100, 0, _vfp.HWnd, 0)

lnStreamhandle = BASS_StreamCreateFile( BASSFALSE, Alltrim(tcFilename)+Chr(0), 0,0,0)

BASS_SetVolume(50) && 0,100

 

BASS_ChannelPlay(lnStreamhandle, BASSTRUE)

 

WAIT WINDOW "Aşağıdaki procedureler durduruyor." AT 10,10

*BASS_ChannelIsActive(lnStreamhandle)=BASS_ACTIVE_STOPPED

BASS_ChannelStop(lnStreamhandle)

BASS_StreamFree(lnStreamhandle)

*?BASS_ChannelIsActive(lnStreamhandle)

Bass_Free()

 

 

Procedure Declare_bass

    Declare Integer BASS_Init In bass.Dll Long Device, Long Freq, Long Flags, Long win, Long CLSID

    Declare Long BASS_Free In bass.Dll

    Declare Long BASS_SetVolume In bass.Dll Long nVolume

    Declare Long BASS_GetVolume In bass.Dll

    Declare Long BASS_StreamCreateFile In bass.Dll Integer mem, String F, Long offset, Long Length, Long Flags

    Declare Long BASS_StreamFree In bass.Dll Long handle

    Declare Long BASS_ChannelPlay In bass.Dll Long handle, Long restart

    Declare Long BASS_ChannelStop In bass.Dll Long handle

    Declare Long BASS_ChannelPause In bass.Dll Long handle

    Declare Long BASS_ChannelIsActive In bass.Dll Long handle

    *Declare Long BASS_FLAC_StreamCreateFile In bassflac.Dll Long mem, String F, Long offset, Long Length, Long Flags

    *Declare Long BASS_WMA_StreamCreateFile In basswma.Dll Long mem, String F, Long offset, Long Length, Long Flags

    Declare Long BASS_ChannelGetLength In bass.Dll Long handle

    Declare Long BASS_ChannelSetPosition In bass.Dll Long handle, Long pos

    Declare Long BASS_ChannelGetPosition In bass.Dll Long handle

Endproc