Flashvars mit COMate

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
Tur0k
Beiträge: 187
Registriert: 16.02.2009 21:41
Computerausstattung: 4.00 GB RAM, 2x 2.20Ghz, 340GB+500GB

Flashvars mit COMate

Beitrag von Tur0k »

Hi Community!

Wie kann ich Flashvars mit COMate für meinen JW FLV Player bestimmen?

Ich hab schon folgendes versucht:

Code: Alles auswählen

FlashObject\Invoke("SetProperty('flashvars', 'file=video.flv')")
In Javascript sieht das so aus:

Code: Alles auswählen

s1.addParam('flashvars','file=video.flv');
Mfg. Tur0k[/code]
buuh* :D
Benutzeravatar
Kiffi
Beiträge: 10714
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: Flashvars mit COMate

Beitrag von Kiffi »

Tur0k hat geschrieben:Wie kann ich Flashvars mit COMate für meinen JW FLV Player bestimmen?
keine Ahnung. Ich kenne nur die Browser-Variante. Wenn Du uns mal
einen Download-Link zum ActiveX nennen könntest...
Tur0k hat geschrieben:Ich hab schon folgendes versucht:

Code: Alles auswählen

FlashObject\Invoke("SetProperty('flashvars', 'file=video.flv')")
Was sagt denn COMate_GetLastErrorDescription()?

Grüße ... Kiffi
a²+b²=mc²
Benutzeravatar
Tur0k
Beiträge: 187
Registriert: 16.02.2009 21:41
Computerausstattung: 4.00 GB RAM, 2x 2.20Ghz, 340GB+500GB

Beitrag von Tur0k »

Ich verwende den Flash Player.

So sieht der Code aus:

Code: Alles auswählen

;/////////////////////////////////////////////////////////////////////////////////
;***COMate***  COM automation through iDispatch.
;*===========
;*
;*Flash demo.
;/////////////////////////////////////////////////////////////////////////////////

IncludePath "comate\"
XIncludeFile "COMatePLUS.pbi"



Define.COMateObject FlashObject

If OpenWindow(0, #PB_Ignore, #PB_Ignore, 440, 280, "PureJW Player") 
  
  ContainerGadget(0, 0, 0, 440, 280)

  FlashObject = COMate_CreateObject("ShockwaveFlash.ShockwaveFlash", GadgetID(0))

  If FlashObject
    FlashObject\Invoke("LoadMovie(#False,'flash\player-viral.swf')")
    FlashObject\Invoke("SetProperty('flashvars', 'file=video.flv')")

    Repeat
      result = FlashObject\GetIntegerProperty("ReadyState")
    Until Result = 4

    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
          Break
        Case #PB_Event_Gadget
          Select EventGadget()
          EndSelect
      EndSelect
    ForEver
    FlashObject\Release()
  Else
    MessageRequester("COM", "Couldn't create the ActiveX object!")
  EndIf
EndIf
buuh* :D
Benutzeravatar
Kiffi
Beiträge: 10714
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: Flashvars mit COMate

Beitrag von Kiffi »

Kiffi hat geschrieben:Was sagt denn COMate_GetLastErrorDescription()?
/:->

naja, ich habe jetzt mal selber nachgeschaut:
COMatePLUS hat geschrieben:Method/property not supported by this object.
erste Recherchen haben ergeben, dass es in diesem Shockwave-Player keine
SetProperty-Methode gibt. Das musst Du irgendwie anders regeln. Ich kenne
mich jetzt aber auch zu wenig mit diesem Flash-Zeux aus, als dass ich an
dieser Stelle wirklich weiterhelfen könnte.

Grüße ... Kiffi
a²+b²=mc²
Benutzeravatar
Tur0k
Beiträge: 187
Registriert: 16.02.2009 21:41
Computerausstattung: 4.00 GB RAM, 2x 2.20Ghz, 340GB+500GB

Beitrag von Tur0k »

Danke für deine Antwort!

Ich schau mal weiter nach.

Mfg. Tur0k
buuh* :D
Antworten