Make(delphi)
ver(4.03 build 181)
Add(MainForm,15739648,14,14)
{
 Width=402
 Height=114
 Caption="Test BASS Internet Radio"
 Point(Handle)
 link(onCreate,4252681:doInit,[(62,34)(62,20)])
}
Add(BASS_Init,4252681,77,14)
{
}
Add(BASS_StreamCreateURL,12045247,77,63)
{
 URL="http://shoutcast.aplus.by:9000/aplus_hiphop_128.m3u"
 Name="InetStream"
 link(onCreate,15405158:doEvent1,[])
 link(onMeta,7586771:doEvent2,[(142,76)(142,83)])
}
Add(Button,6044672,14,63)
{
 Left=305
 Top=50
 Width=80
 Height=25
 Caption="Play"
 link(onClick,12045247:doCreate,[])
}
Add(BASS_ChannelPlay,9406897,217,14)
{
 Channel="InetStream"
}
Add(BASS_ChannelEnumTags,12731962,217,70)
{
 Channel="InetStream"
 Type=5
 link(onEnumTags,14517957:doText,[])
}
Add(Hub,7586771,175,70)
{
 InCount=2
 OutCount=1
 link(onEvent1,12731962:doEnumTags,[])
}
Add(Hub,15405158,147,63)
{
 link(onEvent1,9406897:doPlay,[(189,69)(189,20)])
 link(onEvent2,7586771:doEvent1,[])
}
Add(Label,14517957,287,70)
{
 Left=5
 Top=5
 Width=380
 Height=35
 Color=-16777204
 Caption=""
 AutoSize=1
}
Add(BASS_ChannelAttribute,3018529,217,112)
{
 Channel="MainSound"
 Attrib=1
}
Add(ScrollBar,2661636,14,112)
{
 Left=5
 Top=50
 Width=280
 Height=25
 Position=100
 link(onPosition,15138911:doOperation,[])
}
Add(Math,15138911,77,112)
{
 OpType=3
 Op2=100
 link(onResult,3018529:doAttribute,[])
}