Media Player Yapımı Ve Delphi Tanıtımı Resimli
Yazan: Dumahen
Arkadaşlar şimdi düşündüm taşındım delphiyi iyi bilen arkadaşlar artık olayı çözmüşlerdir neyi nasıl yapacaklarını çok iyi biliyorlardır ve dolayısıyla burada yazacağımız ileri seviye dökümanlar onların zaten bildiği şeyler olduğundan pek işe yaramıyor. Yeni başlayanlar ise bunlar ne yaa hiç bişe anlamadım gibisinden şeyler söyleyip acilen sayfayı kapatıyolar boşu boşuna didinen biz oluyoruz neyse ana temamıza dönelim demek o ki basit dökümanlar yazarak insanları daha çok programlamaya teşvik etmek istiyorum onun için basit eğlenceli programlar nasıl yazılır bunlarla ilgili dökümanlar yazmaya karar verdim.
İlk Programla başlayalım Delphi ile Media Player nasıl yapılır. Ve sizinle bişe paylaşmak istiyorum benim delphideki ce c++ daki ilk programım Media Playerdır. Şimdi Eğer yeni başlıyorsanız bu işin sonunda çok eğleneceksiniz.
Hemen Başlayalım gerekli Alet edevatlar;
*Delphi 7 ( Ben delphi 7 ye göre anlatacam fakat diğer versiyonlarda da hemen hemen aynıdır. )
*Sabırla okuma yeteneği.
*Sabırla uygulama yeteneği.
*Olursa bir fincan çay veya nescafe
*Ve hızlı yazabilen parmaklar
Başlıyoooz
Delphiyi açıyoruz zaten açılışda bize Aşağıdaki görünümü verecekti bu görünüm bize şunu diyor " Abi boş bi proje açtım ben sen yorulma diye aha bunun üstünde çalış istediğin gibi... " Görüyoruz ki Form1 gibi bi yazı var işte o bizim Win. Arayüzümüz yani ana formumuz.
#RESIM
Yukardaki resimde kaba taslak delphiyi tanıttım
Component Palet bize kullanabileceğimiz componentleri gösterir component nedir ? hazır bileşenlerdir. ilerde kullandıkça anlayacaksınız zaten
Object inpector componentlerin özelliklerini gösteren ve değiştirmemizi sağlayan aynı zamanda eventlere ulaşmamıza yardımcı olan çok ama çok faydalı bi o kadar yararlı ve bi o kadar da sevecen delphideki en yakın dostumuzdur
neyse başlayalım şimdi ufaktan.
Önce Görünümümüzü Oluşturalım.
Component Platteki System sekmesinden MediaPlayer( Mplayer ) bileşeninimizi bir kez tıklıyoruz ve sonra form1 üzerinde herhangi bir yeri tıklayarak formumuza dahil ediyoruz.( Resimleri aşağıdaki gibidir. )
#RESIM
#RESIM
Şimdi ise media playerımızın çalacağı şarkımızın programa gösterilmesi olayını halledelim Component paletin standart sekmesinden button yerleştiriyoruz formumuza ve daha sonra caption ını object inspector dan değiştiriyoruz mesela aç olarak değiştirebiliriz.
#RESIM
Ve bu butonun gerekli işlemi yapması için opendialog coponentimizi component paletindeki dialogs sekmesinden formumuza yerleştirmeliyiz diaglog sekmesine erişmek için copm. paletin sağ üst köşesindeki sağ ve sol ok butonlarını kullanabiliriz.
#RESIM
şimdik gelelim kodlamaya aslında yapacak fazla bişeyimiz kalmadı Aç captionlu butonumuzu çift tıklıyoruz ve aşağıdaki kodları olduğu gibi yazıyoruz.
////////////////////////////////////////////////////
if OpenDialog1.Execute then
begin
MediaPlayer1.Close;
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
//////////////////////////////////////////////////
#RESIM
Programımız Bitti. Evet ufak ve basit bişe olacağını söylemiştim. Şimdi yapmamız gereken file menüsünden kaynak kodlarımızı kaydetmek save all seçeneğini kullanarak bütün kaynak kodlarımızı istediğimiz bir yere kaydediyoruz bütün dosyaları aynı klasöre kopyalamanız sizin için daha sağlıklı olacaktır aksi takdirde ilerde psikolojiniz bozulabilir kodlarımızı kaydettikten sonra project menüsünden compile ve build project i tıklıyoruz ve delphiden ayrılıp kodları kaydettiğimiz klasöre gidiyor aa o da ne orda Project1.exe diye bi dosya var işte o bizim programımız hemen çift tıklamak suretiyle çalıştırıyoruz aç butonumuzu tıklıyoruz orda herhangi bir film mp3 wav artık önümüze ne gelirse onu bulup aç diyoruz o da ne bi anda çalmaya veya oynamaya başlamış işte biz buyuz bakın ne kadarda kolaymış program yazmak şimdi yapmanız gereken tek şey cigicigi Programlama bölümünü karıştırmak delphi ile ilgili daha fazla kod bulup bu ufak programımızı geliştirmek artık neyin nasıl yapılacağını birer örnekle gördünüz öğrendiniz geri çorap söküğü gibi gelecektir. Hadi Hepinize Kolay gelsin