Flash player izin verme

[Lord_Ares]

(05-10-2017, Saat: 14:30)QuAdR Adlı Kullanıcıdan Alıntı: İki ayrı stream var.Safari, android ve firefox için m3u diğer browserlar için java player seçilmiş.
Sadece videoyu izlemek istiyorsan direk olarak izleyebilirsin.Vlc activex kullanarak oynattım.
Resimdeki gibi:
https://pasteboard.co/GNvP7FJ.png

Webbrowserda istiyorsan clapper ı içeren bir html hazırlayıp lokal olarak delphi ile webbrowser a yükletip oynatabilirsin.
Resimdeki gibi:
https://pasteboard.co/GNvVZEB.png

QuAdR malesef ben yapamadım. Bunda da şöyle bir sorun çıktı,  eğer arka planda google chrome veye explorer ile siteyi açmazsam vlc playerda göstermiyor. Nasıl yaptığın paylaşırmısın. Ben mi hata yapıyorum ?

uses PasLibVlcPlayerUnit, PasLibVlcClassUnit, PasLibVlcUnit;

Var
 xVLCPlayer    : PasLibVlcPlayerUnit.TPasLibVlcPlayer;
 xVLCMediaList : PasLibVlcPlayerUnit.TPasLibVlcMediaList;

procedure TForm1.BitBtn2Click(Sender: TObject);
Var
 strLogo1, strLogo2 : String;
begin
 if xVLCPlayer    = nil
   then xVLCPlayer := TPasLibVlcPlayer.Create(nil);

 if xVLCMediaList = nil
   then xVLCMediaList := TPasLibVlcMediaList.Create(nil);

 with xVLCPlayer do
 begin
   Parent       := Panel1;
   Align        := alClient;
   AudioOutput  := PasLibVlcClassUnit.aoWaveOut;
   if xVLCMediaList.IsPlay then
   begin
     xVLCMediaList.Stop;
     xVLCMediaList.Clear;
   end;
   xVLCMediaList.Player := xVLCPlayer;
   Application.ProcessMessages;
   xVLCMediaList.Add('https://hls.tombalalive.com/tombalaFlash/smil:live.smil/playlist.m3u8');
   xVLCMediaList.PlayItem( xVLCMediaList.GetItemAtIndex(0) );
 end;

// Logo Yükleme
 strLogo1 := ExtractFilePath(Application.ExeName) + 'Logo\logo1.png';
 strLogo2 := ExtractFilePath(Application.ExeName) + 'Logo\logo2.png';
 if (FileExists( strLogo1 ) and FileExists( strLogo1  )) then
 begin
   xVLCPlayer.LogoShowFiles( [strLogo1, strLogo2] );
   xVLCPlayer.LogoSetPosition( libvlc_position_top_right );
 end;

 xVLCPlayer.SetAudioVolume( 50 );

 if TrackBar1 <> nil then
 begin
   TrackBar1.Min      := 0;
   TrackBar1.Max      := 100;
   TrackBar1.Position := 50;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
libvlc_dynamic_dll_init_with_path(ExtractFilePath(ParamStr(0)));
libvlc_dynamic_dll_init();
if (libvlc_dynamic_dll_error <> '') then
begin
  MessageDlg(libvlc_dynamic_dll_error, mtError, [mbOK], 0);
  exit;
end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 xVLCPlayer.SetAudioVolume( TTrackBar(Sender).Max - TTrackBar(Sender).Position );
end;
end.