关于使用PasLibVlc进行媒体播放的简单处理技巧-CSDN博客

本文链接：https://blog.csdn.net/yayongm/article/details/133960895

穷，没币了，发布个文章讨点儿币吧。

PasLibVlc是Pascal语言编写的一组媒体播放器开源控件，适应于Delphi和Lazarus版本，有关该控件的详细信息，请参考：PasLibVlc - VideoLAN player inside Delphi, Lazarus, FreePascal application

PasLibVlc所使用的是开源的VideoLan媒体播放库，该库的相关信息为：

Index of /videolan/

下面说说我遇到的一个小问题，就是直接打包成绿色软件时无法播放的问题，该问题出现在PasLibVlcUnit.pas文件中，具体处理方法为：

找到下述代码：

procedure libvlc_dynamic_dll_init();
begin
  if (libvlc_handle <> 0) then exit;
  libvlc_dynamic_dll_init_with_path(libvlc_get_install_path());
end;

替换为：

var
  UserDefLibVlcPath: string;

procedure libvlc_user_def_vlc_path(APath: string);
begin
  UserDefLibVlcPath := APath;
end;

procedure libvlc_dynamic_dll_init();
var
  sPath: string;
begin
  if (libvlc_handle <> 0) then exit;
  sPath := UserDefLibVlcPath;
  if Length(sPath) < 1 then
    sPath := libvlc_get_install_path();
  if Length(sPath) < 1 then
    sPath := ExtractFilePath(ParamStr(0));
  libvlc_dynamic_dll_init_with_path(sPath);
end;

代码说明：播放组件在查找VedioLan播放库的路径时，先查找用户自定义路径，然后查找安装路径，最后查找当前文件夹。注意，需要自定义路径时，请将上面的libvlc_user_def_vlc_path函数加入到文件头部的声明中去，然后就可以在主窗口创建时调用该函数指定安装路径了。

当然，对我来说，直接将自己程序和libvlc.dll，libvlccoore.dll，Plugins文件夹直接打包在一起即可制作一个专属与自己的媒体播放器了，并且这个媒体播放器功能强大且随时可用。

另外，当使用VideoLan的2.1版本的库时，整个可执行程序大小不到30M，打包后的大小只有10M，真的是很惊喜的一个超强播放器。

以上在D7+Win32环境下测试成功。