Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Ses Dosyası Çalma
#1
Merhaba Arkadaşlar,

Sipariş geldiği zaman otomatik sipariş fişini hazırlayan ve yazıcıdan çıktı veren yazılım kullanıyoruz.  
Arkadaşlar devamlı yazıcının yanında olmayabiliyor sipariş geldiği zaman uyarı anlamında ses dosyası çalmak istiyorum. 


Nasıl yapabilirim. 



 Beep; 

sesi de çözümde ben kendi istediğim dosyayı çalmak istiyorum.
Cevapla
#2
Merhaba,
Eğer çok basit olarak algılamadı isem bir adet mediaplayer bileşeni işinizi çözecektir.
play ve stop komutları ile işlemleri halledebilirsiniz.
 
 MediaPlayer1.Close;
 MediaPlayer1.FileName := 'Z:\muzik\Yolların sonu.mp3';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
Cevapla
#3
@Mr.Developer önerisi geçerlidir.

- Ben de kendi projelerime uyarı mesajlarını ses dosyaları halinde resource içine ekliyorum. Sonra duruma göre sıradan index no vererek çaldırıyorum.

Kullanımı...

Uses System.Classes, WinApi.MMSystem;

procedure TSchoolTimer.PlaySound( idx: word );
var
  Res : TResourceStream;
begin
  SndPlaySound(nil, 0); // Stops the sound
  Res := TResourceStream.Create(HInstance, Format('sound%.2d', [idx]), RT_RCDATA);
    Res.Position := 0;
    SndPlaySound(res.Memory, SND_MEMORY or SND_ASYNC);
  Res.free;
end;




Resource dosyamdaki sesler şu şekilde isimlendirilmiştir. 
sound01 RCDATA phone.wav
sound02 RCDATA MessageBeep.wav
sound03 RCDATA wav_shutdown.wav
sound04 RCDATA wav1.wav


Kullanımı da şöyle, örnek senaryo :  durum oluştuğunda projemiz minimize edilmişse önce restore edilip sonra ses çaldırır.

...
          if self.windowstate = wsMinimized
            then self.WindowState := wsNormal;
          PlaySound(1);
...
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi'de harici font dosyası kullanma imkanı varmı? Nasıl? ferhatganem 2 209 04-04-2021, Saat: 14:56
Son Yorum: ozcanm
  Office dosyası yazdırmak. tmrksmt 6 463 10-03-2021, Saat: 21:27
Son Yorum: mcuyan
  ini dosyası okuma problemim. onurakman 14 3.442 20-05-2020, Saat: 00:26
Son Yorum: onurakman
  Exe dosyası web yayınlamak ismailt35 17 8.071 09-03-2020, Saat: 08:50
Son Yorum: vkamadan
  Txt dosyası bulunamadı ahmetb 5 2.793 29-12-2018, Saat: 01:22
Son Yorum: ahmetb



Konuyu Okuyanlar: 1 Ziyaretçi