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 :
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
"Ich bin bekannt für meine Ironie. Aber auf den Gedanken, im Hafen von New York eine Freiheitsstatue zu errichten, wäre selbst ich nicht gekommen." - George Bernhard Shaw
