Entwickler-Ecke

Internet / Netzwerk - [TWebBrowser] Fehler, wenn Seite mit Video angezeigt wird


HelgeLange - Di 26.06.12 19:02
Titel: [TWebBrowser] Fehler, wenn Seite mit Video angezeigt wird
Hallo,

hab ein kleines Problem und finde keine Lösung (was wahrscheinlich mit meinen nicht-vorhandenen HTML-Expertenwissen zu tun hat).
Ich will in ein Programm eine TWebbrowser-Componente einbinden, die ein kleines Script lädt, welches nur ein Video anzeigt und abspielt. Im IE und Chrome funktioniert es ohne Probleme, in Delphi bekomme ich eine Fehlermeldung, aber nach dem Wegklicken geht es ohne Probleme.

Hier das script :


Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
 
  <head>
    <title></title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
    <script type="text/javascript" src="http://maf-components.com/plugins/content/avreloaded/swfobject.js"></script>
                <script type="text/javascript" src="http://maf-components.com/plugins/content/avreloaded/avreloaded.js"></script>
    <script type="text/javascript" src="http://maf-components.com/plugins/content/avreloaded/silverlight.js"></script>
    <script type="text/javascript" src="http://maf-components.com/plugins/content/avreloaded/wmvplayer.js"></script>
  </head>
  <body>
    <div>
      <span id="avreloaded0" class="allvideos"><ins><div id="warnflashavreloaded0" style="background-

color:red;color:white;width:160px;visibility:hidden"><strong>Adobe Flash Player not installed or older than 9.0.115!</strong><br/><a 

href="http://www.adobe.com/go/getflashplayer" onclick="window.open(this.href);return false;" onkeypress="window.open(this.href);return false;"><img src="http://maf-

components.com/plugins/content/avreloaded/160x41_Get_Flash_Player.jpg" alt="Get Adobe Flash Player here" style="border:0" /></a></div></ins></span><script 

type="text/javascript">
swfobject.embedSWF('http://maf-components.com/plugins/content/avreloaded/mediaplayer.swf','avreloaded0','640','480','9.0.115','http://maf-

components.com/plugins/content/avreloaded/expressinstall.swf',
{file:'http://maf-components.com/images/stories/videos/Tutorial_1.mp4',width:'640',height:'480',type:'flv',
showeq:'false',searchbar:'false',enablejs:'false',autostart:'false',showicons:'true',showstop:'false',showdigits:'true',
showdownload:'false',usefullscreen:'true',backcolor:'0xFFFFFF',frontcolor:'0x000000',
lightcolor:'0x000000',screencolor:'0x000000',overstretch:'false'}
,{allowscriptaccess:'always',seamlesstabbing:'true',allowfullscreen:'true',wmode:'window',bgcolor:'#FFFFFF',menu:'true'},
{id:'p_avreloaded0',styleclass:'allvideos'});
</script>
    </div>
  </body>
</html>


Das Video liegt auf meiner Webseite und dort ist ein plugin installiert, um Videos innerhalb der Webseite anzuzeigen.

Der Code zum Anzeigen innerhlab von Delphi ist wie folgt :


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
 
procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string) ;
var ms: TMemoryStream;
begin
   WebBrowser.Navigate('about:blank') ;
   while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
    Application.ProcessMessages;

   if Assigned(WebBrowser.Document) then
   begin
       ms := TMemoryStream.Create;
       try
         ms.LoadFromFile('D:\Test.html');
         ms.Seek(0, 0) ;
         (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;
       finally
         ms.Free;
       end;
   end;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
  WBLoadHTML(WebBrowser1, sHTML);
end;


Ich lade das HTML im Moment zum test von einer lokalen Datei, später wird es dynamisch erstellt.
Den Fehler, welcher auftritt, hänge ich als Datei an.

Hat einer eine Idee, was das sein könnte ?

Danke schonmal,
Helge


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!