Delphi formu içinde youtube videosu oynatma

Lord_Ares · Mesaj gönderen **Lord_Ares** » 03 May 2015 02:55

Muharrem hocamın ilk paylaştığı kod çalışmadı maalesef. Explorerı create ettiği ikinci kod çalıştı sanırım dediği gibi iteklemek gerekiyormuş

Thelvaci hocam sizin verdiğiniz iframeli örnek herhangi bir iteklemeye gerek duymadan çalıştı oda ilginç

)) Explorerın gariplikleri işte. AliZairov arkadaşımın kodu maalesef çalışmadı. Kullanacak arkadaşlar Muharrem hocamın ikinci paylaştığı örnek

Kod: Tümünü seç

[/Uses ComObj, ActiveX;

Procedure YouTube( VideoCode: String; WebBrowser : TWebBrowser; AutoPlay:Boolean );
var
  strIcerik  : String;
  sStream    : TStringStream;
  IEpp       : OleVariant;
begin
  WebBrowser.Navigate('about:blank');
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
  Application.ProcessMessages;
  strIcerik := ''
            + '<html><body>'
            + '<iframe width="854" height="510" src="https://www.youtube.com/embed/%EMBED%" frameborder="0" allowfullscreen></iframe>'
            + '</body></html> ';
  strIcerik := StringReplace(strIcerik, '%EMBED%', VideoCode, [rfReplaceAll]);

  if (VarIsEmpty(IEpp)) then
  begin
    IEpp := CreateOleObject('InternetExplorer.Application');
    WebBrowser.Silent := True;
    if Assigned(WebBrowser.Document) then
    begin
      sStream := TStringStream.Create;
      try
        sStream.WriteString(strIcerik);
        sStream.Position := 0;
        // NOT: uses'a ActiveX eklenecek... IPersistStreamInit için...
        (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(sStream));
      finally
        sStream.Free;
      end;
    end;

    IEpp.Quit;
    IEpp := UnAssigned;
  end;
end;

Ve Thelvacı hocamın paylaştığı kodları gönül rahatlığınla kullanabilirler. Çok teşekkür ederim yardımlarınız için.

Kod: Tümünü seç

Procedure YouTube( VideoCode: String; WebBrowser : TWebBrowser; AutoPlay:Boolean );
var
  strIcerik  : String;
  sStream   : TStringStream;
begin
  WebBrowser.Navigate('about:blank');
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
  Application.ProcessMessages;

  strIcerik := ''
            + '<html><body>'
            + '<iframe width="854" height="510" src="https://www.youtube.com/embed/%EMBED%" frameborder="0" allowfullscreen></iframe>'
            + '</body></html> ';
  strIcerik := StringReplace(strIcerik, '%EMBED%', VideoCode, [rfReplaceAll]);
  if Assigned(WebBrowser.Document) then
  begin
    sStream := TStringStream.Create;
    try
      sStream.WriteString(strIcerik);
      sStream.Position := 0;
      // NOT: uses'a ActiveX eklenecek... IPersistStreamInit için...
      (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(sStream));
    finally
      sStream.Free;
    end;
  end;
end;

mrmarman · Mesaj gönderen **mrmarman** » 03 May 2015 02:57

@mrmarman yazdı:Bazen eski otomobiller gibi explorer'i iteklemek gerekebiliyor...
Tecrübe ile sabittir bazı sistemlerde flash eklentisini tetiklemek için illaki de Explorer açmak gerekebiliyor.
Bunu da hiç bir işe yaramayan bir satır ile halledebiliyoruz. Bu satırı kaldırınca çalışmıyor ancak ekleyince çalışıyor. Bunu da normal explorer penceresinde çalışan ama delphi yakasında çalışmayan bir script nedeniyle keşfetmiştim. Anlamsız ama iş görüyor.

Lord_Ares yazdı:Muharrem hocamın ilk paylaştığı kod çalışmadı maalesef. Explorerı create ettiği ikinci kod çalıştı sanırım dediği gibi iteklemek gerekiyormuş

Lord_Ares · Mesaj gönderen **Lord_Ares** » 03 May 2015 03:05

Muharrem hocam garip değil mi, iframe ile yaptığımızda herhangi bir create işlemi olmaksızın çalışıyor, diğerinde ise create istiyor. Oysa ikiside aynı nesneyi kullanıyor. Diğerinde de aynı şeyi istemesi gerekir diye düşünürken şaşırttı bizi

))

Delphi Forum

Delphi formu içinde youtube videosu oynatma

Re: Delphi formu içinde youtube videosu oynatma

Re: Delphi formu içinde youtube videosu oynatma

Re: Delphi formu içinde youtube videosu oynatma