Еще, а есть ли возможность как то присоединить к программе файл: bass.dll, чтобы на новом компьютере его не устанавливать?
Add(BASS_Init,4252681,273,91)
{
link(onInit,10183901:doCheck,[])
link(onError,11232751:doMessage,[(315,104)(315,139)])
link(Handle,3979887:Handle,[(293,80)(182,80)(182,198)(132,198)])
}
Add(BASS_Version,10183901,329,91)
{
link(onCheckOk,12302345:doInit,[])
link(onCheckFailed,109118:doMessage,[(366,104)(366,139)])
}
Add(Message,11232751,329,133)
{
Message="Error BASS initialization"
Caption="Error"
Icon=1
}
Add(Message,109118,378,133)
{
Message="Incorrect version of BASS library "
Caption="Error"
Icon=1
}
Add(MainForm,3979887,126,140)
{
Width=478
Height=88
Color=15793151
BorderStyle=0
DragForm=0
TransparentColor=-16777211
Position=1
Point(Handle)
Point(onMouseWheel)
Point(onMove)
Point(Top)
Point(Left)
link(onCreate,7687912:doEvent1,[])
}
Add(Hub,7687912,203,154)
{
OutCount=5
link(onEvent1,4252681:doInit,[(259,160)(259,97)])
link(onEvent2,4658382:doWork2,[(276,167)(276,188)])
}
Add(Message,11713735,441,133)
{
Message="InitRecord failed!"
Caption="Error"
Icon=1
}
Add(BASS_RecordCenter,12302345,385,91)
{
link(onError,11713735:doMessage,[(425,104)(425,139)])
}
Add(BASS_ChannelPlay,1382309,406,434)
{
Channel="InetStream"
}
Add(BASS_StreamCreateURL,513094,322,469)
{
Name="InetStream"
link(onCreate,14453065:doEvent1,[])
link(onMeta,6937731:doWork2,[(365,482)(365,517)])
link(URL,15904029:Value,[(328,429)(489,429)])
}
Add(Hub,14453065,371,469)
{
OutCount=3
link(onEvent1,1382309:doPlay,[(395,475)(395,440)])
link(onEvent2,6937731:doWork1,[(396,482)])
}
Add(BASS_ChannelEnumTags,10257869,483,469)
{
Channel="InetStream"
Type=5
link(onEnumTags,6805843:doCharset,[])
}
Add(Charset,6805843,525,469)
{
Type=7
link(onCharset,1698626:doDelete,[])
}
Add(Delete,1698626,567,469)
{
Count=13
link(onDelete,2071084:doDelete,[])
}
Add(Delete,2071084,609,469)
{
Count=2
Direction=1
link(onDelete,2841604:doEvent1,[])
}
Add(Label,11237885,749,504)
{
Left=80
Top=40
Width=384
Height=12
Color=-16777216
Font=[Arial,8,0,8421504,204]
Transparent=0
Caption=""
AutoSize=1
}
Add(DoData,15910127,539,560)
{
link(onEventData,5543223:doEvent2,[(696,566)(696,517)])
}
Add(Hub,5543223,707,504)
{
InCount=2
OutCount=1
link(onEvent1,11237885:doText,[])
}
Add(Timer,2543937,441,469)
{
Enable=1
AutoStop=1
link(onTimer,10257869:doEnumTags,[])
}
Add(Hub,15491749,406,511)
{
link(onEvent1,2543937:doTimer,[(430,517)(430,475)])
link(onEvent2,10729544:doWork2,[(430,524)(430,566)])
}
Add(HubEx,6937731,392,511)
{
link(onEvent,15491749:doEvent1,[])
}
Add(Position,16598951,469,525)
{
Target="StreamUrl"
StartPos=0
ShortSearch=1
link(onSearch,10729544:doWork1,[(522,531)])
}
Add(HubEx,10729544,518,560)
{
link(onEvent,15910127:doData,[])
}
Add(Hub,2841604,651,469)
{
link(onEvent1,5543223:doEvent1,[(686,475)(686,510)])
link(onEvent2,16598951:doSearch,[(675,482)(675,514)(457,514)(457,531)])
}
Add(BitBtn,15713180,112,308)
{
Left=10
Top=10
Width=50
Height=65
Frame=1
Caption=""
Data=String({Наше Радио}[http://94.25.53.133/nashe-128.mp3]<001>)
Flat=1
Bitmap=[ZIPFE32000078DADDDA7590DD461207E07198930A731C66722A0E831D666666666666666666666687999999992F5FD7F52B59796FF7ADBDBE3F4E5553926646A369FE754B7D97FAAB5789A3F73F6DAA7F9ADB3EFFB41EA567F4F7FBEF78F5F8FBEFBFFF2FDB9F7FFE59FEFAEBAFF2FDF7DF97AFBFFEBA7CF3CD378D56BFCFF6EDB7DFC6987367733B6AB94EBD5F9FF6D34F3F35F6D80E2DEFBEFB6ED97AEBADCB061B6C50B6DA6AABB2EDB6DB966DB6D9A66CB6D96665E38D378EE67ABBEDB68BFE4D36D924E69BB7F9E69BF7776F5C73ADCFB35B6EB965A37FD34D372D5B6CB145ACE5D91CCF679DDDDBCB9E7BEE59DE7FFFFDE073F2BB233AEEBDF7DEB2CC32CB94534F3DB51C7AE8A165DF7DF72DFBECB34F39E18413CA69A79D564E3CF1C472CC31C744DF91471E59CE3DF7DC72C8218794BDF7DEBB1C77DC71E594534E29071C7040B43DF6D823E6EDBFFFFEE5A0830E8A31CFECB5D75EE588238E28E79C734E39FAE8A3CB7EFBED578E3AEAA878A739071E7860D975D75DCBC1071F5CCE3CF3CCE89B69A699CAF9E79F1F7BFCE38F3FFE45475D4EF7DC734FAC69DE15575C51165C70C1B2D1461B95DF7EFBAD31E7A5975E8A7EFC7CF2C927CB9A6BAE59165F7CF190A571FC758F0EF25974D1458307C6EEB8E38ED2B76FDFB2FAEAABC73AD75D775D5978E185CBFDF7DF1FEFC49325975C32E8C7CF934E3A299E23AFF3CE3BAFB1E7EABEF3BA4ADB7DF7DD17FCD277E79D77961E3D7A9429A79CB29C71C619E5A28B2E2A5F7CF14579EFBDF7CAD4534F1DBEC27ECD1975D4511B72A7070E7B5876D965E33A7979E59557C6BD67669D75D6B2EEBAEB96C1071FBCF4EBD7AFFCFCF3CF65F4D1472FC30E3B6CB9F5D65BE33CC92493948F3EFA28D6BCF0C20B5BDA475D3EE4818EE4FB98638E59669F7DF6D8AFF7E197317A31D2482385AD0C3FFCF065A9A5966AACF1D0430F451F79CD33CF3C65FCF1C76FC8EAF6DB6F2F430D3554996DB6D9CA0C33CC50C61E7BEC32CE38E394575E79A5FCF2CB2F65E289278EBD7BB7EBA9A69A2AF8868E0B2EB8A0531AF21A1D74DBB53D3B7AF5EA15BAE0607FC6C8CA7EC61D77DCE8A7EBB906BECE38E38CC17307FBCD31F6E1A0FF37DF7C732306789EDECF32CB2CC1AF555659A50C36D860A193FCE7861B6ED8928E66F4DC75D75D61DFAE6FB9E596B0150DFFE938DD31F6EBAFBF96E38F3F3E6C92FED4E57DFDF5D7879D1E76D861E5D5575F6DF43FFCF0C3D1F7E8A38FC63D7DB3F6238F3C12F70F3CF040BC8FED5B9F5CF4E34557E4414F975F7EF990853DF233CEDE9D7E890DEAE3CB9CBD17ED3BEEB863D961871DC23F994FAE9EA7A73BEDB453D979E79DC37F1AE703C8C4B87968B13EDADD7BC658F691D355575DD5D21EEA74BDF0C20B65ACB1C66AE8309F41A7669E79E6B2D8628B95A5975EBA8C37DE78A1F3E865C7534C31451979E491C3EFF0356C6AF2C9278FB99E59649145626C81051688335DD1F83CE36C8F9FF0CE79E79D37D6D0C7E6EC7F882186085DBBE1861B3AD5A93C3FF7DC73B1A6E3D24B2F2DEFBCF34EC81CCFDF7EFBEDB0393E66892596081D63BF64C01798FBC1071F846DF393C6DE78E38D784E7BEBADB7CA9B6FBE19D7CEEEB31FCFD813FF9B7DD6BBF1C61BCB28A38C12FBA1AB9DD947D2F1FCF3CF873CAC2926EAFBE4934FC2E7E65CFA808FF90C1B5D7FFDF51BBE7C8E39E668F88ABAFC5BC52FF21972C82183F62A6FDD937FD2D14C9F9ABDA34A079FA41F5FCE3EFBECB06DF7EC809EF14B9EF9F0C30FCBCB2FBF1C63B0D034D34C133690EB5E7CF1C561179F7DF659CC272378E4F2CB2F6FC4673A46AF5E7BEDB5E823D7DD76DBADACB4D24A65B8E1860BDF5595472BFB48BED0AB31C618A33F3AE812FC9174587FB2C9262BDF7DF7DDBFF8F0F1C71F9709279CB0210F4DBCB7A6FDA74FA2EF6242D2B1D0420B853C928E679E79A68C38E288611B0EF3938E563454FBABF2E083531E6269D241AFECF5F3CF3F6F60B2F425FCA4389CBE5B634F74C33ADEC5F73A920E7D7C40551ED61103C9C25EC8839D77860FAB74F03755798843E49C6BF089D6B71F7DF40646CCF8E038FCF0C31B6BB21D74B0DD8CF70EB82D7521E5F1FAEBAF377207BA8107F6A2C162EDF8DD5674D49FA1FB0E3834F775F7DD77C735FF52A763BDF5D66BD0519547950EF651D52BF3605331CA411E49473B7A95F1031DB0A93EF94CEE41139F1CDE619CDEE7B838EC10D7EA74F0B55599A123F30974B0858CFDB0A1180B4BA65EB5EBAFD2CED1E1200F73F0E8F4D34F0F1C670E1BB6363B712F574BDF453FEA74D00D382CF5AA1D793CF1C4130D7C56B7F376622179F02DE867E7FAF0513E93768E4F0E7CAEAE814EFC73C083557988FFCDE491CF56E5E15E8C950B8AE7A9575DB1F3D42BCFC15A19132EBBECB2C61CF9A043ECAA3EFBE38F3F96E9A79F3EC6E476D92F97E2DFBEFAEAABD8C78B2FBE18BC96EBE6BEC4D5A1871EBA7CFAE9A7FDAD99EF323FE5D12C07A9E312764E1E0EF8127F6005FCF57EF10E0E714C37DD7441B7267F90FB64ECE1D33C6BFE8A2BAE187906FF6C5EE652ABADB65ADC5B77EEB9E70E79C8E3F85C6BF25DF065D25195476776E279F8CA73F60403F25F62D244134D14F10FDFF2D027DF810BED35755A1EE5D949279D3464AB9F9C3D2FE7736F1DF7F2A63C26986082B8EFD9B3678C8D30C208FDD1D10ED6D11E7BECB190319EC3FC6C54CE07AFE38D1C4F1D858D6FBFFDF6111BE8BF663ECC62CC339E352EF732973DE8336F975D7609FDCF673D07D7CB973C93EBD23DEF9597A917B45BC31207F8D3CCE5B3C6029B640ED54E7EDCD539B089567F6F5EA3A9B37CB09E9F8B01D577CA3FE98D7A839C83EECB93D41E603DE37C9B6761FC679F7D36749CEEF351F0088CC83FA7EFE65FB51F7EF8A15163EB887E724447159B77260FFB144B73BE35D469F80EFBA7376BAFBD76596EB9E51AB9127C04AFB357B9099CBAEAAAAB465B79E595032BD2B5DD77DF3D6A617CD81A6BAC11389A4DA64C9AF91E7B596BADB502E375451EE8C858C1E7D26BBE07DFC4F8DB6EBB2D78FDE5975F06BE85BDE43EE23ADFA3F17BCE70EB534F3D1572D25CF3611A1FE8CC5F676DAD59AE6D2F034A47D6DD601A766D4DFB9577F229CEEC528DE1DA6BAF2D0F3EF860A376D311FEA98EB1DB4B2EB9A4BFDA723379744647335DABCB03DE93A39A876778CE7FC04BE811F7E4B49A6B36A44E2466D01F7C203FF602E757DF4716704CD6EF5AEDAD191D9DD9485D1EAEE5E6D5384AE7C52CB4CC3FFFFCE143F986AC87AA0F98C366E094DEBD7B07BED0F855F523FA662D79A2E7EB7BAF5E77661FCD684A3AD2E6D8234C42D7612C7EC0BBED974DB36DFB230B67F5643E41BD0636915FC1F2727831091D9A989EF10AB6520368B5AF81B18FD457360E97C0AF79C04A68C0FF9B6EBA29E22C5D97FB268DEC27E924333E8CCFB61FD8593C4AF95AFBACB3CE6A19A7D1C13F76850E1848ECB686FC1B4DF498BF523BC34B7E569D5A5D16868121C843BD968F15BFF980ACD769EA5CD34E3B6DE0146771A75AFB8339F9C68C7DDDE5AFB2BEC036E498755EA191CDB3613E876CE69C73CEC00FF6095BB179D7EA27CE70A5788A66FC78FCF1C71BF90BBFE05B48F5BB40D233B074884FFC153B4313FC59D5638D9F952F661CFBFDF7DF83AF7226B62CE78583D1AA918DF847F7D4F9923FFC3619E34DDAF8C0D241AF3237747DF2C92707BFE8289D610B62A0F8C576D5C6C943AD814DF30574856F804BCC6D86A7D2B7272D7C0A3F57C559034307BDB686D8CD778A07EA38F8C767E2277D232F7183FCD0871EF80356A537F0AC7A1B99B2073C57BB6283491BF9651D8C0DC2ECF8D71DF6810EEBF3EB68986FBEF9FAC3BADE67AFF4440D2AF5409C330F2E14DBE9BFBC886EA105BDB0099EF3C930A29A0559CA75B316E3BE9AF30D081D7805B7B309DF4BBD5FDD1E2DF090F86C1C9FE14F78B09DB84417E52EAE3D6F6D3E821F533FC2173C847DAA32E90E7C45B7E5D4EC5B8CE6FFD90B7EB147FCF64EFE1F86173FC437DFCEF0177664F3FC9DDC9ADE79876F38E2D235D75C133955D60FD9207FB2C20A2B04A6CB3D358BE75DC525EA39F268354AB680FFBE3DC3ADF693DF71E809B9E1F93AEBAC137B46B7BD89EFBEA3C87B612E7150DCF7BD8B1FC6077AD0A74F9FE09975E5CAF92D8A4FACC6C176F28F3A1D7CA73837CC30C3449EED50131D6DB4D122AEC34E62B5782C9FE21BC8C2BE12E3F35F627EFE572056E289F9622B9AE897FBCCB3E69A6BAEF8AE569747BB759F3A1D7C09FF696F6C83FEB01339916F07EA5268524310DF616031103E243B768B176C1F7FE58A1ABEB373F64C977C7BA8EE11168267B29EC50F665E3B20F2688679F832B80A5D7253BEF4EAABAF8E3883D77C1C19AA99A811C22E68A443E23A19C2EBF249F925D9B1354D1DF1E9A79F0EBDA5CBFC9977D2D5FC963420F2689513C04FF6501D13BF600CB9381EDB0BDD8293C985EEF8D6A8464A37D57D7C33CB5C86CF3046C69A5A283CC6A754BFD70E883C12EFC019621B7F45067274ADEAE75BE5A55943640BF93F047DA16FE20BB9FAFECC5FD0DBD45DEBDB8BDC599CCA7F2206461EE4CDAED5E3E03EFC237779857AB63C02ADF6096FD17DBE2EF318394CB358930D9D59EFAD377BE92A6E6F4587FDD8275F79ECB1C706E6A0EBE8516F64E7F41F8DF20E7E573ECC47A3915EC1E6EC19ADFC47B54E054BF251CD72EDEEA8337414A7ED89AF870DF95DBA20CEA3037645A3DAAAFA66E62ABE49B36FF51F7694F282BDF827F695B47457BDA4AEEBC9BF7A9DA97E4DA7602DF2B31E7C49FFC43B350A72622BF93D24BFCF9247E291EECA3FDA9147AB7FB83AAAC734C3EFE6D8AB9A1E9ABB9B8E6635FA563974AB5A47B3B13A0F52BE300B5955E53F28E4D18EEF6E564B6BC5877ADEE7DD6C8B9FABCAB93BE86817CFB4D39AD150A5135691C3E7B7DFEEAC8B76757FEDC8A7231B526785ADBAEA775BD545BB42C7C0B4FCEE91FFA1A899C033D56F09E8A8E2C4AED419D2CE0775ABFA25760E5BC256FED9CA7F1A6179F2801393EF1DFD8F6C0EEC59FD57E77FD9C478BAE33F1C7555FF58E7BEABDFA3DAB159DF95E0B3FCD7BBFABFF7A068D6B7FFC464F420DF2B1F76965BC3666269DD27B7FA87D77FC5B075F57B12AC34289A7C59F30EB9AFB39A92468F725C4E236794F334D3A96631094F605B7602F364CD695036EFE0A3B255DFE91EB6C75F32E313EA98A92BDF5A0755EBE8BBFE80C6A6FF356DEDFE9BD059FB0FAA8D44B8]
Point(Left)
Point(doLeft)
MakeExt(Bitmap,,Bitmap)
link(onClick,5455776:doEvent1,[])
}
Add(Hub,454572,294,469)
{
InCount=2
OutCount=1
link(onEvent1,513094:doCreate,[])
}
Add(BlockFind,11600799,301,308)
{
StartBlock="{"
EndBlock="}"
link(onSearch,2994607:doDelete,[])
}
Add(BlockFind,11991291,301,357)
{
StartBlock="["
EndBlock="]"
link(onSearch,5723488:doDelete,[])
}
Add(Hub,2979162,448,357)
{
link(onEvent1,15904029:doValue,[])
link(onEvent2,454572:doEvent1,[(474,370)(474,422)(282,422)(282,475)])
}
Add(Delete,5723488,350,357)
{
Count=1
link(onDelete,16393410:doDelete,[])
}
Add(Delete,16393410,399,357)
{
Count=1
Direction=1
link(onDelete,2979162:doEvent1,[])
}
Add(Delete,2994607,350,308)
{
Count=1
link(onDelete,7144038:doDelete,[])
}
Add(Delete,7144038,399,308)
{
Count=1
Direction=1
link(onDelete,8364584:doText,[])
}
Add(Label,8364584,483,308)
{
Left=73
Top=18
Width=135
Color=-16777211
Font=[Arial,10,0,8421504,204]
Transparent=0
Caption=""
AutoSize=1
Alignment=2
}
Add(Label,13647121,217,455)
{
Left=73
Top=61
Width=43
Height=20
Font=[Arial Narrow,10,1,4227327,0]
Cursor=14
Transparent=0
Caption="играть"
link(onClick,454572:doEvent2,[(271,461)(271,482)])
}
Add(Memory,15904029,483,357)
{
}
Add(Hub,5455776,175,308)
{
InCount=9
link(onEvent1,11600799:doSearch,[])
link(onEvent2,11991291:doSearch,[(229,321)(229,363)])
}
Add(Label,4289099,238,497)
{
Left=118
Top=61
Width=58
Height=20
Font=[Arial Narrow,10,1,4227327,0]
Cursor=14
Transparent=0
Caption="не играть"
link(onClick,513094:doDestroy,[(312,503)(312,482)])
}
Add(DoData,5738885,553,77)
{
Data=Integer(0)
link(onEventData,11450258:doEvent1,[(593,83)(593,104)])
}
Add(Hub,11450258,602,98)
{
InCount=2
OutCount=1
link(onEvent1,7199122:doVisible,[(623,104)(623,111)])
}
Add(DoData,5715575,553,112)
{
Data=Integer(1)
link(onEventData,11450258:doEvent2,[(593,118)(593,111)])
}
Add(Hub,2145252,672,98)
{
OutCount=3
link(onEvent1,5738885:doData,[(710,104)(710,70)(541,70)(541,83)])
link(onEvent2,11368052:doStart,[(724,111)(724,132)])
link(onEvent3,903955:doData,[(709,118)(709,245)(541,245)(541,209)])
}
Add(Hub,13721036,672,175)
{
OutCount=3
link(onEvent1,5715575:doData,[(697,181)(697,149)(541,149)(541,118)])
link(onEvent2,11368052:doStop,[(724,188)(724,139)])
link(onEvent3,4658382:doWork3,[(697,195)(697,252)(516,252)])
}
Add(DoData,10926375,553,161)
{
Data=Integer(0)
link(onEventData,1385058:doEvent1,[(590,167)(590,181)])
}
Add(DoData,903955,553,203)
{
Data=Integer(1)
link(onEventData,1385058:doEvent2,[(590,209)(590,188)])
}
Add(Hub,1385058,602,175)
{
InCount=2
OutCount=1
link(onEvent1,2709694:doVisible,[(623,181)(623,188)])
}
Add(BASS_RecordStart,11368052,749,126)
{
FileName="YU.mp3"
Freq=44100
Channels=2
Name="InetStream"
}
Add(Label,4599930,56,140)
{
Left=453
Top=5
Width=15
Font=[Arial Narrow,10,1,128,0]
Cursor=14
Hint="закрыть"
Transparent=0
Caption="X"
link(onClick,3979887:doClose,[(107,146)(107,167)])
}
Add(VolControl,6619248,392,210)
{
Device=5
}
Add(ScrollBar,1499549,322,210)
{
Left=255
Top=65
Width=210
Max=56500
Page=5650
Position=45200
link(onPosition,6619248:doVolume,[])
}
Add(Label,7199122,630,98)
{
Left=183
Top=61
Width=48
Height=20
Font=[Arial Narrow,10,1,4227327,0]
Cursor=14
Transparent=0
Caption="записать"
Point(doVisible)
link(onClick,2145252:doEvent1,[])
}
Add(Label,2709694,630,175)
{
Left=188
Top=61
Width=33
Height=20
Font=[Arial Narrow,10,1,4227327,0]
Visible=1
Cursor=14
Transparent=0
Caption="стоп"
Point(doVisible)
link(onClick,13721036:doEvent1,[])
}
Add(HubEx,4658382,512,182)
{
Angle=3
link(onEvent,10926375:doData,[(516,167)])
}