11.11.2024 15:33
[#13]
Re: Program so słuchania radia na amidze.
@Wankowicz, post #1
DAPlayer też ładnie odtwarza strumienie.
Możesz też spróbować FFPlay 68K, ale on nie chwyta plików playlisty, musisz podać adres URL jako parametr w CLI. Niestety przydała by się nowa zoptymalizowana wersja, bo ta na Aminecie bardzo obciąża procesor.
Ostatnia aktualizacja: 11.11.2024 15:42:03 przez Ponki1986
Możesz też spróbować FFPlay 68K, ale on nie chwyta plików playlisty, musisz podać adres URL jako parametr w CLI. Niestety przydała by się nowa zoptymalizowana wersja, bo ta na Aminecie bardzo obciąża procesor.
Ostatnia aktualizacja: 11.11.2024 15:42:03 przez Ponki1986
13.11.2024 10:38
[#17]
Re: Program so słuchania radia na amidze.
@Ponki1986, post #13
Chcę napisać skrypt, który będzie wyciągał z playlisty adres URL do streamu aby przekazać go dalej dla FFPlay. Niestety przydała by się do tego mała pchełka uruchamiana w CLI aby przeszukiwała plik .pls w celu znalezienia ciągu File1=, a następnie mogła by całą linijkę kopiować do innego pliku lub wyświetlić w oknie CLI. W tedy można również użyć przekierowania do pliku. Kojarzy ktoś taki program?
15.11.2024 16:04
[#22]
Re: Program so słuchania radia na amidze.
@Wankowicz, post #1
Chciałbym podzielić się z Wami skryptem, który podpiąłem u siebie pod def_ikonę reprezentującą plik .pls. Oczywiście wszytko ma związek z programem TuneFinder i internetowymi strumeniami radia.
Aby skrypt zadzaiałał poprawnie wymagane są:
GSAR - http://m68k.aminet.net/package/util/cli/gsar-1.21
GetSize - http://m68k.aminet.net/package/util/wb/getsize14
FullName - http://m68k.aminet.net/package/util/cli/fullname
CheckKey - http://m68k.aminet.net/package/util/batch/CheckKey
FirstLine - http://m68k.aminet.net/package/util/cli/firstline
CLIExchange - http://m68k.aminet.net/package/util/sys/CLIExchange
WBRUN - jest na Aminecie jakaś wersja, moja jest chyba z BoingBaga
OpenRADIO
Start-AmigaAMP.rexx
Stream-AMPlifier.rexx
Oczywiście skrypt należy edytować pod swój system i podać poprawne ścieżki do AmigaAMP, AmiNetRadio, AMPlifier, DAPlayer oraz FFPlay. Strumienie HTTPS są w stanie odtworzyć AmigaAMP oraz DAPlayer. Polecenia CheckKey użyłem w celu wywołania requestera z możliwością wyboru programu, który ma być użyty do odtworzenia strumienia. Domyślnie ustawiłem klawisz SHIFT. Trzymając go wciśniętego w chwili klikania w ikonkę z playlistą spowoduje otwarcie okna wyboru, w przeciwnym razie domyślnie podany jest AmigiAMP. Skrypt nie podaje programowi aby otworzył plik .pls, lecz wyciąga z niego bezpośrednio adres strumienia. Życzę miłego słuchania radia.
Ostatnia aktualizacja: 15.11.2024 16:20:18 przez Ponki1986
Aby skrypt zadzaiałał poprawnie wymagane są:
GSAR - http://m68k.aminet.net/package/util/cli/gsar-1.21
GetSize - http://m68k.aminet.net/package/util/wb/getsize14
FullName - http://m68k.aminet.net/package/util/cli/fullname
CheckKey - http://m68k.aminet.net/package/util/batch/CheckKey
FirstLine - http://m68k.aminet.net/package/util/cli/firstline
CLIExchange - http://m68k.aminet.net/package/util/sys/CLIExchange
WBRUN - jest na Aminecie jakaś wersja, moja jest chyba z BoingBaga
OpenRADIO
; $VER: Open Radio Stream 1.0 (14.11.2024)
.KEY FILENAME
.BRA {
.KET }
FAILAT 11
FULLNAME {FILENAME} >ENV:OPEN
IF WARN
FAILAT 21
DELETE >NIL: ENV:OPEN
ENDCLI
ENDIF
COPY >NIL: "$OPEN" RAM:MUSIC
CD RAM:
LAB URL
GETSIZE >ENV:SIZE FILES TERSE RAM:MUSIC
IF "$SIZE" EQ "0"
SKIP FINISH
ENDIF
FIRSTLINE >ENV:OPEN RAM:MUSIC DELETE
SEARCH >NIL: ENV:OPEN SEARCH "File1=http" QUICK
IF NOT WARN
C:GSAR >NIL: -o -r -sFile1= ENV:OPEN
SKIP PLAY
ENDIF
SKIP BACK URL
LAB PLAY
CHECKKEY 60
IF NOT WARN
RX >NIL: S:START-AMIGAAMP.REXX "$OPEN"
SKIP FINISH
ENDIF
REQUESTCHOICE >ENV:RQ TITLE="Otwórz za pomocą..." BODY="1. AmigaAMP*n2. AmiNetRadio *n3. AMPlifier*n4. DAPlayer*n5. FFPlay" GADGETS=" 1 | 2 | 3 | 4 | 5 | X "
IF "$RQ" EQ "1"
RX >NIL: S:START-AMIGAAMP.REXX "$OPEN"
SKIP FINISH
ENDIF
IF "$RQ" EQ "2"
RUN >NIL: SYS:UTILITIES/AMINETRADIO/AMINETRADIO "$OPEN"
SKIP FINISH
ENDIF
IF "$RQ" EQ "3"
RX >NIL: S:STREAM-AMPLIFIER.REXX "$OPEN"
SKIP FINISH
ENDIF
IF "$RQ" EQ "4"
CLIEXCHANGE >NIL: KILL DAPlayer
ASSIGN >NIL: HTTP: RAM:
ASSIGN >NIL: HTTPS: RAM:
RUN >NIL: SYS:UTILITIES/DAPLAYER/DAPLAYER_MUI "$OPEN"
ASSIGN >NIL: HTTP: REMOVE
ASSIGN >NIL: HTTPS: REMOVE
SKIP FINISH
ENDIF
IF "$RQ" EQ "5"
RUN >NIL: C:FFPLAY -x 410 -y 240 -quiet -skipframe 16 -gui 0 "$OPEN"
SKIP FINISH
ENDIF
LAB FINISH
FAILAT 21
DELETE >NIL: ENV:OPEN ENV:RQ ENV:SIZE RAM:MUSIC
ENDCLI
Start-AmigaAMP.rexx
/* $VER: Start-AmigaAMP.rexx 1.0 (03.08.2021) */
PARSE ARG FILE
IF ~SHOW( 'P', AMIGAAMP ) THEN DO
ADDRESS COMMAND 'WBRUN SYS:UTILITIES/AMIGAAMP/AMIGAAMP'
ADDRESS COMMAND 'WAIT 1 SEC'
END
ADDRESS AMIGAAMP
ADD FILE
NEXT
PLAY
EXIT
Stream-AMPlifier.rexx
/* $VER: AMPlifier MP3 Stream 1.0 (25.02.2001) */
OPTIONS RESULTS
OPTIONS FAILAT 21
PARSE ARG files
/* Enter here path and AREXX-Port from AMPlifier */
/* Hier den Pfad und AREXX-Port von AMPlifier eintragen */
amplifier_app = "SYS:Utilities/AMPlifier/AMPlifier"
amplifier_port = "AMPLIFIER.1"
/* Start Amplifier */
IF ~SHOW("PORT", amplifier_port) THEN DO
IF ~EXISTS(amplifier_app) THEN DO
SAY "Couldn't find AMPlifier!"
EXIT
END
ADDRESS COMMAND "RUN >NIL: "amplifier_app
ADDRESS COMMAND "WaitForPort "amplifier_port
END
IF ~SHOW("PORT", amplifier_port) THEN DO
SAY "Couldn't start AMPlifier!"
EXIT
END
/* Add files and start playback */
ADDRESS VALUE amplifier_port
STOP
CLEAR
ADD files PLAY
Oczywiście skrypt należy edytować pod swój system i podać poprawne ścieżki do AmigaAMP, AmiNetRadio, AMPlifier, DAPlayer oraz FFPlay. Strumienie HTTPS są w stanie odtworzyć AmigaAMP oraz DAPlayer. Polecenia CheckKey użyłem w celu wywołania requestera z możliwością wyboru programu, który ma być użyty do odtworzenia strumienia. Domyślnie ustawiłem klawisz SHIFT. Trzymając go wciśniętego w chwili klikania w ikonkę z playlistą spowoduje otwarcie okna wyboru, w przeciwnym razie domyślnie podany jest AmigiAMP. Skrypt nie podaje programowi aby otworzył plik .pls, lecz wyciąga z niego bezpośrednio adres strumienia. Życzę miłego słuchania radia.
Ostatnia aktualizacja: 15.11.2024 16:20:18 przez Ponki1986
15.11.2024 17:50
[#23]
Re: Program so słuchania radia na amidze.
@Ponki1986, post #22
Pod wpływem natchnienia zmontowałem również wersję pod MorphOS. Skrypt należy zapisać w SYS:C pod nazwą PLS2URL:
Dodatkowo zamieszczam definicję typu plików playlisty dla Ambienta, którą należy zapisać w SYS:Prefs/Ambient/FileType/Audio pod nazwą x-scpls:
Podobnie jak wcześniej, wymagane programy do ściągnięcia z Aminetu, lub MOSStorage, oraz wymagana edycja ścieżek do programów.
Ostatnia aktualizacja: 15.11.2024 17:51:41 przez Ponki1986
; $VER: PLS2URL (Modified OpenRADIO AmigaO S3.9) 1.0 (15.11.2024)
.KEY FILENAME
.BRA {
.KET }
FAILAT 11
FULLNAME "{FILENAME}" >ENV:OPEN
IF WARN
FAILAT 21
DELETE >NIL: ENV:OPEN
ENDCLI
ENDIF
COPY >NIL: "$OPEN" RAM:MUSIC
CD RAM:
LAB URL
GETSIZE >ENV:SIZE FILES TERSE RAM:MUSIC
IF "$SIZE" EQ "0"
SKIP FINISH
ENDIF
FIRSTLINE >ENV:OPEN RAM:MUSIC DELETE
SEARCH >NIL: ENV:OPEN SEARCH "File1=http" QUICK
IF NOT WARN
C:GSAR >NIL: -o -r -sFile1= ENV:OPEN
FAILAT 21
DELETE >NIL: ENV:SIZE RAM:MUSIC
ENDCLI
ENDIF
SKIP BACK URL
ENDCLI
Dodatkowo zamieszczam definicję typu plików playlisty dla Ambienta, którą należy zapisać w SYS:Prefs/Ambient/FileType/Audio pod nazwą x-scpls:
AMTD
1
Type audio/x-scpls
Name Music Play List
Priority 10
Match
PatternHint #?.pls
Match i[playlist]
End
Action
Name Play with DAPlayer...
Event DoubleClick
Command AMIGADOS Protect FLAGS S ADD C:PLS2URL
Command AMIGADOS C:PLS2URL "%sp"
Command AMIGADOS C:CLIExchange >NIL: KILL DAPlayer
Command AMIGADOS RUN >NIL: SYS:Applications/DAPlayer/DAPlayer "$OPEN"
Flag unquoted
End
Action
Name Play with FFPlay...
Event Menu
Command AMIGADOS Protect FLAGS S ADD C:PLS2URL
Command AMIGADOS C:PLS2URL "%sp"
Command AMIGADOS C:RUN >NIL: SYS:C/FFPlay -x 640 -showmode 1 -autoexit "$OPEN"
Flag unquoted
End
Action
Name Play with AmiNetRadio..
Event Menu
Command AMIGADOS Protect FLAGS S ADD C:PLS2URL
Command AMIGADOS C:PLS2URL "%sp"
Command AMIGADOS RUN >NIL: SYS:Applications/AmiNetRadio/AmiNetRadio "$OPEN"
Flag unquoted
End
Action
Name Play with AMPlifier...
Event Menu
Command AMIGADOS Protect FLAGS S ADD C:PLS2URL
Command AMIGADOS C:PLS2URL "%sp"
Command AMIGADOS RUN >NIL: SYS:Applications/AMPlifier/AMPlifier "$OPEN"
Flag unquoted
End
End
Podobnie jak wcześniej, wymagane programy do ściągnięcia z Aminetu, lub MOSStorage, oraz wymagana edycja ścieżek do programów.
Ostatnia aktualizacja: 15.11.2024 17:51:41 przez Ponki1986
16.11.2024 05:07
[#27]
Re: Program so słuchania radia na amidze.
@Ponki1986, post #26
Ostateczna (chyba) wersja PLS2URL dla MorphOS:
Gdy skrypt nie otrzymał argumentu wejściowego to zapętlał się na GetSize i FirstLine.
; $VER: PLS2URL (Modified OpenBy_RADIO AmigaOS3.9) 1.1 (16.11.2024)
.KEY FILENAME
.BRA {
.KET }
CD RAM:
FAILAT 11
FULLNAME "{FILENAME}" >ENV:OPEN
IF WARN
FAILAT 21
DELETE >NIL: ENV:OPEN
ENDCLI
ENDIF
COPY >NIL: "$OPEN" RAM:MUSIC
IF NOT EXISTS RAM:MUSIC
FAILAT 21
DELETE >NIL: ENV:OPEN
ENDCLI
ENDIF
LAB URL
GETSIZE >ENV:SIZE FILES TERSE RAM:MUSIC
IF "$SIZE" EQ "0"
FAILAT 21
DELETE >NIL: ENV:SIZE RAM:MUSIC ENV:OPEN
ENDCLI
ENDIF
FIRSTLINE >ENV:OPEN RAM:MUSIC DELETE
SEARCH >NIL: ENV:OPEN SEARCH "File1=http" QUICK
IF NOT WARN
C:GSAR >NIL: -o -r -sFile1= ENV:OPEN
FAILAT 21
DELETE >NIL: ENV:SIZE RAM:MUSIC
ENDCLI
ENDIF
SKIP BACK URL
ENDCLI
Gdy skrypt nie otrzymał argumentu wejściowego to zapętlał się na GetSize i FirstLine.