Delphi-PRAXiS - Youtube im TWebBrowser unter 10.1

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Multimedia (https://www.delphipraxis.net/16-multimedia/)

- - Youtube im TWebBrowser unter 10.1 (https://www.delphipraxis.net/194522-youtube-im-twebbrowser-unter-10-1-a.html)

Youtube im TWebBrowser unter 10.1

Irgendwann hatte ich mal für mein Changelog zusätzliche RTF-Texte und angehängte youtube videos programmiert. Das ging unter damals Delphi 2007 recht schön.

Unter 10.1 nichts mehr, bleibt einfach schwarz.

Hab schon rumgebaut und in der Registry den Default IE6 rendermodus auf IE9 etc, aber nichts hilft.

Hat jemand eine idee ?

Mein augenblicklicher code sieht so aus :

Code:

			<html>

<head>

</style>

    <style type="text/css">.recentcomments a{display:inline !important;padding:0 !important;margin:0 !important;}</style>

</head>

<body>

  <object width="640" height="390">

  <param name="movie" value="//www.youtube.com/embed/ixw_bLVUL34">

  </param><param name="allowFullScreen" value="true">

  </param><param name="allowScriptAccess" value="always">

  </param><embed src="http://www.youtube.com/embed/ixw_bLVUL34" type="application/x-shockwave-flash" allowfullscreen="true" allowScriptAccess="always" width="640" height="390">

  </embed></object>

</body>

</html>

Den hier hab ich auch probiert, aber nichts :

Code:

			<!DOCTYPE html>

<html>

<body>

<iframe width="420" height="315" src="//www.youtube.com/embed/ixw_bLVUL34" frameborder="0" allowfullscreen>

  <p>Your browser does not support iframes.</p>

</iframe>

</body>

</html>

AW: Youtube im TWebBrowser unter 10.1

Bist du wirklich sicher dass du das mit dem IE-Modus richtig gemacht hast?

Geh mit deiner Anwendung doch mal auf

https://www.whatismybrowser.com/
und prüfe das.

AW: Youtube im TWebBrowser unter 10.1

Sieht so aus, er sagt IE 11 auf Windows 10, Internet Explorer 9 Compatibility View
Und Flash 27 installiert.
Screenshot angehängt

AW: Youtube im TWebBrowser unter 10.1

Abgesehen von mehreren Syntax-Fehlern im ersten Beispiel fällt mir auch sonst nichts auf.

Ich kenne mich damit nicht aus, sehe aber bspw. dass dieses Beispiel hier funktioniert, selbst wenn man kein Flash installiert hat:

http://www.java2s.com/Code/HTMLCSS/O...withobject.htm

AW: Youtube im TWebBrowser unter 10.1

Das Beispiel geht im webbrowser, aber in Delphi bleibt das Viereck, wo das Videos ein sollte, schwarz :(

AW: Youtube im TWebBrowser unter 10.1

Wenn ich auf YouTube.com ein Video schaue und unterhalb des Frames auf Teilen und dann Einbetten klicke, dann stellt mir Youtube einen Code wie diesen zur Verfügung:

Code:

			<iframe width="560" height="315" src="https://www.youtube.com/embed/MxDZnsctsSo" frameborder="0" allowfullscreen></iframe>
		

Wenn ich diesen Code nutze, in eine Webseite einbaue und dann diese Webseite mit neustem Delphi (10.2 Update 1/Windows 10) via TWebBrowser aufrufe, dann werden js-Skript Fehlermeldungen angezeigt und das Anzeigefenster bleibt schwarz.

Wenn ich direkt nach <head>

<meta http-equiv="X-UA-Compatible" content="IE=edge" />

einbaue, dann wird das Video ohne Meldungen korrekt angezeigt.

Webseite:

Code:

			<?xml version="1.0" ?>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"

    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">

<head>

<meta http-equiv="X-UA-Compatible" content="IE=edge" />

  <title>Adding a YouTube Video</title>

</head>

<body>

<iframe width="560" height="315" src="https://www.youtube.com/embed/MxDZnsctsSo" frameborder="0" allowfullscreen>

</iframe>

</html>

Aufruf via Delphi:

Delphi-Quellcode:

webbrowser1.Navigate2( 'C:\Users\Michael\Desktop\check.html' );

Klappt es bei dir auch?

AW: Youtube im TWebBrowser unter 10.1

Zitat:

Zitat von Michael II (Beitrag 1387840)

Wenn ich auf YouTube.com ein Video schaue und unterhalb des Frames auf Teilen und dann Einbetten klicke, dann stellt mir Youtube einen Code wie diesen zur Verfügung:

Code:

			<iframe width="560" height="315" src="https://www.youtube.com/embed/MxDZnsctsSo" frameborder="0" allowfullscreen></iframe>
		

Code:

			<?xml version="1.0" ?>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"

    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">

<head>

<meta http-equiv="X-UA-Compatible" content="IE=edge" />

  <title>Adding a YouTube Video</title>

</head>

<body>

<iframe width="560" height="315" src="https://www.youtube.com/embed/MxDZnsctsSo" frameborder="0" allowfullscreen>

</iframe>

</html>

Aufruf via Delphi:

Delphi-Quellcode:

webbrowser1.Navigate2( 'C:\Users\Michael\Desktop\check.html' );

Klappt es bei dir auch?

Das funktioniert sehr gut. Genau, was ich suchte :) Danke!!

AW: Youtube im TWebBrowser unter 10.1

Herrgott jenes Formular in dem Video! Formular-Designer klagt auf Schmerzensgeld.