Delphi多媒體設計之TMediaPlayer組件(七)


AVI視頻

用TMediaPlayer播放AVI視頻,選擇AVI文件,並調用Play方法(或者點擊Play按鈕),如果使用默認的MediaPlayer設置,將會出現一個單獨的窗口播放AVI視頻。如下圖:

image

也可以設置TMediaPlayer的Display屬性為任何窗口組件(Windowed component),視頻播放將會在這個組件的客戶區(client area)中出現。

例如,在窗體上有一個pnl1的面板,想在這個pnl1面板上顯示AVI視頻,這時,應該按下面的代碼設置Display屬性:

mp1.Display := pnl1;

當AVI播放時,它將顯示在面板中。如果視頻大於面板矩形,視頻將會被裁剪到面板大小。如下圖:

image

可以通過設置DisplayRect屬性來放大或縮小視頻,代碼如下:

mp1.DisplayRect := pnl1.ClientRect;

播放后效果如下:

image


AVI視頻格式有很多種,並不是所有的AVI都可以播放的。為了放映特定的視頻編碼格式需要用戶安裝相應的解碼器。為了安全起見,用標准的Microsoft AVI視頻格式。用戶幾乎都安裝了該編碼器。

Note

image

TAnimate組件(在Win32標簽下)用於播放你在操作Windows時看到的小的視頻,例如在Windows資源管理中拷貝文件或移動文件時看到的動畫,如下圖:

image

再例如查找文件時,查找對話框的動畫。用TAnimate組件播放的AVI必須是未壓縮的或僅進行過RLE壓縮,其他的壓縮形式都是不允許的。AVI中也不可以包含音頻。


以上代碼均在Delphi 7下測試通過,示例代碼下載:AVIPlayer.rar

示例AVI視頻下載地址:http://kuai.xunlei.com/d/RFJZWJPHLOIG


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM