YouTube Video

Submitted by GROL on 12 October, 2010 - 09:40

This demo shows how to display YouTube video by its URL. Video ID or entire URL can be changed. In the bottom part of the window you can see a list of requests made by Flash Player to show YouTube video.

Note. Flash Viewer Engine is needed.

Source archive: youtube.zip (0.6Mb)
 

 
Some sample source: 
procedure TForm3.Button1Click(Sender: TObject);
begin
  MemoURLs.Clear;
  FlashViewer.Movie := eURL.Text;
end;
 
procedure TForm3.FlashStorage1CheckURL(sender: TfeFlashList; URL: string; var Accept: Boolean);
begin
  Accept := false;
  if Pos('http://zzz', URL) = 0 then
    MemoURLs.Lines.Add(URL);
end;