Вверх ↑
Ответов: 970
Рейтинг: 270
#1: 2010-05-18 23:53:18 ЛС | профиль | цитата
ver 0.2

  • Выбери исполнителя
  • Выбери песню
  • Слушай

Никаких кодов подтверждения и капчи, никакой рекламы, есть возможность скачать.

[burl=http://hiasm.com/forum_serv.php?q=56&id=1423]Скачать архив (1162Kb)[/burl] (+ база песен)

Без базы:


Add(MainForm,2953706,161,203)
{
Width=629
Height=464
Color=16777215
AlphaBlendValue=245
Caption="Вся музыка"
BorderStyle=1
Position=1
link(onCreate,15129027:doEvent1,[])
}
Add(StrList,3924243,266,196)
{
FileName="parsedcomp.txt"
}
Add(ListBox,5089503,441,294)
{
Top=55
Width=205
Height=366
Align=1
Font=[Tahoma,8,0,0,1]
DataType=1
Point(String)
link(onClick,7983004:doEvent1,[])
}
Add(StrPart,15967823,329,287)
{
Char="|"
link(onPart,9361335:doData,[])
}
Add(Hub,15129027,210,217)
{
OutCount=3
link(onEvent1,4252681:doInit,[(245,223)(245,146)])
link(onEvent2,3924243:doLoad,[])
link(onEvent3,13182939:doEnum,[(248,237)(248,293)])
}
Add(FormatStr,13152238,616,308)
{
DataCount=1
Mask="%1|*"
link(onFString,1157271:doEvent1,[])
link(Str1,2105963:Var3,[(622,298)(596,298)(596,392)])
}
Add(StrMask,5591818,714,308)
{
Point(doMask)
link(onTrue,6152939:doSplit,[])
link(Str,12645344:Item,[(720,296)(654,296)(654,368)(552,368)])
}
Add(Hub,1157271,672,308)
{
link(onEvent1,5591818:doMask,[(696,314)(696,321)])
link(onEvent2,5591818:doCompare,[(696,321)(696,314)])
}
Add(Hub,7983004,490,301)
{
link(onEvent1,3232704:doClear,[(524,307)(524,288)(817,288)(817,328)])
link(onEvent2,12645344:doEnum,[])
}
Add(ListBox,3232704,840,315)
{
Left=205
Top=55
Width=220
Height=366
Align=1
Font=[Tahoma,8,0,0,1]
DataType=1
Point(String)
link(onClick,16188952:doString,[])
}
Add(ChangeMon,9361335,385,294)
{
link(onData,5089503:doAdd,[])
}
Add(ArrayEnum,12645344,546,308)
{
link(onItem,13152238:doString,[])
link(Array,11122228:Var3,[(552,257)])
}
Add(ArrayEnum,13182939,280,287)
{
link(onItem,15967823:doSplit,[])
link(Array,11122228:Var2,[])
}
Add(GetDataEx,11122228,280,252)
{
Angle=3
link(Data,3924243:Array,[(286,257)])
}
Add(StrPart,6152939,763,315)
{
Char="|"
link(onSplit,3232704:doAdd,[])
}
Add(BASS_Init,4252681,266,140)
{
link(onInit,10183901:doCheck,[])
link(onError,11232751:doMessage,[(310,153)(310,195)])
}
Add(BASS_Version,10183901,322,140)
{
link(onCheckFailed,109118:doMessage,[(366,153)(366,195)])
}
Add(Message,11232751,322,189)
{
Message="Error BASS initialization"
Caption="Error"
Icon=1
}
Add(Message,109118,378,189)
{
Message="Incorrect version of BASS library "
Caption="Error"
Icon=1
}
Add(FormatStr,16188952,896,322)
{
Mask="http://prostopleer.com/search?q=%2 %1"
link(onFString,14638798:doDownload,[])
link(Str2,13427561:Var,[])
}
Add(HTTP_Get,14638798,945,322)
{
link(onDownload,8225839:doConvert,[])
}
Add(Convertor,8225839,994,329)
{
Mode=11
link(onResult,12783109:doCharset,[])
}
Add(BlockFind,2859065,1106,329)
{
IncludeBlock=1
StartBlock="file_id=""
EndBlock="" "
Point(onNotFind)
link(onSearch,12427806:doValue,[])
link(onEndSearch,12699675:doData,[(1154,342)(1154,384)])
link(onNotFind,9674082:doWork2,[(1148,349)(1148,433)])
}
Add(Memory,12427806,1169,329)
{
}
Add(DoData,12699675,1169,378)
{
link(onEventData,1275287:doCase,[])
link(Data,12427806:Value,[])
}
Add(Charset,12783109,1043,329)
{
Type=7
link(onCharset,2859065:doSearch,[])
}
Add(ButtonRush,1247932,1344,420)
{
Left=440
Top=65
Width=80
Height=45
Color=-16777211
Font=[Tahoma,10,0,0,204]
ColorFrom=-16777211
ColorTo=15266030
BorderColor=13684686
GradientStyle=1
ColorFromOver=13564670
ColorToOver=8840446
ColorTextOver=536870911
BorderColorOver=13684686
ShadowOffsetOver=0
GradientStyleOver=1
ColorFromDown=10614015
ColorToDown=7067903
BorderColorDown=4167618
ShadowOffsetDown=0
GradientStyleDown=1
ColorToDis=16514043
ColorTextDis=11645361
BorderColorDis=13224136
ColorShadowDis=15780518
ShadowOffsetDis=0
GradientStyleDis=1
UpdateSpeed=1
Caption="Слушать"
Glyphs=[]
RoundWidth=5
RoundHeight=5
link(onClick,4183211:doWork3,[(1404,426)])
}
Add(BASS_StreamCreateURL,12045247,1344,378)
{
Name="InetStream"
link(onCreate,4183211:doWork2,[])
}
Add(BASS_ChannelPlay,9406897,1421,378)
{
Channel="InetStream"
}
Add(FormatStr,6963929,1288,378)
{
DataCount=1
Mask="http://prostopleer.com/download/%1"
Point(FString)
link(onFString,12045247:doCreate,[])
}
Add(HubEx,4183211,1400,378)
{
link(onEvent,9406897:doPlay,[])
}
Add(ButtonRush,8095415,1134,560)
{
Left=530
Top=65
Width=80
Height=45
Color=-16777211
Font=[Tahoma,10,0,0,204]
ColorFrom=-16777211
ColorTo=15266030
BorderColor=13684686
GradientStyle=1
ColorFromOver=13564670
ColorToOver=8840446
ColorTextOver=536870911
BorderColorOver=13684686
ShadowOffsetOver=0
GradientStyleOver=1
ColorFromDown=10614015
ColorToDown=7067903
BorderColorDown=4167618
ShadowOffsetDown=0
GradientStyleDown=1
ColorToDis=16514043
ColorTextDis=11645361
BorderColorDis=13224136
ColorShadowDis=15780518
ShadowOffsetDis=0
GradientStyleDis=1
UpdateSpeed=1
Caption="Пауза"
Glyphs=[]
RoundWidth=5
RoundHeight=5
link(onClick,12256999:doPause,[])
}
Add(BASS_ChannelPause,12256999,1190,560)
{
Channel="InetStream"
}
Add(Case,1275287,1225,378)
{
Value=String()
link(onNextCase,6963929:doString,[])
link(onTrue,9674082:doWork1,[(1269,391)(1269,419)(1229,419)])
}
Add(Message,6600276,1246,441)
{
Message="Извините, композиция не найдена!"
Caption="Увы..."
}
Add(HubEx,9674082,1225,427)
{
Angle=1
link(onEvent,6600276:doMessage,[(1229,447)])
}
Add(ChildPanelRush,817816,1106,280)
{
}
BEGIN_SDK
Add(EditMultiEx,16288507,21,21)
{
}
Add(PanelRush,12793564,77,98)
{
Width=623
Height=55
Align=2
Font=[Tahoma,16,0,0,1]
ColorFrom=13564670
ColorTo=8840446
BorderColor=13684686
ColorToDis=16514043
ColorTextDis=11645361
BorderColorDis=13224136
ShadowOffsetDis=0
Caption=" 1. Выбери исполнителя 2. Выбери песню 3. Слушай :)"
GlyphHAlign=1
Spacing=0
Glyphs=[]
}
END_SDK
Add(ButtonRush,13227001,1239,497)
{
Left=440
Top=120
Width=80
Height=45
Color=-16777211
Font=[Tahoma,10,0,0,204]
ColorFrom=-16777211
ColorTo=15266030
BorderColor=13684686
GradientStyle=1
ColorFromOver=13564670
ColorToOver=8840446
ColorTextOver=536870911
BorderColorOver=13684686
ShadowOffsetOver=0
GradientStyleOver=1
ColorFromDown=10614015
ColorToDown=7067903
BorderColorDown=4167618
ShadowOffsetDown=0
GradientStyleDown=1
ColorToDis=16514043
ColorTextDis=11645361
BorderColorDis=13224136
ColorShadowDis=15780518
ShadowOffsetDis=0
GradientStyleDis=1
UpdateSpeed=1
Caption="Скачать"
Glyphs=[]
RoundWidth=5
RoundHeight=5
link(onClick,235072:doShellExec,[])
}
Add(ButtonRush,6274124,1134,616)
{
Left=530
Top=120
Width=80
Height=45
Color=-16777211
Font=[Tahoma,10,0,0,204]
ColorFrom=-16777211
ColorTo=15266030
BorderColor=13684686
GradientStyle=1
ColorFromOver=13564670
ColorToOver=8840446
ColorTextOver=536870911
BorderColorOver=13684686
ShadowOffsetOver=0
GradientStyleOver=1
ColorFromDown=10614015
ColorToDown=7067903
BorderColorDown=4167618
ShadowOffsetDown=0
GradientStyleDown=1
ColorToDis=16514043
ColorTextDis=11645361
BorderColorDis=13224136
ColorShadowDis=15780518
ShadowOffsetDis=0
GradientStyleDis=1
UpdateSpeed=1
Caption="Добавить"
Glyphs=[]
RoundWidth=5
RoundHeight=5
link(onClick,1536031:doShellExec,[])
}
Add(WinExec,1536031,1190,609)
{
FileName="http://prostopleer.com/#/upload"
}
Add(WinExec,235072,1288,490)
{
link(FileName,6963929:FString,[])
}
Add(LineBreak,1305620,504,420)
{
Type=1
link(Data,2105963:Var2,[])
Primary=[13427561,399,-126]
}
Add(GetDataEx,2105963,504,387)
{
Angle=3
link(Data,5089503:String,[(468,392)])
}
Add(PaintBox,8758719,847,210)
{
Left=440
Top=220
Width=170
Height=195
link(onBeforeDraw,5631139:doDraw,[])
}
Add(BASS_ChannelVisibleSpectrum,5631139,903,210)
{
SoundStream="InetStream"
BackColor=16777215
Pen=7849970
Peak=3425267
Mode=1
link(WindowsHandle,8758719:Bitmap,[(909,198)(891,198)(891,253)(853,253)])
}
Add(Timer,5820169,791,210)
{
Interval=50
link(onTimer,8758719:doRefresh,[])
}
Add(ProgressBarRush,16646612,930,546)
{
Top=421
Width=623
Height=15
Align=4
Color=15463422
ColorFrom=7568631
ColorTo=7580663
BorderColor=14937853
GradientStyle=2
BorderWidth=0
ColorFromDis=16514043
ColorToDis=16514043
ColorTextDis=11645361
ColorShadowDis=-16777211
BorderWidthDis=0
DrawProgress=1
Caption=""
Point(doMax)
}
Add(BASS_ChannelPosition,4339016,875,497)
{
Channel="InetStream"
}
Add(Timer,6711131,798,546)
{
Interval=100
link(onTimer,7707775:doEvent1,[])
}
Add(DoData,830974,875,546)
{
link(onEventData,16646612:doPosition,[])
link(Data,4339016:CurPosition,[])
}
Add(Hub,7707775,847,546)
{
link(onEvent1,830974:doData,[])
link(onEvent2,13719467:doData,[])
}
Add(DoData,13719467,882,553)
{
link(onEventData,16646612:doMax,[])
link(Data,4339016:Length,[])
}

карма: 0

3
Голосовали:petrocan, zeta211, Konst