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
  Exe dosyası başka bilgisayarlarda çalışmıyor sbogatekin 4 397 16-01-2024, Saat: 16:38
Son Yorum: RAD Coder
  Blob Alana kaydettiğim Fastreport dosyası içeriği COMMANDX 6 630 25-08-2023, Saat: 09:00
Son Yorum: COMMANDX
  Formda acmadan resim dosyasi renk pixelleri almak sadikacar60 1 376 27-06-2023, Saat: 08:01
Son Yorum: delphiman
  parquet dosyası oluşturmak bydelphi 4 1.105 14-06-2023, Saat: 09:12
Son Yorum: bydelphi
  Activex Mediaplayer sıralı çalma sorunu baloglurecep 0 382 24-11-2022, Saat: 01:52
Son Yorum: baloglurecep



Konuyu Okuyanlar: 1 Ziyaretçi