|
DERS ANLATIMI 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: |
|
DÜGME |
DEGERI |
YAPTIGI IS |
|
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. |
|
|
|
| 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 |
|
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;
|
|
|
!
! DOWNLOAD ! !
|
|
|
|
