Windows Media Player 中的 Step() 函数

Question

我在 Delphi XE3 中使用 ActiveX Windows Media Player。 是否可以一次单步浏览视频中的帧？ 根据 MS 文档，有一个 Step() 函数： https://docs.microsoft.com/en-us/windows/win32/wmp/controls-step 但是该功能似乎在 Delphi IDE 中不存在。 当我输入媒体控件时：WMPlayer1.
IDE 提供了可能成员的列表，但 Step() 不在层次结构中的任何位置。

Answer 1

在生成的 WMPLib_TLB.pas 文件中，WMPlayer1.controls 被声明为 IWMPControls 接口。然而，Step 方法不在 IWMPControls 中，而是在 IWMPControls2 中。只需进行类型转换即可：

    procedure TForm1.Button1Click(Sender: TObject);
    var
      IWMPC2:IWMPControls2;
    begin          
      //WMPlayer1.controls.pause; (Pause first)
      IWMPC2 := IWMPControls2(WMPlayer1.controls);
      IWMPC2.step(1);
    end;