Есть ли другой способ просмотра видео YouTube на Delphi? - PullRequest
Новая
       20

Есть ли другой способ просмотра видео YouTube на Delphi?

2 голосов
/ 14 октября 2010

Я вижу http://www.delphiflash.com/demo-youtube-video о том, как загрузить флэш-видео на Delphi, но это не бесплатно. есть ли другой способ?

как HTML, а затем TWebBroeser?

sampleVideo.html // это не будет работать на TwebBrowser, есть ли другой способ? 

<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="http://www.youtube.com/v/L7NWdxFAHdY&hl=en_US&feature=player_embedded&version=3">
  </param><param name="allowFullScreen" value="true">
  </param><param name="allowScriptAccess" value="always">
  </param><embed src="http://www.youtube.com/v/L7NWdxFAHdY&hl=en_US&feature=player_embedded&version=3" type="application/x-shockwave-flash" allowfullscreen="true" allowScriptAccess="always" width="640" height="390">
  </embed></object>
</body>
</html>

Ответы [ 2 ]

5 голосов
/ 14 октября 2010

Я протестировал ваш HTML-код и работает нормально в TWebBrowser

Попробуйте этот пример кода, протестированный в Delphi 7 и Delphi 2007 

uses
ActiveX;

procedure TForm1.Button1Click(Sender: TObject);
begin
   LoadHtml(
            '<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="http://www.youtube.com/v/L7NWdxFAHdY&hl=en_US&feature=player_embedded&version=3"> '+
            '  </param><param name="allowFullScreen" value="true"> '+
            '  </param><param name="allowScriptAccess" value="always"> '+
            '  </param><embed src="http://www.youtube.com/v/L7NWdxFAHdY&hl=en_US&feature=player_embedded&version=3" type="application/x-shockwave-flash" allowfullscreen="true" allowScriptAccess="always" width="640" height="390"> '+
            '  </embed></object> '+
            '</body> '+
            '</html> '
            );
end;


procedure TForm1.LoadHtml(HTMLStr: String);
var
  aStream     : TMemoryStream;
begin
   WebBrowser1.Navigate('about:blank');//reset the webbrowser
   while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do //wait to load the empty page
   Application.ProcessMessages;

    if Assigned(WebBrowser1.Document) then
    begin
      aStream := TMemoryStream.Create;
      try
         aStream.WriteBuffer(Pointer(HTMLStr)^, Length(HTMLStr));
         aStream.Seek(0, soFromBeginning);
         (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(aStream));
      finally
         aStream.Free;
      end;
    end;
end;
4 голосов
/ 14 октября 2010

Это определенно работает. Я попробовал это в моем приложении (ClipMate), которое является приложением буфера обмена, написанным на Delphi2007. Он может показать любой текстовый клип как HTML с помощью TWebBrowser. Я скопировал ваш пример HTML, просмотрел его как HTML в ClipMate, и суррогатный трейлер запустился. Вот - ваш HTML-рендеринг в TWebBrowser, в приложении Delphi. Этот же код работал в D5, D7, D2007, и я подтверждаю, что он работает в D2009, D2010. См .: http://www.thornsoft.com/images/support/YoutubeClipMate.pngalt text

...