Lazarus

Programming => Graphics and Multimedia => Audio and Video => Topic started by: pcurtis on October 18, 2020, 02:06:31 am

Title: Web stream PasLibVlc
Post by: pcurtis on October 18, 2020, 02:06:31 am
How do I play a stream e.g. http://media-ice.musicradio.com/CapitalMP3 with PasLibVlc?

Thanks in advance.
Title: Re: Web stream PasLibVlc
Post by: paweld on October 18, 2020, 08:15:56 am
Code: Pascal  [Select][+][-]
  1. procedure TForm1.bPlayClick(Sender: TObject);
  2. var
  3.   murl: WideString;
  4. begin
  5.   murl:='http://media-ice.musicradio.com/CapitalMP3';
  6.   PasLibVlcPlayer1.Play(murl);
  7. end;
  8.  
  9. procedure TForm1.bStopClick(Sender: TObject);
  10. begin
  11.   PasLibVlcPlayer1.Stop();
  12. end;  
Title: Re: Web stream PasLibVlc
Post by: pcurtis on October 18, 2020, 10:46:24 am
Thanks. So easy.

While I've got your attention. Is it possible to show Goom or ProjectM?
Title: Re: Web stream PasLibVlc
Post by: paweld on October 18, 2020, 12:34:00 pm
Code: Pascal  [Select][+][-]
  1. procedure TForm1.bPlayClick(Sender: TObject);
  2. var
  3.   murl: WideString;
  4. begin
  5.   murl:='http://media-ice.musicradio.com/CapitalMP3';
  6.   //Goom
  7.   PasLibVlcPlayer1.StartOptions.Add('--audio-visual=goom');
  8.   //or projectM
  9.   {PasLibVlcPlayer1.StartOptions.Add('--audio-visual=projectm');}
  10.   //or others visualizers: dummy, scope, spectrum, spectrometer and vuMeter
  11.   {PasLibVlcPlayer1.StartOptions.Add('--audio-visual=visual');
  12.   PasLibVlcPlayer1.StartOptions.Add('--effect-list=VISUALIZATION-NAME'); //eg. PasLibVlcPlayer1.StartOptions.Add('--effect-list=dummy');}
  13.   PasLibVlcPlayer1.Play(murl);
  14. end;
Title: Re: Web stream PasLibVlc
Post by: pcurtis on October 18, 2020, 12:51:49 pm
Perfect. Thanks.
Title: Re: [SOLVED] Web stream PasLibVlc
Post by: pcurtis on October 18, 2020, 02:10:05 pm
Is there a correct procedure for starting to play / unloading the component?

There is a very long wait before the stream starts playing (with or without Goom). In VLC it is immediate.

*** UPDATE ***

OK. This is only in the IDE (Win 10). Are there setting I can tweak to help solve this problem?
TinyPortal © 2005-2018