XProfan

funkheld

Hello, reads itself Yes wonderful.

counts the too for Verison 1.0 , The soon rausgebracht go should for the Freeprofan?

Thank you.
greeting

XProfan 11

funkheld

have now time this Programmgetestet.
it crashes.

Compile Mark Separation

 {$cleq}
DEF BASS_Init(5) ! "BASS.DLL","BASS_Init"
DEF BASS_StreamCreateURL(5) ! "BASS.DLL","BASS_StreamCreateURL"
DEF BASS_ChannelPlay(2) ! "BASS.DLL","BASS_ChannelPlay"
DEF BASS_ChannelGetTags(2) ! "BASS.DLL","BASS_ChannelGetTags"
DEF BASS_StreamFree(1) ! "BASS.DLL","BASS_StreamFree"
DEF BASS_Free(0) ! "BASS.DLL","BASS_Free"
Declare Ende&,Title$,Bass&,URL$,hStream&,Data&
cls
Bass& = UseDll("Bass.dll")
BASS_Init(-1,44100,0,0,0)
URL$ = "https://gffstream.ic.llnwd.net/stream/gffstream_mp3_w98a"
'URL$ = "https://gffstream.ic.llnwd.net/stream/gffstream_w18b"'
'URL$ = "https://gffstream.ic.llnwd.net/stream/gffstream_stream_wdr_einslive_b"'
hStream& = BASS_StreamCreateURL(ADDR(URL$),0,0,0,0)
Print "1LIVE"
BASS_ChannelPlay(hStream&,0)
SetTimer 1000

Whilenot ende&

    waitinput

    If %wmtimer

        Locate 2,0
        Data& = BASS_ChannelGetTags(hStream&,5)
        Title$ = String $(data&,0)
        Title$ = Substr$(Title$,,1,";")
        Title$ = TransLate$(Title$,"'","")
        Title$ = TransLate$(Title$,"'","")
        Title$ = TransLate$(Title$,"´","")
        Title$ = TransLate$(Title$,"StreamTitle=","")
        Print Title$

    Endif

EndWhile

BASS_StreamFree(hStream&)
BASS_Free(0)
FreeDll Bass&

Thank you.
greeting

Georg
Teles

Hmm, because with your URL no Stream runs, but I observe straight, that with many Streams the Sound short runs & Message with "Interpreter not working more " too with X2 & X3 appear

Nachtrag:
Error comes with the commands: Data& = BASS_ChannelGetTags(hStream&,5) !

Nachtrag 2:
integrally simply, from [...]

one neckline:

Some tags (eg. ID3v1) are located at the end of the file, so when streaming a file from the internet, the tags wants hardship be available until the download is complete. A BASS_SYNC_DOWNLOAD sync can be set via BASS_ChannelSetSync(Int32, BASSSync, Int64, SYNCPROC, IntPtr), to be informed of when the download is complete.

d.h. before You whom Pointer the day read can, must the Stream-Download ready his because the day-data ans end the Streams appended go, in this drop is it not and it lead to that crash.

here's the something modified code

Compile Mark Separation

' {$cleq}
DEF BASS_Init(5) ! "BASS.DLL","BASS_Init"
DEF BASS_StreamCreateURL(5) ! "BASS.DLL","BASS_StreamCreateURL"
DEF BASS_ChannelPlay(2) ! "BASS.DLL","BASS_ChannelPlay"
DEF BASS_ChannelGetTags(2) ! "BASS.DLL","BASS_ChannelGetTags"
DEF BASS_StreamFree(1) ! "BASS.DLL","BASS_StreamFree"
DEF BASS_Free(0) ! "BASS.DLL","BASS_Free"
Declare Ende&,Title$,Bass&,URL$,hStream&,Data&
cls
Bass& = UseDll("Bass.dll")
BASS_Init(-1,44100,0,0,0)
URL$ = "https://live96.917xfm.de"
'URL$ = "https://gffstream.ic.llnwd.net/stream/gffstream_mp3_w98a"
'URL$ = "https://gffstream.ic.llnwd.net/stream/gffstream_w18b"'
'URL$ = "https://gffstream.ic.llnwd.net/stream/gffstream_stream_wdr_einslive_b"'
hStream& = BASS_StreamCreateURL(ADDR(URL$),0,0,0,0)

Ifnot hStream&

    Print "URL offline"

Else

    Print "1LIVE"

EndIf

BASS_ChannelPlay(hStream&,0)
SetTimer 1000

Whilenot ende&

    waitinput

    If %wmtimer

        Locate 2,0
        Data& = BASS_ChannelGetTags(hStream&,5)

        If Data& <> 0

            Title$ = String $(data&,0)
            Title$ = Substr$(Title$,,1,";")
            Title$ = TransLate$(Title$,"'","")
            Title$ = TransLate$(Title$,"'","")
            Title$ = TransLate$(Title$,"´","")
            Title$ = TransLate$(Title$,"StreamTitle=","")
            Print Title$+Space$(200)

        Else

            Print "Stream Offline or loading yet..."

        EndIf

    Endif

EndWhile

BASS_StreamFree(hStream&)
BASS_Free(0)
FreeDll Bass&

Hello

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

XProfan X3
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

funkheld (23.01.2016)

counts the too for Verison 1.0 , The soon rausgebracht go should for the Freeprofan?

of it would I go out.

important for the pkg was me only, that FreeProfan apparently not any more crashes mere already at "Overhead" for nProcs, because this is imho not yet very long the case.

funkheld

Hello, thanks for Help.

greeting

01/26/16 ▲