Author Topic: TAG_INFO  (Read 215 times)

Muetze

  • Posts: 6
TAG_INFO
« on: 18 Jan '18 - 15:16 »
Hello @ all

My problem is now, when iam hear internetstream, i will get the Artist ans the song, but when the music its changed, then the Artist and the song not changed. So, i mean my code its not runing.
May now its paying Bon Jovi , The text is in my TextBox, when the music on the internetradio changed, then its not the new title and artist - its als Bon Jovi.

The best I show the code:

Code: [Select]
Private Sub PictureBox19_Click(sender As Object, e As EventArgs) Handles PictureBox19.Click
        Dim url As String = "http://channels.webradio.antenne.de/lovesongs"
        stream = Bass.BASS_StreamCreateURL(url, 0, BASSFlag.BASS_STREAM_AUTOFREE, Nothing, 0)
        Bass.BASS_ChannelPlay(stream, True)
        TextBox2.Text = "Antenne Bayern - Lovesongs"
        _StartTime = Date.Now.Ticks
        Timer2.Start()
        Dim tagInfo As New Un4seen.Bass.AddOn.Tags.TAG_INFO(url)
        If BassTags.BASS_TAG_GetFromURL(stream, tagInfo) Then
            TextBox1.Text = tagInfo.artist & " - " & tagInfo.title
        End If
        Me.Label9.Visible = False
        TrackBar1.Focus()
    End Sub Private Sub PictureBox19_Click(sender As Object, e As EventArgs) Handles PictureBox19.Click
        Dim url As String = "http://channels.webradio.antenne.de/lovesongs"
        stream = Bass.BASS_StreamCreateURL(url, 0, BASSFlag.BASS_STREAM_AUTOFREE, Nothing, 0)
        Bass.BASS_ChannelPlay(stream, True)
        TextBox2.Text = "Antenne Bayern - Lovesongs"
        _StartTime = Date.Now.Ticks
        Timer2.Start()
        Dim tagInfo As New Un4seen.Bass.AddOn.Tags.TAG_INFO(url)
        If BassTags.BASS_TAG_GetFromURL(stream, tagInfo) Then
            TextBox1.Text = tagInfo.artist & " - " & tagInfo.title
        End If
        Me.Label9.Visible = False
        TrackBar1.Focus()
    End Sub

Imports:

Imports Un4seen.Bass
Imports CoreAudioApi
Imports System
Imports Un4seen
Imports Un4seen.Bass.Misc
Imports WMPLib
Imports Un4seen.Bass.AddOn.Tags
Imports Un4seen.Bass.AddOn.Tags.TAG_INFO


Public Class Form1
    Public stream As Integer
    Public peak(2) As Single
    Private _StartTime As Long
    Dim Svol As Integer = 0
    Private inet_channel As Integer
    Private _stream_SYNCPROC As SYNCPROC
    Private _stream_Synchronizer As Integer = 0
    Private inet_stream As Integer
    Private _stream_url As String = String.Empty

Hmm what can i do that the "Now Playing Artist and Song" is written in my TextBox???

For help

Thanks


F. Mütze from Germany :)

Muetze

  • Posts: 6
TAG_INFO II
« Reply #1 on: 18 Jan '18 - 15:20 »
Sorry, here the rigt code....

Code: [Select]
Private Sub PictureBox17_Click(sender As Object, e As EventArgs) Handles PictureBox17.Click
        Dim url As String = "http://live96.106acht.de"
        Dim tagInfo As New TAG_INFO(url)
        stream = Bass.BASS_StreamCreateURL(url, 0, BASSFlag.BASS_STREAM_AUTOFREE, Nothing, 0)
        Bass.BASS_ChannelPlay(stream, True)
        If BassTags.BASS_TAG_GetFromURL(stream, tagInfo) Then
            TextBox1.Text = tagInfo.artist & " - " & tagInfo.title
        End If
        TextBox2.Text = " Alster Radio - Rock und Pop"
        _StartTime = Date.Now.Ticks
        Timer2.Start()
        Me.Label9.Visible = False
        TrackBar1.Focus()
    End Sub

Muetze

  • Posts: 6
Sorry, i forgot a picture
« Reply #2 on: 18 Jan '18 - 15:48 »
Sorry, i forgot a picture.
The software made by VB