调整 MediaPlayer 的大小，无需播放按钮控件

Question

我想编写一个不带播放控件的可调整大小的 WindowsMediaplayer (ActiveX)。它应该适合 TPanels。

Answer 1

不久前我必须解决这个问题，经过大量谷歌搜索后，我发现这可以工作

将 WindowsMedaiPlayer 对象放在面板上，并将其与 alclient 对齐，
可以使用 uiMode := 'none' 隐藏播放器控制区域，在 ide 或代码中设置，

然后使用改编

uses Ole2;

procedure TForm1.Panel1Resize(Sender: TObject);
 const
    IID_IOleInPlaceObject: SYSTEM.TGUID = '{00000113-0000-0000-C000-000000000046}';
 var
  IOIPObj: IOleInPlaceObject;
 begin
  SYSTEM.IDispatch(WindowsMediaPlayer1.OleObject).QueryInterface(IID_IOleInPlaceObject, IOIPObj);
  IOIPObj.SetObjectRects(Panel1.ClientRect, Panel1.ClientRect);
 end;


procedure TForm1.Play;
 begin
  WindowsMediaPlayer1.uiMode := 'none';  //show no interface, this can be set from the ide
  WindowsMediaPlayer1.URL := 'movie.mpg';
  WindowsMediaPlayer1.stretchToFit := True;
  WindowsMediaPlayer1.Controls.play;
 end;

自 http://our.obor.us/node/1999

Ole2 用于 IOleInPlaceObject，我必须添加 $(Delphi)\source\rtl\ Win到delphi的库路径即可找到它。

（delphi 7，wmp 11）

额外：一些更容易使用

uses Ole2; 

procedure SmoothResizeMediaPlayer(aMediaPlayer: TWindowsMediaPlayer; PosRect,ClipRect:Trect);
const
  IID_IOleInPlaceObject: SYSTEM.TGUID = '{00000113-0000-0000-C000-000000000046}';
var
  IOIPObj: IOleInPlaceObject;
begin
  SYSTEM.IDispatch(aMediaPlayer.OleObject).QueryInterface(IID_IOleInPlaceObject, IOIPObj);
  IOIPObj.SetObjectRects(PosRect, ClipRect);
end;

和调用的东西

  SmoothResizeMediaPlayer(WindowsMediaPlayer1, panel1.ClientRect, panel1.ClientRect);