請問用 TMediaPlayer 撥放 AVI 、 Mpeg 時，要如何縮放畫面的大小呢？    發表是最好的記憶!

qoo1234您好:

引言: 用 TMediaPlayer 撥放 AVI 、 Mpeg 時，要如何縮放畫面的大小呢？

試試

 
MediaPlayer->DisplayRect = Rect(0,0,320,240);

畫面大小為320*240 順心 <>～我也是在學習的階段,所以請您多多見諒與指教～

補充一下 TMediaPlayer 的 DisplayRect 只有在執行時期才能改變它的值 MediaPlayer->DisplayRect = Rect(0,0,100,100); 就會將畫面改變成從座標（０，０）開始，長寬為１００x１００大小的畫 這裏還有另外一個相關的討論，請見 http://delphi.ktop.com.tw/topic.php?topic_id=20946

一般常用播放程式..畫面為兩倍與全螢幕..如何設定呢？    發表是最好的記憶!

qoo1234您好:   可以參考下面討論的文章   http://delphi.ktop.com.tw/topic.php?topic_id=18157 對不起,這是[直接開啟windows Media player全螢幕撥放]< > 順心< > ～我也是在學習的階段,所以請您多多見諒與指教～ 發表人 - taishyang 於 2003/05/22 23:05:32

通常標準VCD = 320*240 兩倍播放就是讀出他內定的SIZE動態改DisplayRect = SIZE *2

qoo1234您好:    

引言:畫面為兩倍與全螢幕

可以參考下面網站 http://delphins.republika.pl/delphi/delphiczapy1.htm 內文 35. Jak odtwarzac animacje AVI na pelnym ekranie?[pytania] tmediaplayer, avi, mpg, mpeg, fullscreen, full screen, animacja Wielokrotnie przewija sie problem jak zmusic MediaPlayer'a do odtwarzania animacji na pelnym ekranie tak jak czyni to Odtwarzacz Windows czy inne programy przechodzace w tryb pelnoekranowy - nie wykorzystujac okna bez obramowania, pokazanego nad wszystkimi innymi, poniewaz takie rozwiazanie wiekszosci osob nie satysfakcjonuje. Zatem ponizej przedstawiam przyklad jak to sie robi. MediaPlayer1.FileName := 'c:\capture.avi'; { najpierw otwieramy TMediaPlayer } MediaPlayer1.Open; { przypisanie dla Display wartosci "nil" zmusza TMediaPlayer do utworzenia wlasnego okna } MediaPlayer1.Display := nil; { okno ma byc pelnoekranowe } MediaPlayer1.DisplayRect := Rect(0,0, Screen.Width, Screen.Height); { i w koncu rozpoczynamy odtwarzanie } MediaPlayer1.Play; 不曉得能不能幫上忙 順心 <>～我也是在學習的階段,所以請您多多見諒與指教～

1.視窗模式： MediaPlayer1.DisplayRect := Rect(0,0, Screen.Width, Screen.Height);    2.兩倍模式：之前寫法是錯的...已不用了！    3.全螢幕模式：不太懂喔！！        發表是最好的記憶! 發表人 - qoo1234 於 2003/05/23 21:00:44

參考jackkcg 兄的轉文內容寫到 還有一個難點就是如何實現全螢幕播放。可能讀者會說:先把Form的BorderStyle動態設置?BsNone，再把Form的WindowState:=wsMaximized不就行了嗎？呵呵，是嗎？你試試看。結果播放螢幕的視頻不見了。只看到一個光禿禿的面板。解決的方法是用API函數: SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE)and(notWS_CAPTION)); 動態把視窗標題欄隱藏起來，再最大化。另外，?了保持窗口最大化後播放的尺寸仍然保持跟窗口大小融合，必須在窗口的OnResize事件中寫上MediaPlayer1.DisplayRect:=Panel1.ClientRect;

turboted兄請問TMediaPlayer 可以撥放.RM檔案嗎? 若不行如何在不安裝REALPLAY下用ACTIVE X元件來撥放檔案嗎 歡迎各位前輩加入我們來一起討論 新手請見諒

OS 必需先安裝REALPLAY，才有他專有的activx，再來，才能使用

turboted版主你有沒有試過不裝real play 下直接使用active x(就是用xxx.dll 或xxx.ocx)我找了下網路資料也查不到相關資料都非得安裝難道這問題就無解嗎 因為某種因素我的clinet端不允許安裝real play,有沒有其他方法呢? 有前輩知道嗎一起討論吧 先向版主說聲謝謝.

引言: turboted版主你有沒有試過不裝real play 下直接使用active x(就是用xxx.dll 或xxx.ocx)我找了下網路資料也查不到相關資料都非得安裝難道這問題就無解嗎 因為某種因素我的clinet端不允許安裝real play,有沒有其他方法呢? 有前輩知道嗎一起討論吧 先向版主說聲謝謝.

網路找了一下，請你研究看看： http://delphi.ktop.com.tw/download/upload\30992_REAL-DLL.zip **************************************** 謝謝大家指教～～ 關於全螢幕模式播放... src="http://simg3.pchome.com.tw/simage/thumbnail/3628/home.kimo.com.tw£¯angelbeach2002£¯qoo£¯angel_qoo.gif">發表是最好的記憶!

qoo1234  兄：    你的所有想法，在我下面提供的原码中全有哦！！ 多功能WINDOWS媒体播放器，支持几乎所有的格式。 窗口可调..... 不多说了，下载便知了。 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30996 风花雪月 e梦情缘

------
风花雪月 e梦情缘

wnhoo 兄 多謝你的範例 不過他無法在沒有不安裝REALPLAY時 執行RM媒體檔案 他只是 一般關聯檔名的撥放軟體 不是真正自己支援的多媒體撥放器 wnhoo 兄 請你自己再測試一下 Qoo 庵也在想 不安裝REALPLAY真能比較好嗎? 因為引用REALPLAY的dll與安裝其實也差不多 這樣引用的方式 也不是粉好 因為RM是要付費的 這樣會有問題喔 哈哈 也因為這樣RM快被MS給害慘了 1.視窗模式： MediaPlayer1.DisplayRect := Rect(0,0, Screen.Width, Screen.Height); 2.兩倍模式： MediaPlayer1.DisplayRect := Rect(0,0, Screen.Width/2, Screen.Height/2); 3.全螢幕模式：不太懂喔！！ 使用Alt Enter試看看 你試看看 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind

引言: 3.全螢幕模式：不太懂喔！！

我試過這個是可以的丫 :

begin
  BorderStyle := bsNone;  
  Top := 0; 
  Left := 0; 
  Width := Screen.Width; 
  Height := Screen.Height;
  MediaPlayer1.DisplayRect := Rect(0,0,Screen.Width, Screen.Height);
end;

引言: Qoo 庵也在想 不安裝REALPLAY真能比較好嗎? 因為引用REALPLAY的dll與安裝其實也差不多 這樣引用的方式 也不是粉好 因為RM是要付費的 這樣會有問題喔 哈哈 也因為這樣RM快被MS給害慘了

認同j sir副站的看法～ 我的意見，只供討論，請勿作為商業用途： 使用REALPLAY相關檔案..是必須向Realplay取得授權許可，才能使用的～～ 發表是最好的記憶!

引言: qoo1234 兄： 你的所有想法，在我下面提供的原码中全有哦！！ 多功能WINDOWS媒体播放器，支持几乎所有的格式。 窗口可调..... 不多说了，下载便知了。 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30996 风花雪月 e梦情缘

wnhoo: 你這程式明明是 "徐景周" 所作, 為何說是你的作品呢 ? 原始程式畫面: