Delphi XE2：firemonkey 使用 libvlc 播放视频？

Question

我仍在尝试使用 directx api 和 libvlc 在 firemonkey 上播放视频！我已经使用不同的方式播放视频，但我想在 directx 表面上播放视频。

请先查看此链接：http://forum.videolan.org/viewtopic .php?f=32&t=82618

有人写了一段有关如何在 directx 上使用 libvlc 的 delphi 代码，该代码运行良好，但该代码是纯 directx 代码。我想将此代码集成到 firemonkey 中！我怎样才能用firemonkey库做到这一点（我知道Windows firemonkey也使用directx库，但是firemonkey库（接口，类，对象）的命名和使用与directx如此不同！

我现在在哪里：

我几乎将这个纯directx代码集成到firemonkey中与“Winapi.Direct3D9、Winapi.D3DX9、FMX.Context.DX9”库一起使用，

我可以访问 firemonkey Context 中的 IDirect3DDevice9 对象

var
   Device: IDirect3DDevice9;
begin
   Device := TCustomDirectXContext(TCustomForm3D(ParentForm).Context).Device;
   Device.CreateTexture(video_width, video_height, 1, D3DUSAGE_DYNAMIC, D3DFMT_A8R8G8B8, D3DPOOL_DEFAULT, vlcVideoTexture, nil);
   Device.CreateTexture(video_width, video_height, 1, 0, D3DFMT_A8R8G8B8, D3DPOOL_SYSTEMMEM, vlcMemoryTexture, nil);
end;

！ href="http://forum.videolan.org/viewtopic.php?f=32&t=82618" rel="nofollow">此处 完全在 firemonkey 中工作，但您将看到此代码的结果对象类型是 IDirect3DTexture9 ，这个对象包含视频的帧缓冲区，我只需要以 firemonkey 形式将该对象渲染到某个控件上。

我

正在等待好的 delphi 开发人员解决方案

。

Answer 1

我不认为尝试使用 LibVlc 进行 direct3D 是可能的，因为 libvlc 向任何窗口请求句柄来播放视频，在任何形式上播放都可以，因为它们具有有效的句柄。