PureBoard

Verfasst: **26.12.2013 21:22**

Hallo Leute,
habe die Sache wie folgt gelöst! Wenn ich Stop drücke endet der Movie und mit Aufruf startet das übergebene Movie. Muss die Sache noch ins Small MediaCenter integrieren, ansonsten läuft´s. Danke für eure Tips und würde mich über Verbesserungen und Anregungen freuen!

Code: Alles auswählen

EnableExplicit

ExamineDesktops()

Enumeration
  #PresentParent    
  #PresentChild
  
  #MediaGadget
  
  
  #APPCOMMAND_VOLUME_MUTE = 8
  #APPCOMMAND_VOLUME_DOWN
  #APPCOMMAND_VOLUME_UP
  #APPCOMMAND_MEDIA_NEXTTRACK
  #APPCOMMAND_MEDIA_PREVIOUSTRACK
  #APPCOMMAND_MEDIA_STOP
  #APPCOMMAND_MEDIA_PLAY_PAUSE
  #APPCOMMAND_MEDIA_PLAY = 46
  #APPCOMMAND_MEDIA_PAUSE
  #APPCOMMAND_MEDIA_RECORD
  #APPCOMMAND_MEDIA_FAST_FORWARD
  #APPCOMMAND_MEDIA_REWIND
  #APPCOMMAND_MEDIA_CHANNEL_UP
  #APPCOMMAND_MEDIA_CHANNEL_DOWN
EndEnumeration

Global   Hwd
Global MediaString$

Procedure MediaStreamerImWebGadget()
;   <Select name=selecta size=1 id=musica onchange=document.all.playera.Filename=document.all.musica.value;>
; <OPTION selected>::::::::: Choose Your Media Sample Here :::::::::</OPTION>
; <OPTION value="Stream URL or Full File Path Goes Here">My Video File </OPTION>
; <OPTION value="Stream URL or Full File Path Goes Here">My Audio File</OPTION>
; <OPTION value="Stream URL or Full File Path Goes Here">My Live Stream</OPTION>
; </Select>
; tmedia + "<OPTION value='"+MediaString$+"'>My Video File </fullscreen>"
; <BR> 
  MediaString$="F:\Videos\MyTrailer\Der Wolkenatlas\HD-Trailer Der Wolkenatlas.mp4"
    ; "path to WMP" "path to file" /fullscreen

  Define tmedia.s
  tmedia = " <body  topmargin=0 leftmargin=0 scroll='no'>"
  tmedia + "<OBJECT id='Player' width='100%' height='100%"
  tmedia + "'CLASSID='clsid:6BF52A52-394A-11d3-B153-00C04F79FAA6'>"
  tmedia + "<PARAM name='Url' "
  
  ;tmedia + "'F:\Videos\Aufnahmen\Aufnahme0001.avi'>"
  tmedia + "Value="
  tmedia + "'"+MediaString$+"'"


  tmedia + "name='mediaPlayer ' displaysize='4' autosize='-1' "
  tmedia + "bgcolor='darkblue' showControls='false'"
  tmedia + "<OBJECT id=playera height=100% width=100% classid=clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95>"
  tmedia + "<PARAM NAME='AutoStart' VALUE='True'>"
  tmedia + "<PARAM NAME='Balance' VALUE='False'>"
  tmedia + "<PARAM NAME='DisplaySize' VALUE='True'>"
  tmedia + "<PARAM NAME='Filename' VALUE=''>"
  tmedia + "<PARAM NAME='Mute' VALUE='False'>"
  tmedia + "<PARAM NAME='SelectionStart' VALUE='False'>"
  tmedia + "<PARAM NAME='SelectionEnd' VALUE='False'>"
  tmedia + "<PARAM NAME='ShowControls' VALUE='True'>"
  tmedia + "<PARAM NAME='ShowAudioControls' VALUE='True'>"
  tmedia + "<PARAM NAME='ShowDisplay' VALUE='False'>"
  tmedia + "<PARAM NAME='ShowPositionControls' VALUE='False'>"
  tmedia + "<PARAM NAME='Volume' VALUE='1'>"
  tmedia + "<PARAM NAME='AudioStream' VALUE='False'>"
  tmedia + "<PARAM NAME='AutoSize' VALUE='False'>"
  tmedia + "<PARAM NAME='AnimationAtStart' VALUE='False'>"
  tmedia + "<PARAM NAME='AllowScan' VALUE='False'>"
  tmedia + "<PARAM NAME='AllowChangeDisplaySize' VALUE='False'>"
  tmedia + "<PARAM NAME='AutoRewind' VALUE='True'>"
  tmedia + "<PARAM NAME='BaseURL' VALUE=''>"
  tmedia + "<PARAM NAME='BufferingTime' VALUE='5'>"
  tmedia + "<PARAM NAME='CaptioningID' VALUE=''>"
  tmedia + "<PARAM NAME='ClickToPlay' VALUE='True'>"
  tmedia + "<PARAM NAME='CursorType' VALUE='0'>"
  tmedia + "<PARAM NAME='CurrentPosition' VALUE='True'>"
  tmedia + "<PARAM NAME='CurrentMarker' VALUE='True'>"
  tmedia + "<PARAM NAME='DefaultFrame' VALUE='mainframe'>"
  tmedia + "<PARAM NAME='DisplayBackColor' VALUE='True'>"
  tmedia + "<PARAM NAME='DisplayForeColor' VALUE='16777215'>"
  tmedia + "<PARAM NAME='DisplayMode' VALUE='1'>"
  tmedia + "<PARAM NAME='Enabled' VALUE='-1'>"
  tmedia + "<PARAM NAME='EnableContextMenu' VALUE='False'>"
  tmedia + "<PARAM NAME='EnablePositionControls' VALUE='False'>"
  tmedia + "<PARAM NAME='EnableFullScreenControls' VALUE='False'>"
;   tmedia + "<PARAM NAME='EnableFullScreen' VALUE='False'>"
tmedia + "<PARAM NAME='fullScreen' VALUE='True'>"
  tmedia + "<PARAM NAME='InvokeURLs' VALUE='True'>"
  tmedia + "<PARAM NAME='EnableTracker' VALUE='False'>"
  tmedia + "<PARAM NAME='Language' VALUE='False'>"
  tmedia + "<PARAM NAME='PlayCount' VALUE='1'>"
  tmedia + "<PARAM NAME='PreviewMode' VALUE='False'>"
  tmedia + "<PARAM NAME='ShowStatusBar' VALUE='True'>"
  tmedia + "<PARAM NAME='TransparentAtStart' VALUE='False'>"
  tmedia + "</OBJECT>"
  SetGadgetItemText(#MediaGadget, #PB_Web_HtmlCode , tmedia)
EndProcedure

Procedure WinCB(hWnd, uMsg, wParam, lParam)
  Protected Result = #PB_ProcessPureBasicEvents
  Protected text.s
  
  Select uMsg
    Case #WM_APPCOMMAND
      Select (lParam >> 16) & $FFFF
        Case #APPCOMMAND_VOLUME_MUTE
          text = "Volume_Mute"
        Case #APPCOMMAND_VOLUME_DOWN
          text = "Volume_Down"
        Case #APPCOMMAND_VOLUME_UP
          text = "Volume_Up"
        Case #APPCOMMAND_MEDIA_NEXTTRACK
          text = "Media_NextTrack"
        Case #APPCOMMAND_MEDIA_PREVIOUSTRACK
          text = "Media_PreviousTrack"
        Case #APPCOMMAND_MEDIA_STOP
          End
          text = "Media_Stop"
        Case #APPCOMMAND_MEDIA_PLAY_PAUSE
          text = "Media_Play_Pause"
        Case #APPCOMMAND_MEDIA_RECORD
          text = "Media_Record"
        Case #APPCOMMAND_MEDIA_PLAY
          text = "Media_Play"
        Case #APPCOMMAND_MEDIA_FAST_FORWARD
          text = "Media_Fast_Forward"
        Case #APPCOMMAND_MEDIA_REWIND
          text = "Media_Rewind"
        Case #APPCOMMAND_MEDIA_CHANNEL_DOWN
          text = "Media_Channel_Down"
        Case #APPCOMMAND_MEDIA_CHANNEL_UP
          text = "Media_Channel_Up"
      EndSelect
      Debug text
      ProcedureReturn #True; ansonsten geht die Message weiter und weitere Player reagieren ;)
  EndSelect
  ProcedureReturn Result
EndProcedure
OpenWindow(#PresentParent,0,0,DesktopWidth(0),DesktopHeight(0),"Snipping Test",#PB_Window_Invisible)
OpenWindow(#PresentChild,0,0,DesktopWidth(0),DesktopHeight(0),"Snipping Test",#PB_Window_BorderLess|#PB_Window_Invisible,GetDesktopWindow_())

; OpenWindow(0, #PB_Ignore, #PB_Ignore, DesktopWidth(0), DesktopHeight(0), "")
Hwd = WebGadget(#MediaGadget, 0, 0, DesktopWidth(0), DesktopHeight(0),"" )

HideWindow(#PresentParent,1)
HideWindow(#PresentChild,0)


SetWindowCallback(@WinCB())

MediaStreamerImWebGadget()

Define Key.l
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow : Break
    Case #WM_KEYUP
      Debug "#KEYUP:   " + Str(EventwParam())
      Key.l = EventwParam()
      Select KEY
        Case 27   ; ESC => Velindos ENDE
;           CloseWindow(#PresentChild)
;           End
      EndSelect
      
  EndSelect
ForEver

Gruss ... Velindos

PureBoard

Small Mediacenter

Re: Small Mediacenter