Пробую выслать пример . извените...BASS.DLL (2.4.1.1) зарание благодарен
Add(MainForm,1704450,28,112) { Width=419 Height=159 Caption="BASS test" Point(Handle) link(onCreate,4252681:doInit,[]) } Add(BASS_Init,4252681,105,126) { link(onInit,10183901:doCheck,[]) link(onError,11232751:doMessage,[(149,139)(149,181)]) link(Handle,1704450:Handle,[(125,114)(79,114)(79,156)(34,156)]) } Add(BASS_Version,10183901,161,126) { link(onCheckFailed,109118:doMessage,[(205,139)(205,181)]) } Add(Message,11232751,161,175) { Message="Error BASS initialization" Caption="Error" Icon=1 } Add(Message,109118,217,175) { Message="Incorrect version of BASS library " Caption="Error" Icon=1 } Add(BASS_StreamCreateFile,2073512,259,84) { Name="MainSound" link(onCreate,10701583:doPlay,[]) link(onEndPlay,13896816:doMessage,[(307,97)(307,34)]) link(onError,13951091:doStrCat,[(308,104)(308,132)]) link(FileName,12373576:Text,[]) } Add(Edit,12373576,259,35) { Left=15 Top=15 Width=350 Text="" } Add(Button,13708268,161,84) { Left=15 Top=45 Caption="Play" link(onClick,2073512:doCreate,[]) } Add(Button,13089460,161,35) { Left=365 Top=15 Width=20 Caption="..." link(onClick,4225408:doExecute,[]) } Add(ODialog,4225408,210,35) { link(onExecute,12373576:doText,[]) } Add(Message,12393418,371,126) { Caption="Error" Icon=1 } Add(StrCat,13951091,322,126) { Str1="Error opening file name: " link(onStrCat,12393418:doMessage,[]) } Add(BASS_ChannelPlay,10701583,322,84) { Channel="MainSound" link(onPlay,14122420:doData,[]) } Add(BASS_ChannelPosition,9802659,371,182) { Channel="MainSound" Mode=2 } Add(Timer,3915133,322,238) { link(onTimer,12272575:doData,[]) } Add(Label,4539506,483,238) { Left=365 Top=45 Width=10 Height=17 Caption="0" } Add(DoData,12272575,371,238) { link(onEventData,10482012:doEvent1,[]) link(Data,9802659:CurPosition,[]) } Add(DoData,14122420,427,84) { link(onEventData,884648:doMax,[]) link(Data,9802659:Length,[(433,72)(409,72)(409,226)(384,226)]) } Add(Hub,10482012,420,238) { OutCount=3 link(onEvent1,4539506:doText,[]) link(onEvent2,884648:doPosition,[(468,251)(468,83)]) } Add(ScrollBarEx,884648,483,77) { Left=75 Top=45 Width=280 ScrollMode=1 Point(doMax) link(onPosition,9802659:doPosition,[(529,83)(529,171)(359,171)(359,188)]) } Add(Message,13896816,322,28) { } Add(Button,2021452,70,231) { Left=15 Top=85 link(onClick,6882738:doPause,[(128,237)(128,251)]) } Add(BASS_ChannelPause,6882738,154,245) { }
|