Ders-21 'MEDIA PLAYER' - Delphi- Zamansız Tartışma Platform

ares · 07-12-07, 17:20 Çevrimdışı

MEDIA PLAYER Media Player kontrolü windows tarafýndan desteklenen Multi Media islemlerini kullanima sokar. Companent Palet / System / Media Player

butonuna tiklanir.
Media Player elemani üzerindeki dügmelerin görevleri:

>> Play >> btPlay >> Çalmaya Baslar

>> Pouse >> btPouse >> Çalma veya Kaydetmeyi geçici olarak durdurur.

>> Stoop >> btStoop >> Çalma yada kaydetme olayini bitirir.

>> Next >> btNext >> Bir sonrakini çalmaya baslar

>> Prev >> btPrev >> Bir öncekini çalmaya baslar.

>> Step >> btStep >> Okuyucu kafasini bir adim ileri alir.

>> Back >> btBack >> Okuyucu kafasini bir adim geri alir.

>> Record >> btRecord >> Kayit olayini baslatir.

>> Eject >> btEject >> Sürücüden çikarilir.

PROPERTIES
MediaPlayer1.FileName: Çalinacak veya kaydedilecek dosyanin adi belirlenir.
MediaPlayer1.Open : Media Player dosyasini açar.
MediaPlayer1.Play : Media Player FileName' de tanimlanmis dosyayi çalar.
ÖRNEK: Bir sifre programinda sifrenin yanlis girilmesi durumunda hata sesi veren program. Program çalistiginda Media Player "Visibled" özelliginiden dolayi görünmeyecektir.
Sifre = yavuz

Code:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if 'yavuz'<>edit1.Text then //edit1 yavuza esit degilse
begin
MediaPlayer1.FileName:='alarm.wav'; //alarim dosyasini mediaplayer ata
MediaPlayer1.Open; //alarm.wav dosyasini aç
MediaPlayer1.Play; //alarm.wav dosyasini çal
MessageDlg('Kullanici Sifresini Tekrar Deneyiniz',mtwarning,
[mbOk], 0); exit; //kullanici sifresi hatli diye mesaj ver
end;
if 'yavuz'=edit1.Text then begin //edit1 yavuza esitse
fORM2.Show; form1.Hide; end; //form2 aç form1 i gizle
end;

07-12-07, 17:20 Çevrimdışı	#1
ares Genel Mesajlar: 6.685 Teşekkür etti: 771 Teşekkür edildi: 2.159 RepForum Gücü: 500 Forum Puanı:48968	Ders-21 'MEDIA PLAYER' MEDIA PLAYER Media Player kontrolü windows tarafýndan desteklenen Multi Media islemlerini kullanima sokar. Companent Palet / System / Media Player butonuna tiklanir. Media Player elemani üzerindeki dügmelerin görevleri: >> Play >> btPlay >> Çalmaya Baslar >> Pouse >> btPouse >> Çalma veya Kaydetmeyi geçici olarak durdurur. >> Stoop >> btStoop >> Çalma yada kaydetme olayini bitirir. >> Next >> btNext >> Bir sonrakini çalmaya baslar >> Prev >> btPrev >> Bir öncekini çalmaya baslar. >> Step >> btStep >> Okuyucu kafasini bir adim ileri alir. >> Back >> btBack >> Okuyucu kafasini bir adim geri alir. >> Record >> btRecord >> Kayit olayini baslatir. >> Eject >> btEject >> Sürücüden çikarilir. PROPERTIES MediaPlayer1.FileName: Çalinacak veya kaydedilecek dosyanin adi belirlenir. MediaPlayer1.Open : Media Player dosyasini açar. MediaPlayer1.Play : Media Player FileName' de tanimlanmis dosyayi çalar. ÖRNEK: Bir sifre programinda sifrenin yanlis girilmesi durumunda hata sesi veren program. Program çalistiginda Media Player "Visibled" özelliginiden dolayi görünmeyecektir. Sifre = yavuz Code: procedure TForm1.BitBtn1Click(Sender: TObject); begin if 'yavuz'<>edit1.Text then //edit1 yavuza esit degilse begin MediaPlayer1.FileName:='alarm.wav'; //alarim dosyasini mediaplayer ata MediaPlayer1.Open; //alarm.wav dosyasini aç MediaPlayer1.Play; //alarm.wav dosyasini çal MessageDlg('Kullanici Sifresini Tekrar Deneyiniz',mtwarning, [mbOk], 0); exit; //kullanici sifresi hatli diye mesaj ver end; if 'yavuz'=edit1.Text then begin //edit1 yavuza esitse fORM2.Show; form1.Hide; end; //form2 aç form1 i gizle end;

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder