Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Ses Dosyası Çalma
#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


Bu Konudaki Yorumlar
Ses Dosyası Çalma - Yazar: OmerAsaf - 14-01-2021, Saat: 17:24
Cvp: Ses Dosyası Çalma - Yazar: Mr.Developer - 14-01-2021, Saat: 17:32
Ses Dosyası Çalma - Yazar: mrmarman - 14-01-2021, Saat: 17:48

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  ini dosyası okuma problemim. onurakman 14 2.961 20-05-2020, Saat: 00:26
Son Yorum: onurakman
  Exe dosyası web yayınlamak ismailt35 17 7.416 09-03-2020, Saat: 08:50
Son Yorum: vkamadan
  Txt dosyası bulunamadı ahmetb 5 2.564 29-12-2018, Saat: 01:22
Son Yorum: ahmetb



Konuyu Okuyanlar: 1 Ziyaretçi