Mplayer de URL actırmak

[Begin.End]

S.a arkadaslar medıaplayer (MPlayer)de,wındows medıa playerdekı gıbı URL adresi actırtabılırmıyız??.. Mesela istanbuldakı canlı kamera goruntulerını medıaplayerde gostermek ıstıyorum ama maalesef url adresı yazamıyorumm.. wındows medıa player de

wmp.URL :='mms://ibb-media.ibb.gov.tr/BOGAZICIAVRUPA'

yazdıgımda calıstırabılıyorum..

medıaplayer (Mplayer) yerıne neden wındows medıa player kullanmıyosun dersenızde wmp yapınca wın98 de calısmıo...Yardımlarınızı beklıyorum..

[bluekid]

soru Delphi yada programlama sorusu değil
google'a sorunca
http://www.mplayerhq.hu/DOCS/HTML/en/streaming.html

[Begin.End]

bluekid cok saol ama o gonderdıgın yerden hıc bısey anlıyamadımm..bunun bır delphı sorusu oldugu konusundada ısrarlıyım...

[mrmarman]

Normal TMediaPlayer ile direkt adres girerek yapamazsın. Onun yerine şunu dene..

- Delphi IDE'de Component ekleme kısmında "Import Type Library" seçerek Windows Media Player 1.0 (baktım iki tane var ama sen yanında c:\windows\system32\wmp.dll yazanı seçersin) olanı seç.

- Sonra WMPLib_TLB.pas isimli kontrolleri içeren UNIT oluşturulacak ve otomatik olarak Delphi IMPORTS klasöründe yar alacaktır. Bunu artık USES satırına ekleme imkanın olacaktır. Bu işlem bir kerelik yapılan bir işlemdir.

- Sonra aşağıdaki gibi bir kurgu hazırla... İşlem basittir. Butona basınca TRT1 seyredersin tekrar basınca durur. Gerisi için hayal gücünü kullan.

Kod: Tümünü seç

Uses WMPLib_TLB;

Var
  MediaPlayer : TWindowsMediaPlayer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MediaPlayer := TWindowsMediaPlayer.Create(Self);
  MediaPlayer.Parent := Self;
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 // yürütülmekte ise
    MediaPlayer.close;
  end else begin
    MediaPlayer.URL := 'mms://212.175.166.3/TV1'; // TRT1
  end;
end;

[Begin.End]

Merhabalar Muharem bey..

yardımınız ıcın cok saolun ancak ılk mesajımdada belırttıgım gıbı bunu medıaplayer yada baska bı nesne ıle yapmam lazım TWindowsMediaPlayer HARIC..cunku TWindowsMediaPlayer ıle yapınca uses kısmına OLECTRLS de eklenıyor ve programımı wındows 98 de calıstıramıyorum OLE hatası verıyor..

[Begin.End]

S.a Arkadaslarr bu sorunumu wındows98 e medıaplayer9 u yukleyerek hallettımm..Bunu yapmak yenı aklıma geldı vaktınızı aldıgım ıcın kusura bakmayınn..

[vampir261]

Çok teşekkürler

[master_20]

Arkadaşlar merhaba, WMPLib_TLB unit i ile bilikte mediaplayer im çalışıyordu ancak ne oldu anlamadım ama var wmpMediaPlayer: TWindowsMediaPlayer; kısmında TWindowsMediaPlayer da tanımıyor. format attım yeniden kurdum ama yine aynı htayı alıoyrum çıldırıcamm yardımcı olabilir misiniz ? teşekkürler

[sr1111]

asagidaki dosyayi calip bittikten sonra nasil silerim. normalde sil dedigimde hemen siliyor. sorun yapiyor. bitmesini nasil beklerim MediaPlayer.Mode = mpPlaying runtime oldugundan yapamadim.

If MediaPlayer.playState = 3 then begin // yürütülmekte ise
MediaPlayer.close;
end else begin
MediaPlayer.URL := 'abi.mp3';