Autor Beitrag
lblbw
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 122

Win XP, Win 7
Delphi7 Enterprise
BeitragVerfasst: Do 20.03.08 17:28 
Hallo ich hab mal wieder ein kleines Problem,

wie lese ich mit Hilfe der Bass.dll aus einem Shoutcast Server den "Current Song" und den "Stream Title" aus?
Gausi
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 8548
Erhaltene Danke: 477

Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
BeitragVerfasst: Do 20.03.08 17:33 
Schau dir mal die netradio-Demo der bass.dll an, da wird das gemacht. ;-)

_________________
We are, we were and will not be.
lblbw Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 122

Win XP, Win 7
Delphi7 Enterprise
BeitragVerfasst: Do 20.03.08 17:40 
Hab ich schon, aber er zeigt dann immer nur an ICY 200 OK und nichts weiter.
ausblenden Delphi-Quelltext
1:
2:
3:
4:
  icy := BASS_ChannelGetTags(chan, BASS_TAG_ICY);
  if (icy = nilthen
    icy := BASS_ChannelGetTags(chan, BASS_TAG_HTTP); // no ICY tags, try HTTP
  Label1.Caption:=icy;
Gausi
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 8548
Erhaltene Danke: 477

Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
BeitragVerfasst: Do 20.03.08 17:45 
Quelltext weiter lesen, die wichtige Stelle ist sogar passend kommentiert:

ausblenden Delphi-Quelltext
1:
2:
3:
// get the stream title and set sync for subsequent titles
DoMeta(BASS_ChannelGetTags(chan, BASS_TAG_META));
BASS_ChannelSetSync(chan, BASS_SYNC_META, 0, @MetaSync, 0);

_________________
We are, we were and will not be.
lblbw Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 122

Win XP, Win 7
Delphi7 Enterprise
BeitragVerfasst: Do 20.03.08 17:59 
Gut, hab ich überlesen. Gibts keinen einfachereren Weg?
Gausi
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 8548
Erhaltene Danke: 477

Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
BeitragVerfasst: Do 20.03.08 18:15 
Nicht dass ich wüsste. Aber das ist doch auch schon einfach. Guck dir mal an, was da passiert. Da kommen kiloweise Bytes ausm Kabel oder aus der Luft angeschwirrt, die die bass.dll in Musik umwandelt. Ab und zu bilden die Bytes keine Musik, sondern Texte, und die bass.dll ist so nett und merkt das. Und wenn man der vorher sagt "Hörmal, wenn da so anderes Zeug kommt, dann sach mir Bescheid" (BASS_ChannelSetSync(chan, BASS_SYNC_META, 0, @MetaSync, 0);), dann muss nur auf das "Bescheid" hören (procedure MetaSync(handle: HSYNC; channel, data, user: DWORD); stdcall;), um dann dieses andere Zeugs auseinanderzunehmen und die gewünschten Infos auslesen (procedure DoMeta(meta: PChar);)...

_________________
We are, we were and will not be.
lblbw Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 122

Win XP, Win 7
Delphi7 Enterprise
BeitragVerfasst: Do 20.03.08 18:20 
jaja schon klar. Danke dir Gausi.