VB调用中间层的Demo，谢谢天狼的帮忙|APlayer 讨论区 - APlayer 开发者论坛

只看楼主倒序阅读使用道具楼主发表于: 2014-12-10

VB调用中间层的Demo，谢谢天狼的帮忙

论坛里有Aplayer调用中间层的代码，但是都是C和易语言的，今天在天狼的帮忙下，终于将VB代码的DEMO调试出来了。现发给大家参考。
其中DLL，采用本论坛里的“APlayer 中间层例子源码”中的DLL文件，http://aplayer.open.xunlei.com/bbs/read.php?tid=23189，下载将DLL跟代码放到同一个目录下，然后工程----引用---浏览”HttpStreamMiddleTier.dll“。播放的测试视频地址为”[url]http://f1.flv.kankan.xunlei.com/data/cdn_transfer/demo.hflv

附件设置隐藏，需要回复后才能看到!

分享到 淘江湖新浪 QQ微博 QQ空间开心人人豆瓣网易微博百度鲜果白社会飞信

离线2905924151

新手

只看该作者沙发发表于: 2014-12-10

主要代码如下：

'‘’‘’可以播放了，中间层对象要设置成全局，否则销毁了就没办法用
Dim test As New HttpStreamMiddleTierLib.MiddleTier

Private Sub Command1_Click()
Dim strURL As String
strURL = test.GetUrl("http://f1.flv.kankan.xunlei.com/data/cdn_transfer/demo.hflv")
Player1.Open (strURL)

End Sub

Private Sub Form_Load()
Shell "regsvr32 /s " & App.Path & "/APlayer.dll" '注册 AP DLLShell "regsvr32 /s " & App.Path & "/HttpStreamMiddleTier.dll"

End Sub

希望大家一起学习。