Делаю так, но треки не переключаются сами
Make(delphi)
ver(4.03 build 181)
Add(ListBox,14738624,207,204)
{
Left=70
Top=55
Width=545
Height=125
link(onClick,12127398:doEvent3,[(254,217)(254,278)(121,278)(121,307)])
}
Add(Counter,2028006,185,287)
{
Min=-1
Default=-1
link(onNext,7455926:doRead,[])
}
Add(ArrayRW,7455926,225,287)
{
link(onRead,8243139:doText,[(289,293)(289,237)])
link(Array,14738624:Array,[(231,268)(227,268)])
}
Add(Button,854059,55,204)
{
Left=5
Top=5
Width=75
Caption="Open"
link(onClick,5961824:doExecute,[(99,210)(99,209)])
}
Add(ODialog,5961824,110,203)
{
Filter="ALL"
link(onExecute,11210251:doText,[])
}
Add(Edit,11210251,159,203)
{
Left=85
Top=5
Width=530
Height=21
Text=""
link(onChange,14738624:doAdd,[(199,209)(199,210)])
}
Add(Button,590727,-11,300)
{
Left=15
Top=210
Width=175
Caption="запуск перебора массива"
link(onClick,12726955:doEvent1,[(59,306)(59,363)])
}
Add(Hub,12127398,147,287)
{
InCount=3
OutCount=1
link(onEvent1,2028006:doNext,[])
}
Add(BASS_StreamCreateFile,2073512,350,357)
{
Name="MainSound"
link(onCreate,10701583:doPlay,[(415,363)(415,384)])
link(onEndPlay,12127398:doEvent2,[(394,370)(394,335)(135,335)(135,300)])
link(FileName,8243139:Text,[(356,310)(326,310)])
}
Add(BASS_ChannelPlay,10701583,427,378)
{
Channel="MainSound"
}
Add(Edit,8243139,320,231)
{
Left=235
Top=210
Width=295
Height=21
Text=""
}
Add(Hub,12726955,98,357)
{
link(onEvent1,12127398:doEvent1,[(130,363)(130,293)])
link(onEvent2,2073512:doCreate,[(231,370)(231,363)])
}
Add(MainForm,6488361,41,599)
{
Width=701
Height=594
Color=-16777203
Caption="1000V media player"
Icon=[ZIPBE25000078DAED59096C1465145EE49F9916CA2194B31C05A914C452B90594A3504E01299672B68AC016C4002A8941518209180E1BE281800A8A1115D11803211C42141503882296265E200851146F85D9D9E7FBFE7FA73BDBDD7667DB2531B23F79CCCC9BFD1FDFFFFFEF7DEFBDC1E3A9C57FB2B33DFC77BA676B86C7D3D4E3F164B2B0CA53E451FAC4488CC4488CC4488CFFD3B85C6C902DA6E33E5C92E47B535E9302CF91AE465CC5FEF722C9656F109B8DCF2DFE305BFF71FC55D9095D47144CDEF8E2371D7E6356E143A64B718DDFEB4EE7167F51478DE676D14230EC1CAD539BBAA25C6675D2E4F5C81D6ACEFBB71BD4969FBF9A6AD0B6613AA5F3BD3D774785B9ABFAEAF4619E21EF4F4D37E8C20C833A3510F4F4AD7A1CFCC7A0316D359A789D46BFCF34E85240FFE6089D6A7B6AD3E705067DCD182FDC6550B7C6829A1882D25304A5F2B57F7321D7F2528E4E9A27887FFB7035F7C4A4E0DC03E30CA9C37A1FEEAE51F324413FCF30E2863FA5B690365BD511B463945E8EFFE2DDC1F87DA29F4E69FCFE5C9141A9BAA0F50374690B7804E3FF625228FE02DE9329191A7D3A31881FF3F1DBA76E09DF7B6BFF3AF26D29AE16FEC91D34A91BD042D0C8D65A44FCC05DE71A41F775D5A8BE10D20F3EC937A82EEBBA5C2BA85F33417FCF0EE2DF3050A7CD8375FAAE3088FF335ECB125E2FCE306CBF1FCA24FFC5B3642EEF1B13FF007FE78682EEE11868A00969DF89DF392FAF9D267D65DAF51AFD39CBA01EA982F2799F4FB35FC3A756F4D1CBF163EF0BF977BB6ED3CBF1CFE438821F62BD917CC6B77634F97F3A45E6A2D6AEF0E31EF69F1BA4D3F32C7BC7E8F21DFC16BABF6687E23F5EA0F4A5930DFA669ABAFFBE48FD0631FDF2105DFA38F4B660CED9C2A06EEB509DCEDF5939A7FAB63F4856D90132E7D471C53F66BCF8D3C985DE08FC18EDBDFDEFCD4926EBD8DB64ED5AE5CAFFA38B33FF1A8E7CE7CCBF11F079AB813FF0CE5CD084FCE7CBC8B7716A94FD4F92FEBA674C900FC0A1AB99B3E11FF013DCDB7270BC41DF4E53BA352C9B383EF10C3BE049E8C1F125CC55886D1BD333CCF51F8C8F31FF2EEBA6E27969D7A8FC73EF8D9AF4F9177394CF23D6B0A6D787A9589CC7B13D9F7F83BCB66FAC7A3F2353A3216982EA3117EDE6182A9BACF45823386C2073D91A5EC7B25EBAE4CC8FF262AF1F7C1BA690FF5C2999F353A3E29F7383467A2D2139AE227EC4E6C7130C99736CFCD877D8C9E135409CF85F19AA30DFCF5CDB93392AAB91A876FD63ED2921EBC81B322E2AC33F95B9AE29E72F6F678D66B338F103C74DCC79E0BD4379A1F8616B3A7364F7D450FCC8E5C8D52FB07F75A82768E5CD7AF5EB4FE621AB742FF9DE5A5229FFD7E3FC0B7F40AE018F57C48FB347ED03DE037EE8E04B9BD9DF90331EE9A185E087EDB97C9EED394F25737E3B5358C3FAF98134CE0BA7C95732226CFF91B7BAF2F91E0BC41BCE1CCFA8B9901B706F0BFC026780FB6C3E8FC12DB93EE3BD45DE45BC432FE3D6ABFC0DCFA8FDDCF28FB9B019F9D6E406A56438F9D64F9262ED5A4DFEDF7E247371460DF833297EFC19611DA81DFC968FAC839BC87A6FA312C66DED7CBC5CCC47B3C2F0C7A57FAC2EFE0A621DDF49BE670B62E8BF22E3874F806F4C077EE406F0BCCA1F415BD05DF246C7E646E0E3FE5347D976B2ABFCBB8463AF8150752D3803FEBB6FAC4E2D9305B5604E1ADD46A33FB8562BE5FA38A3BEA034D6836F50F7FCC0B8FB34553AC42A6A65D8FE85EBBE465C63D7655E90B58E4BFFB1F7C52ADB4FBE75F9AEEB872D4314CFD8CF7D19D3C22C8D7E651C0D995F5097A14F1BC56BC13E83CFB1EEE5BD75EAC86BFA87CF6A427BD507C1367809F35AF0BAD6F6D763AF1F56E590FFCCF14A6BB868F8710E4F067A8C4CEEF596F6D464BF853C0C9F1B1BE819C0B9B9AD34697351B6CA03B08DBC8CF5CECF52F9CB157E87C83338B1BBCAFAC7F9FDA1227EF4A78FF552FB863DC45AC6A56BB2EEC77CD406F338670373EF2642EA6671DE1BC66BF9728A217B04D414E050D83D9A5F8DEF0F2BFA73ED7032621C38EBB7C5DD34995F9DF8517FA197844FA0E743FDFECE489D1AB14F20DFC2370E733E43AD011DF27763F677F4F238AB7629CAA72E077C6D419656F5FE1747FEFE609D7C57727F55FE63F7D7C8A74E1BC85FAFE5EAB26FB4F5E8E7B7E6AA1EC5D6216FBDCA3A3B760FF19E97EFB757AD51E6E4187948625D3988FC674F84C5C115E1FF2BF4FDCD3ABC8D6BE9EE571E7FC56F5035E85F9CF925BEFD5765F543923BBF288ED17F62C5EF75833FF4BB634CF8BDF1C39FF81F84C4488CC4488CAB73901C17AC9A5E95B5ABEF5AD37DFB17C23CC43D]
Point(Handle)
link(onCreate,7762274:doInit,[(103,619)(103,557)])
}
Add(BASS_Init,7762274,117,551)
{
link(onInit,3098335:doEvent1,[(235,557)(235,574)])
link(onError,11232751:doMessage,[(165,564)(165,606)])
link(Handle,6488361:Handle,[(137,539)(91,539)(91,643)(47,643)])
}
Add(Message,11232751,180,600)
{
Message="Error BASS initialization"
Caption="Error"
Icon=1
}
Add(Hub,3098335,243,568)
{
OutCount=6
link(onEvent1,8570657:doLoad,[(365,574)(365,544)])
link(onEvent2,10791262:doLoad,[(393,581)(393,594)])
link(onEvent3,2146342:doLoad,[(381,588)(381,643)])
link(onEvent4,8332581:doLoad,[(349,595)(349,706)])
link(onEvent5,9912701:doLoad,[(301,602)(301,756)])
link(onEvent6,1361511:doLoad,[(285,609)(285,805)])
}
Add(BASS_dll,8570657,474,538)
{
link(NameDll,6663329:Value,[(480,532)(512,532)])
}
Add(Memory,6663329,506,487)
{
Default=String(bass_aac.dll)
}
Add(Memory,13409555,551,535)
{
Default=String(bass_ac3.dll)
}
Add(BASS_dll,10791262,530,588)
{
link(NameDll,13409555:Value,[(536,578)(557,578)])
}
Add(Memory,10559211,594,581)
{
Default=String(basscd.dll)
}
Add(BASS_dll,2146342,582,637)
{
link(NameDll,10559211:Value,[(588,625)(600,625)])
}
Add(Memory,5740465,673,638)
{
Default=String(basswma.dll)
}
Add(BASS_dll,8332581,630,700)
{
link(NameDll,5740465:Value,[(636,678)(679,678)])
}
Add(Memory,4616829,742,676)
{
Default=String(basswv.dll)
}
Add(BASS_dll,9912701,721,750)
{
link(NameDll,4616829:Value,[(727,729)(748,729)])
}
Add(BASS_dll,1361511,784,799)
{
link(NameDll,910421:Value,[(790,787)(797,787)])
}
Add(Memory,910421,791,744)
{
Default=String(bassflac.dll)
}