WMP läuft nicht unter PB 6.00
Verfasst: 27.07.2022 12:08
Hallo Leute!
WMP läuft unter PB 5.71 aber nicht unter PB 6.00.
Was ist da Anders? Vielleicht jemand eine Ahnung?
Beim Beispiel Media unbedingt Media mit Umlauten eintragen!!!
Gruss ... Velindos!
WMP läuft unter PB 5.71 aber nicht unter PB 6.00.
Code: Alles auswählen
; ------------------------------------------
Global mediaWeb
Global mediaWeb_graphX = 667
Global mediaWeb_GraphY = 279
; ------------------------------------------
Global WMP.IWebBrowser2
; ------------------------------------------
Global MediaString$ = "D:\[INFORMENT]\MP4\Fäaschtbänkler - Humpa Humpa.mp4"
; ------------------------------------
Procedure WMP_Player(GGadget,MediaString.s)
; -----------------------------
Protected HTML.s = ""
; ==========================================
;{ HTML KOPF
HTML + "<html>"
HTML + "<head>"
; Ist nicht immer da
; HTML + "<title>Windows Media Player</title>"
HTML + "<script type='text/javascript'>"
HTML + "var myVar = setInterval(function(){myTimer()},"+WMP_Player_Time+");"
HTML + "function myTimer() {"
HTML + "var MediaplayerStatus = MediaPlayer.playState;"
HTML + " document.getElementsByName('MeinTextFeld')[0].value = MediaplayerStatus ;"
HTML + " } "
HTML + "</script>"
HTML + "<style type='text/css'>"
HTML + "body {"
HTML + "overflow: hidden;"
HTML + "}"
HTML + "</style>"
HTML + "</head>"
HTML + "<body bgcolor=#000000 topmargin=0 leftmargin=0 >"
;}
; ==========================================
HTML + "<object id='mediaplayer' classid='clsid:22d6f312-b0f6-11d0-94ab-0080c74c7e95' codebase='http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#version=5,1,52,701' standby='loading microsoft windows media player components...' type='application/x-oleobject' width='"+GadgetWidth(GGadget)+"' height='"+GadgetHeight(GGadget)+"'>"
HTML + "<param name='filename' value='"+MediaString+"'>"
HTML + " <param name='animationatstart' value='true'>"
HTML + " <param name='transparentatstart' value='true'>"
HTML + " <param name='autostart' value='true'>"
HTML + " <param name='showcontrols' value='true'>"
HTML + " <param name='ShowStatusBar' value='true'>"
HTML + " <param name='windowlessvideo' value='true'>"
HTML + " <param name='color' value='#343121'>"
HTML + " <embed src='./test.wmv' autostart='true' showcontrols='true' showstatusbar='1' bgcolor='white' width='320' height='310'>"
HTML + "</object>"
; ==========================================
;{ HTML JAVA FUSS
HTML + "<//JAVA Abfrage>"
HTML + "<form action='cmd:data' method='get'>"
HTML + "<input type='text' name='MeinTextFeld' value='3' style='display:none'/>"
HTML + "<input type='submit' value='submit' style='display:none' >"
HTML + "</form>"
HTML + "</body>"
HTML + "</html>"
;}
; ==========================================
SetGadgetItemText(GGadget, #PB_Web_HtmlCode , HTML)
; -------------------------------
EndProcedure
; ------------------------------------
If OpenWindow(0, 0, 0, mediaWeb_graphX, mediaWeb_GraphY, "mediaWeb", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
; ========================================================================
mediaWeb = WebGadget(#PB_Any, 0, 0, mediaWeb_graphX, mediaWeb_GraphY, "")
; ------------------------------------
SetGadgetAttribute(mediaWeb, #PB_Web_BlockPopups,1)
; ------------------------------------
;{ [Skriptfehler] ausschalten
WMP.IWebBrowser2 = GetWindowLongPtr_(GadgetID(mediaWeb), #GWL_USERDATA)
If WMP.IWebBrowser2
WMP.IWebBrowser2\put_Silent(#True)
Else
WMP.IWebBrowser2\put_Silent(#False)
EndIf
;}
; ------------------------------------
WMP_Player(mediaWeb, MediaString$)
; ------------------------------------
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Beim Beispiel Media unbedingt Media mit Umlauten eintragen!!!
Gruss ... Velindos!