如何在 VBA 用户窗体上显示 Windows 媒体播放器隐藏式字幕答案

【问题标题】：How to display windows media player closed captions on VBA userform如何在 VBA 用户窗体上显示 Windows 媒体播放器隐藏式字幕
【发布时间】：2017-04-05 03:25:20
【问题描述】：

我已将 Windows 媒体播放器控件嵌入到 VBA 用户窗体中作为活动 X 控件。我可以控制视频（开始、停止、暂停等），但无法显示隐藏式字幕/字幕。

看起来我必须使用 smi / sami 文件，但是我无法让它工作...... MS 文档似乎缺乏，更专注于网页:-(

以下是intellisense提供的4个（必需？）元素，都是字符串：

me.WindowsMediaPlayer1.closedCaption.captioningId
me.WindowsMediaPlayer1.closedCaption.SAMIFileName = path & "cut.smi" ' Got this one
me.WindowsMediaPlayer1.closedCaption.SAMILang
me.WindowsMediaPlayer1.closedCaption.SAMIStyle

那么鉴于以下 SAMI 文件，我应该如何配置 WMP 以便显示隐藏式字幕？

<SAMI>

<HEAD>
<TITLE>SAMI Example</TITLE>

<SAMIParam>
  Media {cut.mp4}
  Metrics {time:ms;}
  Spec {MSFT:1.0;}
</SAMIParam>

<STYLE TYPE="text/css">
<!--
  P { font-family: Arial; font-weight: normal; color: white; background-color: black; text-align: center; }

  #Source {color: red; background-color: blue; font-family: Courier; font-size: 12pt; font-weight: normal; text-align: left; }

  .ENUSCC { name: English; lang: en-US ; SAMIType: CC ; }
  .FRFRCC { name: French;  lang: fr-FR ; SAMIType: CC ; }
-->
</STYLE>

</HEAD>

<BODY>

<!-- Open play menu, choose Captions and Subtiles, On if available -->
<!-- Open tools menu, Security, Show local captions when present -->

<SYNC Start=0>
  <P Class=ENUSCC ID=Source>The Speaker</P>
  <P Class=ENUSCC>SAMI 0000 text</P>

  <P Class=FRFRCC ID=Source>French The Speaker</P>
  <P Class=FRFRCC>French SAMI 0000 text</P>
</SYNC>

<SYNC Start=1000>
  <P Class=ENUSCC>SAMI 1000 text</P>
  <P Class=FRFRCC>French SAMI 1000 text</P>
</SYNC>

<SYNC Start=2000>
  <P Class=ENUSCC>SAMI 2000 text</P>
  <P Class=FRFRCC>French SAMI 2000 text</P>
</SYNC>

<SYNC Start=3000>
  <P Class=ENUSCC>SAMI 3000 text</P>
  <P Class=FRFRCC>French SAMI 3000 text</P>
</SYNC>

</BODY>
</SAMI>

非常感谢您的帮助，谢谢。

【问题讨论】：

标签： vba excel windows-media-player wmp

【解决方案1】：

没有找到适合我的解决方案，但最终我进行了健全性检查。

在全屏模式下测试了WMP，仍然无法播放字幕文件；我应该在发布之前这样做。显然这与视频格式为mp4有关......

真正的健全性检查是切换到 VLC，字幕显示没有问题，所以 smi 文件没有问题 - 但对我来说也不是解决方案。

如果您偶然发现这个并想要字幕，一个解决方案似乎是下载一组特殊的 [非 MS] 编解码器，它们确实允许 WMP 显示字幕，但我没有尝试过，因为它也不可行为我解决。

MS 如何错过这一点超出了我的理解 - 看起来如此基本，如此微不足道，但你拥有它。

【讨论】：