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

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 23:05

主要代码如下：

'‘’‘’可以播放了，中间层对象要设置成全局，否则销毁了就没办法用
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 10:23

ygz2000	2014-12-26 10:27
能不能在这列出代码，因我用的不是VB

fancylau	2015-03-03 21:47
可以网页调用么？

maiju	2015-03-09 01:58
看看有哪些文件

王曦若剑	2015-03-11 07:29

lizhongbo	2015-03-20 12:52
看看是怎么做到的！

aduybbm	2015-03-25 15:09
看看了，谢谢分享了

feiguohashao	2015-04-09 18:06
看看了，谢谢分享了

如梦	2015-05-07 03:48
你真好样，回复支持楼主！

nevcry	2015-05-22 21:32
2905924151:主要代码如下： '‘’‘’可以播放了，中间层对象要设置成全局，否则销毁了就没办法用 ....... (2014-12-10 23:05) 也来学习一下

oneday	2015-06-16 11:31
谢谢分享

bbvv77	2015-06-26 22:12
谢谢分享！！~

sunfom	2015-07-16 10:07
看看，学些！

ztlife	2015-08-23 13:52
学习下下

guo948699364	2015-08-28 21:46
可惜是VB的要是元元予以的就掉了

rroo	2015-09-27 21:32
好东西,要支持.

dwb1997	2015-10-01 16:11
终于等到了谢谢

tom	2015-10-14 16:22
下载下来看看，谢谢分享了

zyzsj	2015-11-07 18:46
看看支持一下！

zilong5688	2015-11-08 20:11
学习学习，谢谢

有妖气	2015-11-09 13:53
支持看看

xiangyabing	2015-11-15 23:53
看看了，谢谢分享了

sdp000	2016-01-09 14:05
看看中间层

edu007	2016-01-12 14:17
看看了，谢谢分享了

xiaowei3201	2016-01-12 20:52
感谢分享

qq875180	2016-01-15 00:37
看不懂呢!

qq1269560093	2016-02-18 19:20
谢谢您的源码

a21790736	2016-02-20 00:40
看看有哪些文件

qq1269560093	2016-02-20 10:53
aplayer.dll还是用的C:\Users\Public\Thunder Network\APlayer下的aplayer.dll 注册并没有用如果你删掉C:\Users\Public\Thunder Network\APlayer下的dll它还是运行不了

jake_jrc	2016-03-23 10:14
学习了。

zrz444	2016-04-30 18:39
看看是什么好代码

admiu	2016-05-10 13:37
VB调用中间层的Demo

admiu	2016-05-11 15:18
VB调用中间层的Demo,调试通过，进入下一步学习

walkerlh	2016-05-23 00:44
SDFASFSDAAFSDF

songzilong85	2016-07-09 08:01
大爱，谢谢LZ!

byweb	2016-08-13 19:12
谢谢分享，正需要

253357752	2016-09-16 16:38
看看了，谢谢分享了

jiangliu	2016-10-08 09:41
2905924151:主要代码如下： '‘’‘’可以播放了，中间层对象要设置成全局，否则销毁了就没办法用 ....... (2014-12-10 23:05) 看看是怎么做到的！

qq123456	2016-11-13 20:36
Re:VB调用中间层的Demo，谢谢天狼的帮忙

世枫	2016-12-08 09:29
看看了，谢谢分享了

jinyiquan	2016-12-10 04:45
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

yongping1215	2017-02-03 10:13
134

nyhzyl	2017-02-05 18:15
我要测试

gezhu	2017-10-25 10:38
我我要看看#51

lovexhg	2017-11-04 19:46
学习学习。

cherrybee	2018-07-21 18:04
下来看看好用不，

sunkejava	2018-07-29 17:46
看看怎么样

yncxyzb	2018-10-01 02:11
我要

查看完整版本: [-- VB调用中间层的Demo，谢谢天狼的帮忙 --] [-- top --]

Powered by phpwind v8.7 Code ©2003-2011 phpwind
Time 0.013724 second(s),query:0 Gzip enabled