Windows Media Player

[marusua]

Здравствуйте!!
Я понимаю, что по правилам надо загрузить код, но суть вот в чем: с Windows Media Player я работаю впервые, даже не в курсе как отобразить в нем видео, на многих форумах, сайтах речь идет о Media Player с вкладки System, но не о Windows Media Player !!
Как можно просматривать видео через этот плеер???

[Rin]

Go_Ogle знает

[Rin]

Go_Ogle знает

[marusua]

Сообщение от Rin

Go_Ogle знает

ты суть вопроса понял??? видимо, нет

[raxp]

uses WMPLib_TLB;

...
var p: TWindowsMediaPlayer;
...

begin
 p:= TWindowsMediaPlayer.Create(self);
 with p do begin
  TabOrder:= 1;
  align:= alclient;
  parent:= sForm;
 end;

 p.settings.set_volume(0);
 // выдергиваем битрейт из видеопотока
 // если его умножить на время приема потока - получим искомый трафик потребления
 rate:= p.settings.get_rate;


 //p.SetTextBuf('text');
 // растягиваем видео на весь контрол
 p.ControlInterface.stretchToFit:= true;

 // для потока в Интернете
 p.URL:= 'http://' + ip + ':' + port + '/';
 // для файла
 // MediaPlayer.DefaultInterface.URL:= OpenDialog1.FileName;
 // MediaPlayer.controls.play;

сами разберетесь с импортом ActiveX?

[Delphi_ProGer]

Сообщение от marusua

Здравствуйте!!
Я понимаю, что по правилам надо загрузить код, но суть вот в чем: с Windows Media Player я работаю впервые, даже не в курсе как отобразить в нем видео, на многих форумах, сайтах речь идет о Media Player с вкладки System, но не о Windows Media Player !!
Как можно просматривать видео через этот плеер???

1) Импортировать ActiveX элемент
2) Использовать
+
http://www.programmersforum.ru/showt...hlight=activex
http://programmersforum.ru/showthread.php?t=85447

[marusua]

Сообщение от raxp

uses WMPLib_TLB;

...
var p: TWindowsMediaPlayer;
...

begin
 p:= TWindowsMediaPlayer.Create(self);
 with p do begin
  TabOrder:= 1;
  align:= alclient;
  parent:= sForm;
 end;

 p.settings.set_volume(0);
 // выдергиваем битрейт из видеопотока
 // если его умножить на время приема потока - получим искомый трафик потребления
 rate:= p.settings.get_rate;


 //p.SetTextBuf('text');
 // растягиваем видео на весь контрол
 p.ControlInterface.stretchToFit:= true;

 // для потока в Интернете
 p.URL:= 'http://' + ip + ':' + port + '/';
 // для файла
 // MediaPlayer.DefaultInterface.URL:= OpenDialog1.FileName;
 // MediaPlayer.controls.play;

сами разберетесь с импортом ActiveX?

спасибо большое!!! посмотрю код...
с импортом не было и нет проблем)) это очень просто!!

[marusua]

Сообщение от Delphi_ProGer

1) Импортировать ActiveX элемент
2) Использовать
+
http://www.programmersforum.ru/showt...hlight=activex
http://programmersforum.ru/showthread.php?t=85447

импортировала компонент уже давно.. проблем не возникло)))
данные ссылки видела ранее ... одну из них даже раз так 30 точно!!!
вопрос: что полезного под цифрой 2 (как раз эта ссылка чаще всего попадалась)

[marusua]

Сообщение от raxp

uses WMPLib_TLB;

...
var p: TWindowsMediaPlayer;
...

begin
 p:= TWindowsMediaPlayer.Create(self);
 with p do begin
  TabOrder:= 1;
  align:= alclient;
  parent:= sForm;
 end;

 p.settings.set_volume(0);
 // выдергиваем битрейт из видеопотока
 // если его умножить на время приема потока - получим искомый трафик потребления
 rate:= p.settings.get_rate;


 //p.SetTextBuf('text');
 // растягиваем видео на весь контрол
 p.ControlInterface.stretchToFit:= true;

 // для потока в Интернете
 p.URL:= 'http://' + ip + ':' + port + '/';
 // для файла
 // MediaPlayer.DefaultInterface.URL:= OpenDialog1.FileName;
 // MediaPlayer.controls.play;

сами разберетесь с импортом ActiveX?

вопрос, может и глупый: как открыть видео с имеющихся на компьютере, то я что-то тут зависла?

[Delphi_ProGer]

Наверное уж так открывать...raxp закомментировал этот учаток кода

MediaPlayer.DefaultInterface.URL:= OpenDialog1.FileName;
MediaPlayer.controls.play;

Здесь MediaPlayer: TWindowsMediaPlayer;

По поводу ссылки - там есть кое-что об применение этого компонента(хотя да, недочитал я всю тему, там только про импорт).