Recent

Author Topic: Web stream PasLibVlc  (Read 517 times)

pcurtis

  • Sr. Member
  • ****
  • Posts: 351
Web stream PasLibVlc
« 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.
« Last Edit: October 18, 2020, 02:10:47 pm by pcurtis »
Windows 10 / Linux Mint 20
Laz 2.10.0
FPC 3.2.0

paweld

  • Full Member
  • ***
  • Posts: 248
Re: Web stream PasLibVlc
« Reply #1 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;  
Best regards
paweld

pcurtis

  • Sr. Member
  • ****
  • Posts: 351
Re: Web stream PasLibVlc
« Reply #2 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?
Windows 10 / Linux Mint 20
Laz 2.10.0
FPC 3.2.0

paweld

  • Full Member
  • ***
  • Posts: 248
Re: Web stream PasLibVlc
« Reply #3 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;
Best regards
paweld

pcurtis

  • Sr. Member
  • ****
  • Posts: 351
Re: Web stream PasLibVlc
« Reply #4 on: October 18, 2020, 12:51:49 pm »
Perfect. Thanks.
Windows 10 / Linux Mint 20
Laz 2.10.0
FPC 3.2.0

pcurtis

  • Sr. Member
  • ****
  • Posts: 351
Re: [SOLVED] Web stream PasLibVlc
« Reply #5 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?
« Last Edit: October 18, 2020, 02:38:17 pm by pcurtis »
Windows 10 / Linux Mint 20
Laz 2.10.0
FPC 3.2.0

 

TinyPortal © 2005-2018