ShockwaveFlash fragen

[autoit]

#include <IE.au3>
#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $lastURL = ""
$IEGUI = GUICreate("WebRadio",400,400)

[/autoit] [autoit][/autoit] [autoit]

$oAFP = _flashcreate(1, 1, 1, 400, 400)

[/autoit] [autoit][/autoit] [autoit]

;~ _flashvalue($oAFP, "Play")

[/autoit] [autoit][/autoit] [autoit]

_flashloadmedia($oAFP, "http://www.jeroenwijering.com/embed/player.swf")

[/autoit] [autoit][/autoit] [autoit]

;~ $oIE = _IECreateEmbedded()

[/autoit] [autoit][/autoit] [autoit]

;~ $GuiIE = GUICtrlCreateObj($oIE,0,0,100,100)
GUISetState()
_flashvalue($oAFP, "Play")
;~ GUICtrlCreateObj($oIE,0,0)

[/autoit] [autoit][/autoit] [autoit]

$Vars = ""

[/autoit] [autoit][/autoit] [autoit]

$File = "http://myvideo-356.vo.llnwd.net/d3/movie7/b3/3237357.flv"
$w = 400
$h = 400
$image = "http://is1.myvideo.de/movie6/39/thumbs/2932171_1.jpg"

[/autoit] [autoit][/autoit] [autoit]

If $file Then $Vars &= "&file=" & $file
If $w Then $Vars &= "&width=" & $w
If $h Then $Vars &= "&height=" & $h
If $image Then $Vars &= "&image=" & $image

[/autoit] [autoit][/autoit] [autoit]

; Weiter Eigenschaften nach diesem Schema von http://www.jeroenwijering.com/?item=Supported_Flashvars adden

[/autoit] [autoit][/autoit] [autoit]

$oAFP.FlashVars = StringTrimLeft($Vars,1)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(1000)
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;----------------------------------
;------Adobe Flash Functions-------
;----------------------------------

[/autoit] [autoit][/autoit] [autoit]

#cs
_flashcreate($show, $left, $top, $width = 100, $height = 100)
$show: 1 = creates the control
2 = doesn't create the control

[/autoit] [autoit][/autoit] [autoit]

Return: The object for the control
#ce
Func _flashcreate($show, $left, $top, $width = 100, $height = 100)
If FileFindFirstFile(@SystemDir & "\Macromed\Flash\flash*.ocx") = -1 Then
$Value = MsgBox(20, "Error", "It seems that you don't have Flash Player installed. Please download" & @CRLF & "it from http://www.adobe.com. Do you want to go there now?")
If $Value = 6 Then
ShellExecute("www.adobe.com")
EndIf
Exit
EndIf
$i = 10
Do
$i -= 1
$oFlash = ObjCreate("ShockwaveFlash.ShockwaveFlash." & $i)
Until Not @error Or $i < = 0

If $oFlash = 0 Then Return 0
If $show = 1 Then
GUICtrlCreateObj($oFlash, $left, $top, $width, $height)
EndIf
Return $oFlash
EndFunc
#cs
_flashloadmedia($object, $URL)
$object: Object returned from the _flashcreate()
$URL: Path or URL of the media
Return: None
#ce
Func _flashloadmedia(ByRef $object, $URL)
$object.LoadMovie(0, $URL)
EndFunc
#cs
_flashsetvalue($object, $setting)
$object: Object returned from the _flashcreate()
$setting: "play"
"stop"

[/autoit] [autoit][/autoit] [autoit]

Return: None
#ce
Func _flashvalue(ByRef $object, $setting)
Select
Case $setting = "play"
$object.play()
Case $setting = "stop"
$object.stop()
EndSelect
EndFunc

[/autoit]