excel - 在 excel vba 中使用 VLC player activex 作为免注册 COM

Question

问题定义

我有两个 USB 显微镜读取部件和序列号。
我想从 Excel-VBA 控制屏幕截图的显示和录制。

我想尝试使用提供的 VLC 主动 X 组件。
我需要完成的产品是一个不需要安装的单个 zip。
我认为将这个 activex 对象用作免注册 COM 是可行的方法。

引用

我一直在做功课，这是我的引用资料。

How to use vlc.dll without registration?

Registration-Free COM Interop

VLC Player and Excel Visual Basic Editor

Cannot get registration-free COM working from VBA

到目前为止我的尝试。

我建立
桌面\excel vlc demo\excel vlc demo.xlsb
然后我将整个 vlc 分发复制到 Desktop\excel vlc demo\vlc\

这包括 axvlc.dll 和 axvlc.dll.manifest

我创建了一个模块并将此代码放入。

Sub VLC()
    Dim actCtx As Object
    Set actCtx = CreateObject("Microsoft.Windows.ActCtx")
    actCtx.Manifest = ThisWorkbook.Path & "\vlc\axvlc.dll.manifest"

    Dim myVlC As Object
    Set myVlC = actCtx.CreateObject("AXVLC.VLCPlugin2")

    myVlC.Visible = True
    myVlC.playlist.Add (ThisWorkbook.Path & "\demo.mov")
    myVlC.playlist.Play

End Sub

这失败了

    Set myVlC = actCtx.CreateObject("AXVLC.VLCPlugin2")

有错误

    Run-time error '429':
    ActiveX component can't create object

我可能有错误的对象名称“AXVLC.VLCPlugin2”，我无法确认它在 documentation 中是否仍然有效.

也可能是“user1610015”说“我认为在这种情况下你不能让无注册的 COM 工作”是正确的

在这一点上，我没有想法，我以前从未尝试过无注册 COM，所以我不知道我是否对无注册 COM 或 axvlc 部分做错了!

谢谢

编辑 1:尝试早期绑定(bind)

我进入工具-> 引用，然后单击浏览并添加 axvlc.dll 文件。
我修改了代码如下(AXVLC.VLCPlugin2
部分自动完成，所以至少这部分应该工作)

Sub VLC()
    Dim myVlC As New AXVLC.VLCPlugin2
    myVlC.Visible = True
    myVlC.playlist.Add (ThisWorkbook.Path & "\demo.mov")
    myVlC.playlist.Play

End Sub

但是，这失败并出现相同的错误

    Run-time error '429':
    ActiveX component can't create object

在线上

myVlC.Visible = True

也许我还需要用 regsrv32 注册这个文件？
编辑 2:试过 regsvr32

从 vlc 子文件夹运行此命令

regsvr32 axvlc.dll

我得到一个消息框，说这个命令运行成功，但是我得到了同样的错误。

Answer 1

我在使用 VLC 和 Excel 将 vlc 播放器插入工作表和表单时遇到问题。
它去年工作...
“VL​​C Activex Plugin ....”不在要选择的附加控件框中。
注册dll成功了，但是还是不行。
然后我记得我将 VLC 升级到新版本和 64 位
我卸载了 VLC 64
并安装了新版本 32 位
“VL​​C Activex Plugin ....”现在在附加控件框中，一切都很好