Song := TSongInfo.Create; Song['artist'] := 'Current Listeners'; Song['title'] := IntToStr(currlisteners); Encoders.SongChange(Song); Song.Free;
PAL.Loop := True; var Listeners: integer; var Song : TSongInfo; var CurSong : TSongInfo; CurSong := ActivePlayer.GetSongInfo; Song := TSongInfo.Create ; Listeners := Relays.Viewers; Song['artist'] := CurSong['Artist']; Song['title'] := CurSong['Title'] + '[' + 'Listen:' + IntToStr(Listeners) + ']'; Encoders.SongChange(Song); Song.Free;
PAL.Loop := True; var Listeners: integer; var Song : TSongInfo; var CurSong : TSongInfo; CurSong := ActivePlayer.GetSongInfo; Song := TSongInfo.Create ; Listeners := Relays.Viewers; Song['artist'] := CurSong['Artist']; Song['title'] := CurSong['Title'] + ' //' + ' Слушают: ' + IntToStr(Listeners) + ' //'; Encoders.SongChange(Song); Song.Free;
PAL.Loop := True; var Listeners: integer; var Song : TSongInfo; var CurSong : TSongInfo; CurSong := ActivePlayer.GetSongInfo; Song := TSongInfo.Create ; Listeners := Relays.Viewers; Song['artist'] := CurSong['Artist']; Song['title'] := CurSong['Title'] + ' [' + IntToStr(Listeners) + ' Listeners' + ']'; Encoders.SongChange(Song); Song.Free;