各位老师ShockwaveFlash1控件怎样关联Flash.res文档 - 编程论坛

#2

wube2012-02-16 01:30

LoadResData 函数
http://www10.zzu.

#3

ymhy123452012-02-16 10:25

回复 2楼 wube

代码怎么写？？？？

#4

mayuebo2012-02-16 13:36

用flash控件播放swf文件,只需要在窗体上放一个flash控件,然后把控件的url属性设置为swf的url,然后控件名.play就行

#5

ymhy123452012-02-16 15:57

回复 4楼 mayuebo

代码怎么写才能用SWF播放网络FLV

#6

mayuebo2012-02-16 17:18

在窗体上放一个FLASH控件,名字叫ShockwaveFlash1

不要告诉我,FLASH控件怎么放呀

Private Sub Form_Load()
ShockwaveFlash1.Movie = "http://imgfree.
ShockwaveFlash1.Play
End Sub

#7

ymhy123452012-02-16 18:32

回复 6楼 mayuebo

老师，你这个是播放SWF的，不支持播放网络FLV，我是想用RES资源文件播放网络FLV，

程序代码：

Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Dim tempfile As String

Public Sub LoadM(ByVal flvfile As String)
flvfile = tempfile & "?file=" & flvfile
flvfile = Replace(flvfile, "\", "/")

ctrl.FlashVars = "autostart=true"

Call ctrl.LoadMovie(0, flvfile)
End Sub

Private Sub Form_Load()
Dim Buf As String * 128
Dim Value As Integer
Value = GetTempPath(128, Buf)
tempdir = Left(Buf, Value)

Randomize Timer
tempfile = tempdir & Int(Rnd * 100000) + 187
extractress tempfile
End Sub

Private Sub OpenFile_Click()
With dlg
.DefaultExt = "flv"
.Filter = "Flash video file (*.flv)|*.flv"
.Flags = cdlOFNExplorer
End With
dlg.ShowOpen
If dlg.FileName = "" Then Exit Sub
LoadM (dlg.FileName)
End Sub

Public Sub extractress(nom_fich As String)
Dim tab_ani() As Byte
Open nom_fich For Binary Access Write As 1
tab_ani = LoadResData(101, "CUSTOM")
ReDim Preserve tab_ani(UBound(tab_ani))
Put 1, , tab_ani
Close 1
End Sub

看图这个源码+上面哪个RES文件可以播放本地FLV，我是想用上面哪个RES资源文件播放网络FLV，代码怎么写？？？？

#8

wube2012-02-17 13:20

你要有的FLV的解码器源代码～
再把你的Res档产生出来～
用解码器去转译播放～

#9

ymhy123452012-02-20 15:53

回复 8楼 wube

要是俺有FLV解码源码，俺就不上来问，等了几天了，问题未解决，未解决

。俺曾经想用FLVSplitter.ax来解码，调用系统播放器来播放，代码怎么写

#10

wube2012-02-20 23:06

回复 9楼 ymhy12345

C++
http://www.
VB6
http://www.