XProfan

funkheld

¡Hola, liest se sí wunderbar.

Gilt el auch para el Verison 1.0 , el bald rausgebracht voluntad se para el Freeprofan?

Gracias.
Gruss

XProfan 11

Kompilieren Marca Separación

funkheld

Posesiones ahora veces dieses Programmgetestet.
Lo stürzt de.

 {$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"
Declarar 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)
Imprimir "1LIVE"
BASS_ChannelPlay(hStream&,0)
SetTimer 1000

Sinestar encargado ende&

    waitinput

    If %wmtimer

        Localizar 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=","")
        Imprimir Title$

    Endif

EndWhile

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

Gracias.
Gruss

Kompilieren Marca Separación

Georg
Teles

Hmm, porque en deiner URL kein Stream se ejecuta, pero yo merke gerade, dass en vielen Streams el Sound kurz se ejecuta & Meldung con "Interpreter funktioniert no mehr" auch en X2 & X3 erscheint

Apéndice:
Fehler kommt en el Befehl: Data& = BASS_ChannelGetTags(hStream&,5) !

Apéndice 2:
bastante simplemente, de [...]

una Ausschnitt:

Some tags (eg. ID3v1) are located at the end of the file, así when streaming a file from the internet, the tags voluntad 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 el Pointer para Tag auslesen kannst, muss el Stream-Descargar fertig ser porque el Tag-Daten ans Ende des Streams angehängt voluntad, en diesem Fall Él es el no y lo führt para Choque.

hier es el algo 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"
Declarar 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)

Caso negativo hStream&

    Imprimir "URL offline"

Más

    Imprimir "1LIVE"

EndIf

BASS_ChannelPlay(hStream&,0)
SetTimer 1000

Sinestar encargado ende&

    waitinput

    If %wmtimer

        Localizar 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=","")
            Imprimir Title$+Espacio$(200)

        Más

            Imprimir "Stream Offline oder lädt todavía..."

        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 el auch para el Verison 1.0 , el bald rausgebracht voluntad se para el Freeprofan?

Davon sería Yo ausgehen.

Wichtig para el Paket war me sólo, dass FreeProfan scheinbar no mehr accidentes rein ya beim "Overhead" para el nProcs, porque el es mi humilde opinión todavía no muy largo el Fall.

funkheld

¡Hola, danke para el Ayuda.

Gruss

26.01.2016 ▲