Video Streaming Youtube dengan Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Key : Cara membuat Video Streaming dengan delphi. Saya akan share bagaimana membuat video Youtube bisa dijalankan dengan menggunakan program Delphi seperti TV online gitu lah tapi ini khusus untuk Video Youtube, Intinya menjalanka atau memutar Video dari Youtube secara streaming. Coding ini ane dapet dari blog negara sebelah dari sebuah Forum, dan disini saya akan mengShare ulang yang khususnya bagi orang Indo.

Komponennya Tambahkan WebBrowser dan Button dulu., dan kalau sudah kita Langsung Ke Coding :

Langkah Pertama Tambahkan ActiveX pada Uses (Disebut apaan ayo itu namanya ?)

>> uses ActiveX;

Kedua buat sebuah prosedure :

>> procedure LoadHtml(HTMLStr: String);

coding untuk prosedure LoadHTML adalah Sbb :

procedure TForm1.LoadHtml(HTMLStr: String);
var
aStream     : TMemoryStream;
begin
   WebBrowser1.Navigate('about:blank');
   while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do
   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;

Seterusnya Pada Button Tambahkan Coding Berikut :

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="550" height="390"> '+
         ' <param name="movie" value="http://youtube.com/v/KT-nA4uAa5s&feature=player_embedded&version=3"> '+
            ' </param><param name="allowFullScreen" value="true"> '+
            ' </param><param name="allowScriptAccess" value="always"> '+
            ' </param><embed src="http://youtube.com/v/KT-nA4uAa5s&feature=player_embedded&version=3" type="application/x-shockwave-flash" allowfullscreen="true" allowScriptAccess="always" width="550" height="390"> '+
            ' </embed></object> '+
            '</body> '+
            '</html> '
            );
end;

Yang warna biru itu adalah link URL dari Videonya,misalkan anda mau menggantinya caranya adalah :

Misal anda mempunya alamat URL, http://www.youtube.com/watch?feature=player_detailpage&v=KT-nA4uAa5s

maka anda rubah menjadi :

http://youtube.com/v/T-nA4uAa5s

Coba perhatikan ya jangan ampe salah.

dan ini untuk listing lengkapnya :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, StdCtrls, SHDocVw, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure LoadHtml(HTMLStr: String);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses ActiveX;
{$R *.dfm}
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;

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>  '+
            '  <img src="//img2.blogblog.com/img/video_object.png" style="background-color: #b2b2b2; height: 390px; width: 550px; " class="BLOGGER-object-element tr_noresize tr_placeholder" id="BLOGGER_object_0" data-original-id="BLOGGER_object_0" /> '+
            '</body> '+
            '</html> '
            );
end;

end.

Silahkan Simak, sekian dan Terima kasih...

Pages

Xtreme23Koe

----------------------

----------------------

Untuk Label

Video Streaming Youtube dengan Delphi

Ditulis Oleh : Antas Delphi ~ Blogger

0 comments:

Post a Comment

My Facebook

^Minta Like Donk^