Tasarım anında TMediaPlayer programı kapatıyor, neden?

[Sedat Atif]

TMediaPlayer bileşeninde birşey çalmaya çalışınca tasarım anında programı kapatıyor. Yani F9'a basıp çalıştırdıktan sonra. Ama project1.exe dosyasını direk çalıştırırsam kapanmıyor.

Bu neden olabilir?

[Sedat Atif]

Sorumu iyi anlatamadıysam söyleyin de tekrar deneyeyim

[mrmarman]

Selam..

- Bu durum aslında bir hata değil de basit bir Try Except bloğunun varlığını bildiriyor gibi...

- Delphi IDE, sen aksini bildirmezsen Exception'a düşen durumlarda stop eder sen continue ettirirsin... EXE çalıştırırken bu hata programcı tarafından dikkate alınmış kabul edilir ve hata verilmez... Adı üzerinde Except (hariç tut) diyorsun...

- Kendin de tahmin ettiğin gibi bize hata veren yeri, verilen hata veya kodlarından bir kaç satır örnek yazsaydın medyumluk yapmak zorunda kalmazdık...

[Sedat Atif]

Hata mesajı vermiyor ki...

Mesela Form1'e bir TMediaPlayer bileşeni koydum. AutoOpen özelliğini açtım ve bir de dosya ismi girdim diyelim. Tasarım modunda F9'a bastıktan sonra hemen geri tasarım moduna dönüyor. Kendi kendine kapanıyor yani.

Ama oluşan exe dosyasını çift tıklayıp açınca böyle birşey olmuyor.

Sevgiler.

[mrmarman]

Yorum yapamıycam... Sen sadece deneme yapıyorsun herhalde... Ben olsam bu işi AutoOpen=False yapar, formun OnCreate olayında varsayılan bir FileName verdirip, sonra try/Except bloğunda open ettirirdim...

[Sedat Atif]

Örnek olarak söyledim.

Ama şöyle açmaya çalışmıştım ki bu şekilde yapınca da aynı şey oluyor:

mediap1.FileName:=filename;
mediap1.Open;
mediap1.Play;

Ne gibi bir değişiklik yapmam gerekir?

[mepc]

kullandığın mediaplayer in Notify olayında programı sonlandıran herhangi bir kod yok ise mediaplayer haricinde bir hata olabilir

[mrmarman]

Selam...
- Sorun şu da olabilir...
- Open'dan sonra hemen play deme.. Başka bir button koy ordan Play ettir bakalım değişen bişi oluyor mu ?!

- Bazen bir süre tanıman lazım... Multimedia Dosyaları (AVI, MP3 vs.) Windows tarafından tanınıp ona göre hazırlık yapması gerekir. Henüz yüklenme işlemi başarılmamış bir dosyayı play edersen dosya yokmuş gibi davranılır aslında hataya düşer ama sende hata yok diyorsun, oş bir forumda bu işlemi deniyorsundur... Yoksa başka procedure'deki bir hata yüzünden havanda su dövmeyelim....

- Sanıyorum aşağıdaki gibi bir örneğe sahipsin... (Dosya adı değişebilir). Bende F9 da olsa executable da olsa sorunsuz çalıştı...

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
Var
  filename : String;
begin
  filename := 'D:\WinMEDIA\Evanescense - Bring me to life.mp3';
  mediap1.FileName:=filename;
  mediap1.Open;
  mediap1.Play;
end;