XProfan

funkheld

Hallo, liest sich ja wunderbar.

Gilt das auch für die Verison 1.0 , die bald rausgebracht werden soll für das Freeprofan?

Danke.
Gruss

XProfan 11

Kompilieren Markieren Separieren

funkheld

Habe jetzt mal dieses Programmgetestet.
Es stürzt ab.

 {$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&

Danke.
Gruss

Kompilieren Markieren Separieren

Georg
Teles

Hmm, weil bei deiner URL kein Stream läuft, aber ich merke gerade, dass bei vielen Streams der Sound kurz läuft & Meldung mit "Interpreter funktioniert nicht mehr" auch bei X2 & X3 erscheint

Nachtrag:
Fehler kommt bei dem Befehl: Data& = BASS_ChannelGetTags(hStream&,5) !

Nachtrag 2:
ganz einfach, aus [...]

ein Ausschnitt:

Some tags (eg. ID3v1) are located at the end of the file, so when streaming a file from the internet, the tags will not 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. bevor du den Pointer zum Tag auslesen kannst, muss der Stream-Download fertig sein weil die Tag-Daten ans Ende des Streams angehängt werden, in diesem Fall ist er das nicht und es führt zum Absturz.

hier ist der etwas modifizierte Code

' {$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 oder lädt noch..."

        EndIf

    Endif

EndWhile

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

Servus

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

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

funkheld (23.01.2016)

Gilt das auch für die Verison 1.0 , die bald rausgebracht werden soll für das Freeprofan?

Davon würde ich ausgehen.

Wichtig für das Paket war mir nur, dass FreeProfan scheinbar nicht mehr abstürzt rein schon beim "Overhead" für die nProcs, denn das ist imho noch nicht sehr lange der Fall.

funkheld

Hallo, danke für die Hilfe.

Gruss

26.01.2016 ▲