mms yayınlarlar ilgili

[barutali]

yaptığım online tv programında windowsmedia player yerine kendi görüntü ekranımı nasıl kullanırım acaba buna benzer bir konu gördüm forumda fakat arkadaş windows Mplayer9 u yükleyerek sorunu çözmüş.

Ben direk kendi görüntü ekranımı yapmak istiyorum. TMediaplayer ı denedim fakat

windows media player da bulunan URL özelliği yok. ( mms:// şeklinde)

torry.net teki comp. ları da inceledim bir kaç tanesini indirdim fakat istediğim tam olarak yok.

yada windows media player nesnesini koysam visible false şekilde ordaki görüntüyü Tpanel e aktarabilmek gibi bi şansım varmı acaba ?

şimdiden teşekkürler

[mrmarman]

Tabii ki mümkün..

- Sana bir örnek hazırladım. Formuna bir TPanel koy bir tane de TButton

- Hatırlatayım Mediaplayer 10 ve üzeri için geçerlidir... Çünkü butonları yoketmek istiyoruz.

- Butona basınca TRT1 gösterir tekrar basarsan kapanır.

Kod: Tümünü seç

Uses WMPLib_TLB;

Var
  MediaPlayer : TWindowsMediaPlayer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Mediaplayer 10 ve üzeri için geçerlidir...
  MediaPlayer := TWindowsMediaPlayer.Create(Self);
  MediaPlayer.Parent  := Panel1;
  MediaPlayer.Align   := alClient;
  MediaPlayer.Visible := False;
  MediaPlayer.UiMode  := 'none'; // Butonları vs. iptal ettik.
  Panel1.Width        := 320;
  Panel1.Height       := Panel1.Width div 4 * 3; // TV formatı (4/3) olduğundan...
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MediaPlayer.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  If MediaPlayer.playState = 3 then begin
    MediaPlayer.close;
    MediaPlayer.Visible := False;
  end else begin
    MediaPlayer.URL := 'mms://212.175.166.3/TV1';
    MediaPlayer.Visible := True;
  end;
end;

[barutali]

çok saol hocam yarıdımın için bende 9 kurulu olduğundan ses vardı görüntü yoktu 11 i kurup denicem hemen

[vampir261]

Sayın mrmarman verdiğiniz örnek çalışıyor elinize sağlık. Ancak örnekteki panelin boyuntunu değiştirdiğimiz zaman oynatılan video boyutu değişmiyor. Siz bu örneği kendiniz mi yazdınız yoksa başka bir kaynaktan faydalandınız mı? Bu uygulamaya resize gibi bir şeyler eklenebilir mi? Yardımcı olabilirseniz memnun olurum.

[sabanakman]

Kod: Tümünü seç

MediaPlayer.DisplayRect := Rect(0 , 0, Panel1.Clientwidth, Panel1.ClientHeight);

kodlaması ile video görüntüsü ilgili alan içerisinde yeniden boyutlandırılacaktır. Hatta ilgili kodu formun onResize olayına yazarsanız çalışma anında yapılan boyut değişikliklerinde de bu kod çalışarak görüntüyü gerektiği şekilde düzenleyecektir.

[vampir261]

Sayın sabanakman öncelikle verdiğiniz cevap için teşekkür ederim. Şehir dışında olduğum için cevabınızı yeni okudum. Vermiş olduğunuz kod örneği çalışacak gibi ancak benim kullandığım

Kod: Tümünü seç

 MediaPlayer : TWindowsMediaPlayer;

bileşeninde DisplayRect özelliği malesef yok yada ben bulamadım.

Kod: Tümünü seç

 MediaPlayer.ClientRect

özelliği var ama o da read only olduğu için işe yaramıyor. Yada ben bu iş için yanlış bir bileşen kullanıyorum. İlginiz için teşekkür ederim.

[sabanakman]

O an için delphi MediaPlayer bileşeni sanmıştım ama değilmiş, ona bakmak lazım .

[vampir261]

Birkaç gün ara verince ve sabah sakin kafa ile düşününce kolayca çözüldü. Belki ileride ihtiyaç duyan olur kodlar şöyle.

Kod: Tümünü seç

    MediaPlayer.Parent  := Panel1;
    MediaPlayer.Align   := alClient;
    MediaPlayer.BoundsRect:=Rect(0 , 0, Panel1.Clientwidth, Panel1.ClientHeight);//Videoyu panele yayıyor.
    MediaPlayer.stretchToFit:=true;//Görüntünün çözünürlüğünü video sınırları içerisine genişletiyor yada daraltıyor