Enable webstreaming from https site too.(2)

fredvs · Aug 14, 2024 · 9abf67b · 9abf67b
1 parent a411f63
commit 9abf67b
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 12 deletions.
diff --git 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
@@ -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
@@ -458,8 +458,9 @@ install:
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <WindowIndex Value="1"/>
-        <TopLine Value="271"/>
-        <CursorPos X="3" Y="281"/>
+        <TopLine Value="260"/>
+        <CursorPos X="64" Y="288"/>
+        <ComponentState Value="1"/>
         <UsageCount Value="11"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>