WMP läuft nicht unter PB 6.00

Velindos · Beitrag von **Velindos** » 27.07.2022 12:08

Hallo Leute!

WMP läuft unter PB 5.71 aber nicht unter PB 6.00.

; ------------------------------------------
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

Was ist da Anders? Vielleicht jemand eine Ahnung?

Beim Beispiel Media unbedingt Media mit Umlauten eintragen!!!

Gruss ... Velindos!

ccode_new · Beitrag von **ccode_new** » 28.07.2022 21:30

Hallöchen,

ich habe mal deinen geposteten Code korrigiert.

Code: Alles auswählen

; ------------------------------------------
Global mediaWeb
Global mediaWeb_graphX = 667
Global mediaWeb_GraphY = 279
; ------------------------------------------
Global WMP.IWebBrowser2
; ------------------------------------------
Global MediaString$ = "D:\[INFORMENT]\MP4\F&Auml;aschtbänkler - Humpa Humpa.mp4" ;Html-Zeichen bitte!

; ------------------------------------
Procedure WMP_Player(GGadget,MediaString.s)
  ; -----------------------------
  Protected HTML.s = ""
  ; ==========================================
  ;{ HTML KOPF
  HTML + "<html>"
  HTML + "<head>"
  HTML + ~"<meta charset=\"UTF-8\">" ;->Oder verwende UTF8-Unterstützung im HTML-Script
  ; 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

*Finde die Änderungen

Velindos · Beitrag von **Velindos** » 01.08.2022 06:51

Hallo ccode_new!

Das muss man mal Wissen, DANKE!

Gruss ... Velindos!

PureBoard

WMP läuft nicht unter PB 6.00

WMP läuft nicht unter PB 6.00

Re: WMP läuft nicht unter PB 6.00

Re: WMP läuft nicht unter PB 6.00