XProfan

funkheld

allô, liest sich oui wunderbar.

Gilt cela aussi pour qui Verison 1.0 , qui bientôt rausgebracht volonté soll pour cela Freeprofan?

merci.
Gruss

XProfan 11

Kompilieren Marque Séparation

funkheld

Habe maintenant la fois cet 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"
Déclarer 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)
Imprimer "1LIVE"
BASS_ChannelPlay(hStream&,0)
SetTimer 1000

Whilenot ende&

    waitinput

    Si %wmtimer

        Localiser 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=",»)
        Imprimer Title$

    Endif

Endwhile

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

merci.
Gruss

Kompilieren Marque Séparation

Georg
Teles

Hmm, weil chez deiner URL ne...aucune Stream fonctionne, mais je merke justement, dass chez vielen Streams qui Sound kurz fonctionne & annonce avec "Interpreter funktioniert pas mehr" aussi chez X2 & X3 erscheint

Nachtrag:
faute venez chez dem Befehl: Data& = BASS_ChannelGetTags(hStream&,5) !

Nachtrag 2:
entier simple, aus [...]

un Ausschnitt:

Some tags (eg. ID3v1) sont located at le end of le file, so when streaming a file à partir de le internet, le tags veux not être available until le download is complete. A BASS_SYNC_DOWNLOAD sync can être set via BASS_ChannelSetSync(Int32, BASSSync, Int64, SYNCPROC, IntPtr), to être informed of when le download is complete.

d.h. bevor du den Pointer zum journée auslesen peux, muss qui Stream-Télécharger fertig son weil qui journée-données à l' Ende des Streams angehängt volonté, dans diesem le cas Il est le pas et es führt zum Absturz.

ici ist qui quelque chose 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"
Déclarer 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)

Si non hStream&

    Imprimer "URL offline"

D'autre

    Imprimer "1LIVE"

EndIf

BASS_ChannelPlay(hStream&,0)
SetTimer 1000

Whilenot ende&

    waitinput

    Si %wmtimer

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

        Si Data& <> 0

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

        D'autre

            Imprimer "Stream Offline ou bien invite encore..."

        EndIf

    Endif

Endwhile

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

salut

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 cela aussi pour qui Verison 1.0 , qui bientôt rausgebracht volonté soll pour cela Freeprofan?

en serait je sortir.

important pour cela paquet était mir seulement, dass FreeProfan scheinbar pas plus abstürzt rein déjà beim "Overhead" pour qui nProcs, car c'est imho encore pas très longtemps qui le cas.

funkheld

allô, merci pour qui Aider.

Gruss

26.01.2016 ▲