Konu: Mp3'leri çalma
program içinden müzik dosyalarını nasıl çaldırabilirim. Set bell to ve chr(7) ile olmadı. (winamp veya benzerlerinini kullanmadan).Teşekkürler
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Kodlama ve Komutlar » Mp3'leri çalma
program içinden müzik dosyalarını nasıl çaldırabilirim. Set bell to ve chr(7) ile olmadı. (winamp veya benzerlerinini kullanmadan).Teşekkürler
şu ana kadar ben de bilmiyordum. companent gallery'i biraz karıştırdım. çok basitmiş:
o=NEWOBJECT("_soundplayer","c:\program files\microsoft visual foxpro 9\ffc\_multimedia.vcx")
o.cfilename ="\mp3\Rihanna - Umbrella.mp3"
o.opensound
Metin bey bu örnek bende çalışmadı. Sizde çalıştı mı?
O bende de calismiyor. Boyle denesen:
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)
Şu adrestede bir örnek var :
Metin bey bu örnek bende çalışmadı. Sizde çalıştı mı?
evet. companent gallery'den sound player i sürükle bırak yaptım ve bu nesne oluştu. eğer vfp directory'si veya versiyonu farklıysa çalışmaz ancak bu kod.
O bende de calismiyor. Boyle denesen:
Visual Fox Prolcfilename =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)
o zaman winamp veya media player filan açılmaz mı? benimkinde ekrana hiçbir program çıkmadı ve tam kontrol bendeydi. çok güzel bir vcx yapmışlar. ses dosyası oynatmak için arayabileceğin herşey var içinde.
Metin,
Normalde makinede mp3'leri her ne caliyorsa onu kullaniyor. Ekrana acilan birsey yok cunku son parametre 0 (gosterme, 1-goster).
Bende metin beyin örneği çalışmıyor. Yani müzik çalmıyor. Çetin beyin örneğini denedim. Onda da winamp açılıyor, ekrana geliyor. ?
Bende metin beyin örneği çalışmıyor. Yani müzik çalmıyor. Çetin beyin örneğini denedim. Onda da winamp açılıyor, ekrana geliyor. ?
benimki hata mı veriyor? ne oluyor? çetin'inki bende de winamp yi ekrana getirdi malesef...
Bende winamp yok zaten oyle seylerle ilgilenmiyorum:) Dinlemek istiyorsa gormesinde sakinca yok. Seninkini denedim bipe benzer bir ses cikarip kesildi, ne oldugunu bilmiyorum.
Metin Bey hiç tepki vermiyor. Yani çalmıyor.
Metin,
Normalde makinede mp3'leri her ne caliyorsa onu kullaniyor. Ekrana acilan birsey yok cunku son parametre 0 (gosterme, 1-goster).
Defaul mp3 player Windows media player olduğu zaman ekranda birşey göstermeden çaldı ama başka playerları gösteriyor.
Metin beyin kodu bendede çalışmadı fakat arkasından şans eseri hata verdiren bir komut verdim, mp3 çalmaya başladı. Biraz uğraşmak lazım demekki.
o=Newobject("_soundplayer","_multimedia.vcx")
o.cfilename="C:\MP3\YULARA_1.MP3"
o.opensound()
WAIT""
Bu şekilde çalıyor
Bende winamp yok zaten oyle seylerle ilgilenmiyorum:) Dinlemek istiyorsa gormesinde sakinca yok. Seninkini denedim bipe benzer bir ses cikarip kesildi, ne oldugunu bilmiyorum.
müzikle mi winamp ile mi? müzik ruhun gıdasıdır...
ben programı bilmiyorum ama eğer bir eğitim veya tanıtım programı filansa sanırım ekrana winamp çıkmasını istemez. benim örnek neden çalışmadı bilmiyorum. vfp nin companent gallery'sindeki vcx sonuçta. demek ki bir bug'ı var. burdan o vcx'e güven olmayacağı çıkıyor.
neyse benim işim muhasebe türü olduğu için öyle birşeye ihtiyacım yok...
WMplayer oldukça detaya sahip, mp3 için bu kadarı yeterli. İnternet radyolarınada bağlanıyor.
oplayer=CREATEOBJECT("player")
oplayer.oleWMP.settings.autoStart=.f.
oplayer.oleWMP.settings.volume=100 && 0,100
oplayer.oleWMP.settings.balance=0 && -100,100
oplayer.oleWMP.settings.rate=1 && 0.1,999
*oplayer.oleWMP.url="http://radioparadise.steadyhost.com:8050"
oplayer.oleWMP.url="Therion - The Rise Of Sodom And Gomorrah.mp3"
oplayer.oleWMP.controls.play
*oplayer.oleWMP.controls.stop
*oplayer.oleWMP.controls.pause
*oplayer.oleWMP.close
Define Class player As Container
oleWMP = null
procedure init
this.oleWMP = CREATEOBJECT("WMPlayer.ocx")
ENDPROC
ENDDEFINE
Bass.dll Oldukça yetenekli. Kişisel kullanımlar için free.
http://www.un4seen.com/ dan indirebilirsiniz.
#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
Boşuna program ve kod aramışım. windows media player compenantını ekledim forma. tüm müzikleri çalabiliyorum.
foxman,
wmplayer oldukça kullanışlı.
Bir directory'deki tüm mp3'leri otomatik olarak playlist'e nasıl alabiliriz ?
fox4um » Kodlama ve Komutlar » Mp3'leri çalma