Delphi中的WindowsMediaPlayer

Question

我想在Delphi 7的Delphi项目中使用WindowsMediaPlayer。我想在这个Windowsmediaplayer中使用一些视频。我有一个openDialog，我不时打电话给视频文件打开。但Windowsmediaplayer有时会运行，因为全屏有时会以小矩形（不是全屏）运行。我希望它在Panel中全屏运行。到目前为止，我无法实现它。 你能帮帮我吗？

Answer 1

如果您想使用TMediaPlayer组件播放视频，首先必须将其Display属性设置为某些窗口控件，如窗体或面板。

http://docwiki.embarcadero.com/Libraries/XE6/en/Vcl.MPlayer.TMediaPlayer.Display

这将在所选控件上呈现视频输出。默认情况下，视频将拉伸到您想要的控件大小。

但是，如果视频宽高比与您正在渲染的控件的宽高比相同，则视频将会失真。为了克服这个问题，TMediaPlayer有另一个名为DisplayRect的功能，您可以使用该功能强制视频在您正在渲染的控件内的所需矩形中呈现。通过使用此功能，您可以获得大多数现代媒体播放器在视频宽高比与屏幕宽高比相同时所产生的黑色条纹。

http://docwiki.embarcadero.com/Libraries/XE6/en/Vcl.MPlayer.TMediaPlayer.DisplayRect