請問用 TMediaPlayer 撥放 AVI 、 Mpeg 時,要如何縮放畫面的大小呢? |
答題得分者是:taishyang
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
qoo1234您好:
可以參考下面討論的文章
http://delphi.ktop.com.tw/topic.php?topic_id=18157 對不起,這是[直接開啟windows Media player全螢幕撥放]< >
順心< > ~我也是在學習的階段,所以請您多多見諒與指教~ 發表人 - taishyang 於 2003/05/22 23:05:32
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
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; 不曉得能不能幫上忙 順心 <>~我也是在學習的階段,所以請您多多見諒與指教~> |
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
參考jackkcg 兄的轉文內容寫到 還有一個難點就是如何實現全螢幕播放。可能讀者會說:先把Form的BorderStyle動態設置?BsNone,再把Form的WindowState:=wsMaximized不就行了嗎?呵呵,是嗎?你試試看。結果播放螢幕的視頻不見了。只看到一個光禿禿的面板。解決的方法是用API函數: SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE)and(notWS_CAPTION)); 動態把視窗標題欄隱藏起來,再最大化。另外,?了保持窗口最大化後播放的尺寸仍然保持跟窗口大小融合,必須在窗口的OnResize事件中寫上MediaPlayer1.DisplayRect:=Panel1.ClientRect;
|
eric wei
一般會員 發表:5 回覆:10 積分:3 註冊:2002-07-22 發送簡訊給我 |
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
eric wei
一般會員 發表:5 回覆:10 積分:3 註冊:2002-07-22 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
引言: 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">發表是最好的記憶! |
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
|
jackkcg
站務副站長 發表:891 回覆:1050 積分:848 註冊:2002-03-23 發送簡訊給我 |
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 |
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
danny
版主 發表:100 回覆:522 積分:595 註冊:2002-03-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |