• 27407阅读
  • 71回复

VB调用中间层的Demo,谢谢天狼的帮忙 [复制链接]

上一主题 下一主题
离线2905924151
 

只看楼主 倒序阅读 使用道具 楼主  发表于: 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
附件设置隐藏,需要回复后才能看到!
离线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


希望大家一起学习。
离线ygz2000

只看该作者 板凳  发表于: 2014-12-26
离线ygz2000

只看该作者 地板  发表于: 2014-12-26
能不能在这列出代码,因我用的不是VB
离线fancylau

只看该作者 4楼 发表于: 2015-03-03
可以网页调用么?
离线maiju

只看该作者 5楼 发表于: 2015-03-09
看看有哪些文件
离线王曦若剑

只看该作者 6楼 发表于: 2015-03-11
          
离线lizhongbo

只看该作者 7楼 发表于: 2015-03-20
看看是怎么做到的!
离线aduybbm

只看该作者 8楼 发表于: 2015-03-25
看看了,谢谢分享了
离线feiguohashao

只看该作者 9楼 发表于: 2015-04-09
看看了,谢谢分享了
快速回复
限100 字节
如果您提交过一次失败了,可以用”恢复数据”来恢复帖子内容
 
上一个 下一个