From 9abf67b09853885a04d916df22b8532a2b7020ca Mon Sep 17 00:00:00 2001 From: fredvs Date: Wed, 14 Aug 2024 23:56:30 +0200 Subject: [PATCH] Enable webstreaming from https site too.(2) --- examples/main_wsp.lfm | 2 +- examples/main_wsp.pas | 14 +++++--------- examples/simplewebplayer.lpi | 5 +++-- 3 files changed, 9 insertions(+), 12 deletions(-) diff --git a/examples/main_wsp.lfm b/examples/main_wsp.lfm index ae1a281..6909589 100755 --- a/examples/main_wsp.lfm +++ b/examples/main_wsp.lfm @@ -85,7 +85,7 @@ object Form1: TForm1 OnCreate = FormCreate OnDestroy = FormDestroy Position = poDesktopCenter - LCLVersion = '3.0.0.3' + LCLVersion = '3.4.0.0' object Shape1: TShape Left = 10 Height = 216 diff --git a/examples/main_wsp.pas b/examples/main_wsp.pas index ef657ae..33dcdf3 100644 --- a/examples/main_wsp.pas +++ b/examples/main_wsp.pas @@ -283,9 +283,10 @@ procedure TForm1.Button1Click(Sender: TObject); form1.Caption := 'Simple Web Player. uos version ' + IntToStr(uos_getversion()); // Some audio web streaming + // edit4.text := 'https://radio.lotustechnologieslk.net:2020/stream/hirufmgarden'; // edit4.Text := 'http://broadcast.infomaniak.net:80/alouette-high.mp3'; - // edit4.text := 'http://broadcast.infomaniak.net/start-latina-high.mp3' ; - edit4.text := 'http://www.hubharp.com/web_sound/BachGavotteShort.mp3' ; + edit4.text := 'http://stream-uk1.radioparadise.com/mp3-128' ; + // edit4.text := 'http://www.hubharp.com/web_sound/BachGavotteShort.mp3' ; // edit4.text := 'http://www.jerryradio.com/downloads/BMB-64-03-06-MP3/jg1964-03-06t01.mp3' ; // edit4.text := 'https://sites.google.com/site/fredvsbinaries/guit_kungs.opus'; @@ -355,13 +356,8 @@ procedure TForm1.Button3Click(Sender: TObject); radiogroup1.Enabled := False; - {$if defined(cpuarm) or defined(cpuaarch64)} // need a lower latency - Out1Index := uos_AddIntoDevOut(PlayerIndex1, -1, 0.3, uos_InputGetSampleRate(PlayerIndex1, In1Index), - uos_InputGetChannels(PlayerIndex1, In1Index),samformat, -1, -1); - {$else} - Out1Index := uos_AddIntoDevOut(PlayerIndex1, -1, -1, uos_InputGetSampleRate(PlayerIndex1, In1Index), - uos_InputGetChannels(PlayerIndex1, In1Index), samformat, -1, -1); - {$endif} + Out1Index := uos_AddIntoDevOut(PlayerIndex1, -1, 0.8, uos_InputGetSampleRate(PlayerIndex1, In1Index), + uos_InputGetChannels(PlayerIndex1, In1Index), samformat, -1, -1); //// add a Output into device with custom parameters //////////// PlayerIndex : Index of a existing Player diff --git a/examples/simplewebplayer.lpi b/examples/simplewebplayer.lpi index 14a40b6..76af7e0 100755 --- a/examples/simplewebplayer.lpi +++ b/examples/simplewebplayer.lpi @@ -458,8 +458,9 @@ install: - - + + +