• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

【Delphi】从内存(MemoryStream)使用WMP(WindowsMediaPlayer)控件播放视频音频(Pl ...

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

关键字: MemoryStream、WMP、WindowsMediaPlayer、Play 、Load、 Delphi、C++、C#、ActiveX控件

作  者: CaiBirdy

问  题:正常使用WindowsMediaPlayer控件的URL属性可以很方便播放音视频,但是在独立桌面软件中,这种方式的URL必须是一个本地文件,但是有些特殊应用中,对音视频文件加密保护,且要求只能播放,但不能拷贝,即使拷贝了也是无法播放的文件(因为文件被加密处理了),同时要求播放过程中不能在本地生成临时文件。

 

这个问题对没有经验的开发者而言会很容易被难倒,因为要完全开发一个播放器去集成到应用中显得很不现实,而WindowsMediaPlayer又不提供从内存流播放的方法,在网上搜索资料又很少涉及这方面的,其实有一个很简单的方法去解决这个问题,那就是利用URL这个属性最原始的定义,URL是一个地址路径,不仅支持本地路径,也支持HTTP路径,因此可以实现一个简易的HTTP服务器来供WindowsMediaPlayer加载即可。

 

而HTTP服务器的源码要比播放器的源码来得简单多,网上一搜就出来,而且更容易懂,也更容易集成开发,建议没有特殊要求的情况下使用Indy控件包中的TIdHTTPServer即可。

 

以下是Delphi实现的代码

 

该方法唯一的问题是,启动HTTP服务器时,会被系统或杀毒软件警告!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
  FMemoryStream: TStream;
   
procedure TForm1.FormCreate(Sender: TObject);
begin
  IdHTTPServer1.Active := True;
  FMemoryStream:=TMemoryStream.Create;
  TMemoryStream(FMemoryStream).LoadFromFile(ExtractFilePath(ParamStr(0))+'sample.mp3');
end;
   
procedure TForm1.FormDestroy(Sender: TObject);
begin
  IdHTTPServer1.Active := False;
  FMemoryStream.Free;
end;
   
procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  if Pos('sample.mp3', AResponseInfo.Document)>0 then
  begin
    AResponseInfo.ContentStream := FMemoryStream;
    AResponseInfo.FreeContentStream := False;
  end;
end;
   
procedure TForm1.Button1Click(Sender: TObject);
begin
    WindowsMediaPlayer1.URL := 'http://127.0.0.1:80/sample.mp3';
end;
 

由于使用TMemoryStream不适合大文件,不然内存直接撑爆了,所以可以将视频文件加密缓存在其他地方(本地硬盘,或从服务器/数据库获取片段),再自己实现一个TStream来读取即可。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
DelphiFileListBox组件发布时间:2022-07-18
下一篇:
DELPHI修改系统分辨率发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap