vlc activex调用

本文详细介绍了在HTML页面及VC++环境中通过VLC的ActiveX插件进行流媒体播放的方法,特别是如何设置播放选项参数。通过具体代码示例展示了如何使用SAFEARRAY来传递多个选项。

 首先是在html页面调用:

第一种方式:下面直接给出的是调用函数

function doGo(targetURL, port)
{
 var options = new Array("vlc",
   ":input-repeat=1",
   ":aspect-ratio=704:480",
   "--no-drop-late-frames",
   "--no-overlay");
 document.vlc.playlistClear();
 document.vlc.addTarget(targetURL+":"+port+"/stream", options, 4+8, -666);       

};

第二种方式:vlc activex给出的范例页面

function doGo(targetURL)
{
    var vlc = document.getElementById("vlc");
    var options = new Array(":vout-filter=deinterlace", ":deinterlace-mode=linear");
    vlc.playlist.clear();
    //vlc.playlist.add(targetURL, null, options);
    vlc.playlist.add(targetURL);
    vlc.playlist.play();
    if( monitorTimerId == 0 )
    {
         monitor();
    }
};

 

其实是大同小异,只是一些引用方式的不一样。我们今天重点要讨论的是vc++中调用vlc的activex plugin,addTarget的第二个参数options在vc++里面如何实现。addTarget的第二个参数是VARIANT类型的,如何在vc++里面创建Array,并转化成VARIANT类型。

还是直接给出源码:

void CTestVlcDlg::OnConnect()
{
 HRESULT hr;
 SAFEARRAY *pSA;
 SAFEARRAYBOUND aDim[1];
 aDim[0].lLbound= 0;
 aDim[0].cElements= 3;     //下面需要用到多少个参数,修改这里
 int i;

 // create bstr safe array
 pSA= SafeArrayCreate(VT_BSTR,1,aDim);

 if (!pSA )
 {
  /// do something here on your own
  return;
 }

 BSTR HUGEP *pbstr;
 hr=SafeArrayAccessData(pSA,(void HUGEP**)&pbstr);
 if (FAILED(hr))
 {
  // do something to prevent further errors
  return;
 }

 // got options? tell vlc activeX about it 
 pbstr[0] = SysAllocString(OLESTR(":aspect-ratio=704:480"));
 pbstr[1] = SysAllocString(OLESTR(":no-overlay"));
 pbstr[2] = SysAllocString(OLESTR(":deinterlace-mode=linear"));

 SafeArrayUnaccessData(pSA);

 // well, the vlc.playlistClear(); is not important here, if you want to safe your playlist 
  m_pVlcCtrl->playlistClear();
  m_pVlcCtrl->stop();

 

// declare safe array as Variant
 CComVariant vOptions(pSA);

 VARIANT   zOptions;   
 zOptions.vt = VT_ARRAY|VT_UI1;
 zOptions.parray = pSA;

 int cOptionsCount;
    char **cOptions;
 if( FAILED(CreateTargetOptions(CP_UTF8, &zOptions, &cOptions, &cOptionsCount)) )
  return ;

 

 m_pVlcCtrl->addTarget ("rtsp://192.168.1.96:7889/stream", zOptions,4+8, -666);
 
  m_pVlcCtrl->play();
}

 

不再作详细的介绍,这段代码也是从网上找了很久的SAFEARRAY 操作,摸索很久才搞出来的,记录下来,相信以后还会用的到。

### 如何在 Delphi 中使用 VLC ActiveX 控件 #### 准备工作 为了能够在 Delphi 应用程序中集成 VLC ActiveX 插件,首先需要下载并安装适用于 Windows 的 VLC 媒体播放器。该媒体播放器包含了用于开发的 ActiveX 组件库。 #### 添加 VLC ActiveX 到工具面板 启动 Delphi IDE 后,可以通过组件板导入 VLC ActiveX 控件。选择菜单栏中的 `Component` -> `Import Component...` ,接着按照向导操作选取 `Microsoft ActiveX Control` 类型下的 “VideoLAN VLC MediaPlayer”[^2]。 #### 创建简单的多媒体应用程序界面 设计窗体布局时,将新加入到工具箱里的 TMediaplayer (即 VLC ActiveX 实例) 放置到合适位置,并调整大小适应需求;还可以添加一些按钮用来控制视频播放行为,比如打开文件、暂停/继续以及停止等。 #### 编写代码实现基本功能 下面给出一段基础示例代码展示如何利用 Delphi 脚本语言操纵 VLC ActiveX 进行本地音视频资源加载与回放: ```delphi unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, AxVLC; // 导入 VLC ActiveX 单元 type TForm1 = class(TForm) btnOpenFile: TButton; vlcPlayer: TVLCMediaPlayer; procedure FormCreate(Sender: TObject); procedure btnOpenFileClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin vlcPlayer.Parent := Self; end; procedure TForm1.btnOpenFileClick(Sender: TObject); var OpenDialog : TOpenDialog; begin OpenDialog := TOpenDialog.Create(nil); try if OpenDialog.Execute then vlcPlayer.Media.Add(OpenDialog.FileName); // 加载选定路径下的媒体文件作为输入源 vlcPlayer.Play(); // 开始播放指定的音频或视频片段 finally FreeAndNil(OpenDialog); end; end; end. ``` 上述代码展示了创建一个带有“打开文件”按钮和 VLC 播放区域的基础窗口表单的过程。当点击按钮触发事件处理函数后会弹出文件选择对话框让用户挑选想要观看的内容,之后再调用相应的 API 方法完成实际的数据读取及渲染任务。 需要注意的是,虽然 VLC 提供了一定程度上的自定义选项配置能力,但对于某些高级特性的访问可能仍然存在局限性,例如无法直接获取当前正在播放项目的精确长度信息等问题。
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值