Вверх ↑
Этот топик читают: Гость
Ответов: 133
Рейтинг: 3
#1: 2009-12-18 01:33:00 ЛС | профиль | цитата
Плеер 1000V media player. ВЫВОДИТ ПРИБЛИЗИТЕЛЬНОЕ ЗНАЧЕНИЕ БИТРЕЙТА!
code_16011.txt
карма: 0

0
файлы: 1code_16011.txt [13.3KB] [330]
Гость
Ответов: 17029
Рейтинг: 0
#2: 2009-12-18 11:01:34 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-11 06:25:54
карма: 0

0
Ответов: 4641
Рейтинг: 334
#3: 2009-12-18 11:50:58 ЛС | профиль | цитата
Уважаемый Artem_user, так что в этом плеере уникального и нового. ?
Пока вижу только нескольно добавленных элементов к стандартному примеру
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 133
Рейтинг: 3
#4: 2009-12-18 12:05:40 ЛС | профиль | цитата
Битрейт=Размер файла/продолжительность.
Просто показано, как средний битрейт вычислить.
карма: 0

0
Ответов: 133
Рейтинг: 3
#5: 2009-12-26 19:42:37 ЛС | профиль | цитата
Новая версия 1000V media player.
Улучшен дизайн, исправлены мелки недоработки.
code_16172.txt
карма: 0

0
файлы: 1code_16172.txt [17.7KB] [261]
Ответов: 1304
Рейтинг: 405
#6: 2009-12-27 22:46:23 ЛС | профиль | цитата
Artem_user писал(а):
Просто показано, как средний битрейт вычислить.

Artem_user, можно и точно вычислить, далее пример схемы позволяющей вычислить битрейт MP3 файла, с точностью 99,9%. Для чего необходима точность, просто чтобы небыло ляпов как в "Проигрыватель Windows Media", где битрейт MP3 файла с портированной картинкой может равняться 400-600kbps .
ps: Есть в схеме недостаток, если в MP3 файл вставлена большая картинка, долго вычисляет .
карма: 3

0
файлы: 1bitrate_mp3.sha [6.3KB] [197]
Ответов: 133
Рейтинг: 3
#7: 2009-12-28 13:38:10 ЛС | профиль | цитата
"в "Проигрыватель Windows Media", где битрейт MP3 файла с портированной картинкой может равняться 400-600kbps" - не разу не встречал.....
Ваша схема еще более неточно меряет....
Показывает 306, а настоящий битрейт 320
Мой плеер показывает точнее...вроде......
Мой плеер показывает 312, а настоящий битрейт 320


карма: 0

0
Ответов: 970
Рейтинг: 270
#8: 2009-12-28 14:31:42 ЛС | профиль | цитата
в media player, входящий в ОС Windows 7 наверно это уже исправили
карма: 0

0
Ответов: 1304
Рейтинг: 405
#9: 2009-12-28 23:58:17 ЛС | профиль | цитата
Genius, уже исправили в XP_SP3, а раньше на SP2 выглядело вот так

Artem_user писал(а):
Ваша схема еще более неточно меряет....
Показывает 306, а настоящий битрейт 320
Мой плеер показывает точнее...вроде......
Мой плеер показывает 312, а настоящий битрейт 320

Абсолютная уверенность, залог успеха .
А я вот так запросто дядькам с мелкософта недоверял бы. Файлы MP3 нафаршированы тегами,картинками, иногда просто нулями для увеличения объёма, и многие на этом попадаются. Существует рят специализированных программ которые покажут все внутренности MP3, к примеру такая малютка как mp3DirectCut, или Syntrillium Cool Edit Pro 2.1 или любой HEX редактор коими я и пользовался. Пока разбирался что почём нашёл ещё один байт код с обозначением первого кадра, новая версия Bitrate_mp3 определяет теперь все файлы MP3.
http://www.hiasm.com//getfile/16229
карма: 3

0
файлы: 22356_.png [6KB] [343], bitrate_mp3_v1.1.rar [2KB] [346]
Ответов: 133
Рейтинг: 3
#10: 2009-12-29 00:40:35 ЛС | профиль | цитата
Vlc media player показывает 320, ваша схема 306, винда 320.
Songbird, к прмеру, определяет битрейт и ставит значения, которые с виндой не совпадают.
НА скриншоте- Vlc media player.

------------ Дoбавленo в 00.56:
1000V media player
Добавлены новые кодеки-теперь многие аудиоформаты жрет
Make(delphi)
ver(4.03 build 181)
Add(MainForm,2953706,28,706)
{
Width=701
Height=594
Color=-16777203
Caption="1000V media player"
Icon=[ZIPBE25000078DAED59096C1465145EE49F9916CA2194B31C05A914C452B90594A3504E01299672B68AC016C4002A8941518209180E1BE281800A8A1115D11803211C42141503882296265E200851146F85D9D9E7FBFE7FA73BDBDD7667DB2531B23F79CCCC9BFD1FDFFFFFEF7DEFBDC1E3A9C57FB2B33DFC77BA676B86C7D3D4E3F164B2B0CA53E451FAC4488CC4488CC4488CFFD3B85C6C902DA6E33E5C92E47B535E9302CF91AE465CC5FEF722C9656F109B8DCF2DFE305BFF71FC55D9095D47144CDEF8E2371D7E6356E143A64B718DDFEB4EE7167F51478DE676D14230EC1CAD539BBAA25C6675D2E4F5C81D6ACEFBB71BD4969FBF9A6AD0B6613AA5F3BD3D774785B9ABFAEAF4619E21EF4F4D37E8C20C833A3510F4F4AD7A1CFCC7A0316D359A789D46BFCF34E85240FFE6089D6A7B6AD3E705067DCD182FDC6550B7C6829A1882D25304A5F2B57F7321D7F2528E4E9A27887FFB7035F7C4A4E0DC03E30CA9C37A1FEEAE51F324413FCF30E2863FA5B690365BD511B463945E8EFFE2DDC1F87DA29F4E69FCFE5C9141A9BAA0F50374690B7804E3FF625228FE02DE9329191A7D3A31881FF3F1DBA76E09DF7B6BFF3AF26D29AE16FEC91D34A91BD042D0C8D65A44FCC05DE71A41F775D5A8BE10D20F3EC937A82EEBBA5C2BA85F33417FCF0EE2DF3050A7CD8375FAAE3088FF335ECB125E2FCE306CBF1FCA24FFC5B3642EEF1B13FF007FE78682EEE11868A00969DF89DF392FAF9D267D65DAF51AFD39CBA01EA982F2799F4FB35FC3A756F4D1CBF163EF0BF977BB6ED3CBF1CFE438821F62BD917CC6B77634F97F3A45E6A2D6AEF0E31EF69F1BA4D3F32C7BC7E8F21DFC16BABF6687E23F5EA0F4A5930DFA669ABAFFBE48FD0631FDF2105DFA38F4B660CED9C2A06EEB509DCEDF5939A7FAB63F4856D90132E7D471C53F66BCF8D3C985DE08FC18EDBDFDEFCD4926EBD8DB64ED5AE5CAFFA38B33FF1A8E7CE7CCBF11F079AB813FF0CE5CD084FCE7CBC8B7716A94FD4F92FEBA674C900FC0A1AB99B3E11FF013DCDB7270BC41DF4E53BA352C9B383EF10C3BE049E8C1F125CC55886D1BD333CCF51F8C8F31FF2EEBA6E27969D7A8FC73EF8D9AF4F9177394CF23D6B0A6D787A9589CC7B13D9F7F83BCB66FAC7A3F2353A3216982EA3117EDE6182A9BACF45823386C2073D91A5EC7B25EBAE4CC8FF262AF1F7C1BA690FF5C2999F353A3E29F7383467A2D2139AE227EC4E6C7130C99736CFCD877D8C9E135409CF85F19AA30DFCF5CDB93392AAB91A876FD63ED2921EBC81B322E2AC33F95B9AE29E72F6F678D66B338F103C74DCC79E0BD4379A1F8616B3A7364F7D450FCC8E5C8D52FB07F75A82768E5CD7AF5EB4FE621AB742FF9DE5A5229FFD7E3FC0B7F40AE018F57C48FB347ED03DE037EE8E04B9BD9DF90331EE9A185E087EDB97C9EED394F25737E3B5358C3FAF98134CE0BA7C95732226CFF91B7BAF2F91E0BC41BCE1CCFA8B9901B706F0BFC026780FB6C3E8FC12DB93EE3BD45DE45BC432FE3D6ABFC0DCFA8FDDCF28FB9B019F9D6E406A56438F9D64F9262ED5A4DFEDF7E247371460DF833297EFC19611DA81DFC968FAC839BC87A6FA312C66DED7CBC5CCC47B3C2F0C7A57FAC2EFE0A621DDF49BE670B62E8BF22E3874F806F4C077EE406F0BCCA1F415BD05DF246C7E646E0E3FE5347D976B2ABFCBB8463AF8150752D3803FEBB6FAC4E2D9305B5604E1ADD46A33FB8562BE5FA38A3BEA034D6836F50F7FCC0B8FB34553AC42A6A65D8FE85EBBE465C63D7655E90B58E4BFFB1F7C52ADB4FBE75F9AEEB872D4314CFD8CF7D19D3C22C8D7E651C0D995F5097A14F1BC56BC13E83CFB1EEE5BD75EAC86BFA87CF6A427BD507C1367809F35AF0BAD6F6D763AF1F56E590FFCCF14A6BB868F8710E4F067A8C4CEEF596F6D464BF853C0C9F1B1BE819C0B9B9AD34697351B6CA03B08DBC8CF5CECF52F9CB157E87C83338B1BBCAFAC7F9FDA1227EF4A78FF552FB863DC45AC6A56BB2EEC77CD406F338670373EF2642EA6671DE1BC66BF9728A217B04D414E050D83D9A5F8DEF0F2BFA73ED7032621C38EBB7C5DD34995F9DF8517FA197844FA0E743FDFECE489D1AB14F20DFC2370E733E43AD011DF27763F677F4F238AB7629CAA72E077C6D419656F5FE1747FEFE609D7C57727F55FE63F7D7C8A74E1BC85FAFE5EAB26FB4F5E8E7B7E6AA1EC5D6216FBDCA3A3B760FF19E97EFB757AD51E6E4187948625D3988FC674F84C5C115E1FF2BF4FDCD3ABC8D6BE9EE571E7FC56F5035E85F9CF925BEFD5765F543923BBF288ED17F62C5EF75833FF4BB634CF8BDF1C39FF81F84C4488CC4488CAB73901C17AC9A5E95B5ABEF5AD37DFB17C23CC43D]
Point(Handle)
link(onCreate,4252681:doInit,[(91,726)(91,664)])
}
Add(BASS_Init,4252681,105,658)
{
link(onInit,3098335:doEvent1,[(223,664)(223,681)])
link(onError,11232751:doMessage,[(153,671)(153,713)])
link(Handle,2953706:Handle,[(125,646)(79,646)(79,750)(34,750)])
}
Add(Message,11232751,168,707)
{
Message="Error BASS initialization"
Caption="Error"
Icon=1
}
Add(BASS_StreamCreateFile,2073512,238,77)
{
Name="MainSound"
link(onCreate,10701583:doPlay,[(282,83)(282,34)])
link(FileName,16006709:Var3,[(244,64)])
}
Add(BASS_ChannelPlay,10701583,294,28)
{
Channel="MainSound"
link(onPlay,14122420:doData,[])
}
Add(BASS_ChannelPosition,9802659,308,126)
{
Channel="MainSound"
Mode=2
}
Add(Timer,3915133,357,196)
{
link(onTimer,12272575:doData,[])
}
Add(DoData,12272575,399,196)
{
link(onEventData,884648:doPosition,[(456,202)(456,28)])
link(Data,9802659:CurPosition,[(405,182)(314,182)])
}
Add(DoData,14122420,364,28)
{
link(onEventData,7424867:doEvent1,[(404,34)(404,44)])
link(Data,9802659:Length,[(370,14)(354,14)(354,173)(321,173)])
}
Add(ScrollBarEx,884648,513,22)
{
Left=15
Top=90
Width=655
Height=10
Color=8388736
LightColor=16777215
DarkColor=16777215
FaceColor=0
ArrowColor=16711935
Max=999999999
ScrollMode=1
Point(doMax)
link(onPosition,9802659:doPosition,[(557,28)(557,80)(296,80)(296,132)])
}
Add(PaintBox,8758719,86,448)
{
Left=20
Top=255
Width=650
Height=130
link(onBeforeDraw,12050567:doEvent,[])
}
Add(BASS_ChannelVisibleSpectrum,5631139,245,476)
{
SoundStream="MainSound"
Pen=16711680
Mode=1
DrawPeak=1
link(WindowsHandle,1470837:Var3,[(251,436)])
}
Add(Timer,5820169,37,433)
{
Interval=50
link(onTimer,8758719:doRefresh,[(77,439)(77,454)])
}
Add(BitBtn,11967952,812,14)
{
Left=625
Top=195
Width=30
Height=26
Color=16777215
Caption=""
Bitmap=[ZIP660C000078DAE556DB6F945510FFED95DDEEA52D5B5AA4080462E293414D7C52A380B42CDB764B5BEE123551FF0195282112856D69E976B7DDDE29A5C182603081F8424C78305409DA07898440504B040A4DB7F7BD76B7EB6FCEC7AE7D3126F0E8974CCE39DFCC39BF993973666643C50776A8EF15D2F3A455A415241DD6A8FFEB1FF3177FED15FF2F6ADCA0475F3970BAD68C86B23C1CD960C0608D0E5F55032D5B0CF097EBD15DE380EF0DCA5759D1F416D0B5CDAEC680DB88E05693A2639B3579E1895CC306A0C39B87FA8D94AF02CEEE35A3C32DFF0C3846BCAE5A17BAB8A7AB0C682A33A3B5D286BE4ACE297FC8ED423FF1BBB7023D1ECA70DF09AF36EFABD2E6C26FDD04F4D28653757AB49769BCC11D4684E4DC5DCBD0407E887B83E4757ACD08780CA827969C73AA86BC2A339AB7080FB81AAC4526338AF18928A2F10CE6D3194462194C4CC531175D50EBEC184F6A7CA1F0640C93D3899CFCF5EE7711AA2B44A852870EDAD35E6DC651FACA5FE9401F75161B05D34F3A421F9D3B544DDC146901E9441CF1B95935CF52321AD1E6E97F64847232A97935FE71FE001AAB8BE077EBE87F3D425E93B2B7C96D4207ED6DA30F021C4FBFE3C0C93D369CABDF8B38759E9C9E413A2336CDA3BDB30BEB5F7A193A831176673E2C793638F20BD48B7961FD8B38ECABC7D4CCAC92178AC4E2B87E6A3F0E6EB2A3B15C8736DE5790FE6EF72E410BF5E8AF633C78F5A8E77D0488DF4C3F9C39548B782AA3748E45E672768CFCF13B562C2F81C39607A7DD069BD58202A703DF5DBC9093892EF2CDCDB39FE1B0A7109DDBACE8600C041853AD9506B4D1AF215233E3B6B1C286819D169CDDA3C3F7FE3DF4610649D2F45C4A8D31DE6398F70B9861731663C5B3CF2932590AF0C3D0B092C9523491C138EFFAE6E94FF065791EEDA26D1E2DB6BBB759D0BF8D6BDADFE436C3E776A293F77C827A7DDFE0256E32774F99F9A466FBEC0C2C46035CF94E949614A3C4B51405B4FBDA8F438A97BDEF8564428D7F9EFF14BE728BB25570BA89DB26767B74E8AAD4DEB2BAEB2A4DA78BBE1DC82C889F19B773736A4CA5520887C370B95C70381C282E2EC6D2A54B515454842B57AE20128928B9743AADC6F9F9790C9D3D84AE4D7A0CF0CCA64A23DF9911DDDEFFC6CD62261209358E8F8FC36432294CC15BB56A158C46232E5DBA94C39271616141E9F9A4B872462C16CBD9313636A67057AF5E8D828202D8ED76AC5CB912C3C3C30A5364A2D1A89297F16970C5D6C9C949DCB87103BB77EF56B8F2E5E5E5A1B0B050CD878686947DC96432E767A127C59573B2D877EFDEC5AD5BB7303232823B77EEE0EAD5ABB876ED1A464747F1E0C1831C96D0F4F4B4DAF334B8D9BB1592F5EDDBB7958D56AB55D1E5CB97958D62AF8C333333399B9F1457CE92FD535353B9F9DAB56BE1743AB16EDD3A75B7F265E3291B874F1BCF8BE34A70055FBED2D2521553125B369B4DF97B315ED637FF86DBC9B72C39ACA59C6BE6CE531EAD5E9DAF7F1F997842E565C9B5C9543A97770B5D455856B25C51C9335A47B3382747B92F979F4FEFC717EE7C1CAF655D668EEC679D6F754BAE048E5518E0636EEEA9D6E1CC4EE66FE6B10BCD1FD25ECD4EC915595BE4AEEFDFBF8F356BD6C062B1A8FC216F577C21B1947DBB59F9DFCE7C84CF375BD1BA95E76ED6702547B7B00636559B50EF61EF401D82FC7790BDC5370D7BB96F02E97844D5C3F8EC1432C9586E1D990A63263CF6B856A6301F9DD5E62AB726D45C64EF9CFB98FE7522443F76D2CE9375561C63DD69A04FFD157AB4D0F7DDD506F4D0F741F604971AB723F3E80A1EFD750FE1D1878A66C31398190FE3FA2FC36A3D76EF3E229353F8F5E75F94DC9FB76E2B9A78F8080F46EEAAF1A7601DFC553615433D8CA113354B5883D89FD498709CF68A0F3AA8470F756AA4BD075E077CDE520C48EFC27AD5227D92DC3D65067799D1CB38917EE9E86B8C09F634DFBE97AFE44ED6EA542DEFAE78BC67DFB3F0714F07E3A883FC768F1E01F6636DE55ABFD4CBB18FE77CBDDD89C19D2EC6F712346D92BE0F8C09F6266FB227D857A0FC25F55BFEF9A9EBC02E1B5A88237CA9E1C293B731F876BE1A8F94E9D04CBEE829F528B84587569E2DF7DDEB35E238FB9F10B103D227B2168B7E223BB8C78100CFEF14FD456F8F366FA5ECC9ED16F8A95B1F7D36B0C3AAF8F2BFBF6E097CAF6ABD9CDC6117E3557AC03E2F31DD7A34F3BD06E96F154F6E8DFC5B6987877EF068B862F3F13A1BDFB50921C67D3375E8DB6E47803E0B6CD1FAC3C68DDA5C648427712373A156DA23355DFACCDE4AADF76D2CD3E36FAEEE8852]
link(onClick,2534829:doMessage,[])
}
Add(Message,2534829,875,14)
{
Message="1000V media player-программа для прослушивания
аудиофайлов. В программе используется кодек BASS
Программа проигрывает файлы с Вашего комьютера
и с Интернет.
Программа собрана Artem с помощью HiAsm
(http://www.hiasm.com/_index.html)"
Caption="Info"
}
Add(BitBtn,11865194,7,21)
{
Left=15
Top=15
Width=60
Color=65280
Caption="Open file"
link(onClick,15104708:doExecute,[])
}
Add(BitBtn,13458823,14,203)
{
Left=175
Top=120
Width=48
Height=28
Color=8421504
Caption=""
Bitmap=[ZIPF60F000078DA73F2FDC6CF00066640AC01C406402C03C48C0C1260F103507964D0300A4601CDC07F06065C68B0B967401C468C7BE8E93092DC430787A159A422F376605D85E91E381A1087E1710FA9AEA28AC308BA87CEC145BC7B48721B9DDD43D04923337C064FFA193CF96B90943F035544935D5F0C92FA74F0D4EFA3EDB1C1D05E1D05A3003F0000133526CA]
link(onClick,16324067:doEvent1,[])
}
Add(BitBtn,16664371,70,140)
{
Left=245
Top=120
Width=48
Height=28
Color=8421504
Caption=""
Bitmap=[ZIPF60F000078DA73F2FDC6CF00066640AC01C406402C03C48C0C1260F1035079647067148C02AA829966FA7443A3EE19750F9DDDD3C0F09F8A68D43DA3EE1975CFA87B46DD432DF78CD65FA3EE19D2EE1905A380780000F99E99D2]
link(onClick,12108558:doEvent1,[])
}
Add(Edit,5972,222,12)
{
Left=85
Top=25
Width=585
Height=22
Color=0
Font=[MS Sans Serif,9,1,16711680,1]
Text=""
link(onChange,257569:doRead,[(345,18)(345,454)])
}
Add(DropFile,14973487,7,63)
{
link(onDropFile,12669718:doEvent2,[(100,69)(100,34)])
}
Add(Hub,12669718,140,21)
{
InCount=3
OutCount=1
link(onEvent1,5972:doText,[(178,27)(178,18)])
}
Add(Label,2006297,694,406)
{
Left=385
Top=130
Width=45
Height=17
Color=-16777203
Font=[MS Sans Serif,8,1,0,1]
Caption="Volume"
}
Add(Label,5758854,609,10)
{
Left=15
Top=395
Width=35
Height=12
Color=-16777203
Caption="80Hz"
}
Add(ScrollBarEx,5404405,608,52)
{
Left=20
Top=420
Width=15
Height=100
Color=8388736
LightColor=16711935
DarkColor=16711935
FaceColor=0
ArrowColor=16711935
Max=15
Min=-15
Kind=1
link(onPosition,7027187:doEvent1,[])
}
Add(Hub,7027187,650,52)
{
OutCount=3
link(onEvent1,11230734:doSet,[(681,58)(681,30)])
link(onEvent2,13126728:doText,[])
link(onEvent3,12180348:doSet,[(681,72)(681,79)])
}
Add(BASS_ChannelFX_Eq,11230734,705,24)
{
Channel="MainSound"
Bandwidth=16
}
Add(Label,13126728,748,59)
{
Left=20
Top=530
Width=15
Height=17
Color=-16777203
Caption="0"
}
Add(Label,451566,614,250)
{
Left=110
Top=395
Width=45
Height=12
Color=-16777203
Caption="1000Hz"
}
Add(ScrollBarEx,13212864,614,292)
{
Left=120
Top=420
Width=15
Height=100
Color=8388736
LightColor=16711935
DarkColor=16711935
FaceColor=0
ArrowColor=16711935
Max=15
Min=-15
Kind=1
link(onPosition,3954111:doEvent1,[])
}
Add(Hub,3954111,670,292)
{
OutCount=3
link(onEvent1,12129067:doSet,[(693,298)(693,262)])
link(onEvent2,12597389:doText,[(737,305)(737,290)])
link(onEvent3,4872676:doSet,[(705,312)(705,325)])
}
Add(BASS_ChannelFX_Eq,12129067,702,256)
{
Channel="MainSound"
Center=1000
Bandwidth=16
}
Add(Label,12597389,781,284)
{
Left=120
Top=530
Width=15
Height=17
Color=-16777203
Caption="0"
}
Add(Label,12713548,617,336)
{
Left=150
Top=420
Width=28
Height=20
Color=-16777203
Font=[MS Sans Serif,10,1,0,1]
Caption="Min"
}
Add(Label,1730784,669,336)
{
Left=145
Top=505
Width=32
Height=20
Color=-16777203
Font=[MS Sans Serif,10,1,0,1]
Caption="Max"
}
Add(Label,5163481,617,120)
{
Left=60
Top=395
Width=40
Height=12
Color=-16777203
Caption="500Hz"
}
Add(ScrollBarEx,14691260,616,158)
{
Left=70
Top=420
Width=15
Height=100
Color=8388736
LightColor=16711935
DarkColor=16711935
FaceColor=0
ArrowColor=16711935
Max=15
Min=-15
Kind=1
link(onPosition,3147679:doEvent1,[])
}
Add(Hub,3147679,665,158)
{
OutCount=3
link(onEvent1,12574546:doSet,[(697,164)(697,140)])
link(onEvent2,320291:doText,[])
link(onEvent3,347354:doSet,[(707,178)(707,203)])
}
Add(BASS_ChannelFX_Eq,12574546,715,134)
{
Channel="MainSound"
Center=500
Bandwidth=16
}
Add(Label,320291,760,165)
{
Left=70
Top=530
Width=15
Height=17
Color=-16777203
Caption="0"
}
Add(Math,15138911,784,399)
{
OpType=3
Op2=100
link(onResult,15216955:doEvent1,[])
}
Add(Hub,15216955,826,399)
{
OutCount=3
link(onEvent1,4641453:doText,[(858,405)(858,391)])
link(onEvent2,3018529:doAttribute,[(873,412)(873,426)])
link(onEvent3,14304365:doAttribute,[(847,419)(847,440)])
}
Add(Label,4641453,875,385)
{
Left=625
Top=130
Width=20
Height=17
Color=-16777203
Caption="1"
}
Add(BASS_ChannelAttribute,3018529,917,420)
{
Channel="MainSound"
Attrib=1
}
Add(BASS_StreamCreateURL,12045247,133,238)
{
Name="InetStream"
link(onCreate,15405158:doEvent1,[])
link(URL,3072142:Var1,[(139,230)(184,230)(184,54)])
}
Add(BASS_ChannelAttribute,14304365,861,434)
{
Channel="InetStream"
Attrib=1
}
Add(Hub,16324067,63,203)
{
link(onEvent1,2073512:doCreate,[(162,209)(162,83)])
link(onEvent2,12045247:doCreate,[(118,216)(118,244)])
}
Add(BASS_ChannelPlay,3479084,224,336)
{
Channel="InetStream"
link(onPlay,1949765:doWork2,[(265,342)(265,377)(93,377)(93,405)])
}
Add(Hub,12108558,119,140)
{
link(onEvent1,2073512:doDestroy,[(193,146)(193,90)])
link(onEvent2,12045247:doDestroy,[(145,153)(145,194)(94,194)(94,251)])
}
Add(BASS_ChannelFX_Eq,12180348,698,73)
{
Channel="InetStream"
Bandwidth=16
}
Add(BASS_ChannelFX_Eq,347354,715,197)
{
Channel="InetStream"
Center=500
Bandwidth=16
}
Add(BASS_ChannelFX_Eq,4872676,725,319)
{
Channel="InetStream"
Center=1000
Bandwidth=16
}
Add(GetDataEx,3072142,222,49)
{
link(Data,5972:Text,[])
}
Add(ODialog,15104708,56,21)
{
Title="Open File"
FileName=""
link(onExecute,12669718:doEvent1,[])
}
Add(Browse,5540297,70,91)
{
BrowseObj=3
link(onBrowse,12669718:doEvent3,[(131,97)(131,41)])
}
Add(BitBtn,3196937,7,112)
{
Left=15
Top=45
Width=60
Color=65280
Caption="Browse"
link(onClick,5540297:doBrowse,[(55,118)(55,97)])
}
Add(BASS_ChannelVisibleSpectrum,11969606,217,518)
{
SoundStream="InetStream"
Pen=16711680
Mode=1
DrawPeak=1
link(WindowsHandle,1470837:Var2,[])
}
Add(BASS_ChannelEnumTags,6223963,266,294)
{
Channel="InetStream"
Type=4
link(onEnumTags,10629913:doAdd,[(314,300)(314,279)])
}
Add(ListBox,10629913,329,273)
{
Left=200
Top=410
Width=470
Height=130
Color=0
Font=[MS Sans Serif,8,0,16711680,1]
}
Add(Hub,15405158,182,238)
{
OutCount=3
link(onEvent1,10629913:doClear,[(254,244)(254,286)])
link(onEvent2,6223963:doEnumTags,[(238,251)(238,300)])
link(onEvent3,3479084:doPlay,[(217,258)(217,342)])
}
Add(FileAttributes,257569,462,448)
{
Point(FileSize)
link(onRead,3265491:doString,[(506,454)(506,559)])
link(FileName,16006709:Var2,[(468,258)(228,258)])
}
Add(FormatStr,3265491,518,553)
{
DataCount=3
Mask="
%3"
link(onFString,512619:doOperation,[(580,559)(580,475)])
link(Str3,257569:FileSize,[(538,533)(489,533)])
}
Add(Math,8983054,637,469)
{
OpType=3
Op2=1024
link(onResult,14476757:doText,[(697,475)(697,487)])
}
Add(Math,512619,588,469)
{
OpType=2
Op2=8
link(onResult,8983054:doOperation,[])
}
Add(Edit,14476757,705,481)
{
Left=120
Top=220
Width=120
Height=21
Color=0
Font=[MS Sans Serif,8,0,8388863,1]
Text=""
}
Add(Edit,5901030,530,390)
{
Left=120
Top=180
Width=120
Height=21
Color=0
Font=[MS Sans Serif,8,0,8388863,1]
Text=""
}
Add(Hub,7424867,413,38)
{
OutCount=3
link(onEvent1,884648:doMax,[(470,44)(470,35)])
link(onEvent2,5901030:doText,[(489,51)(489,396)])
link(onEvent3,1949765:doWork1,[(439,58)(439,330)(69,330)(69,398)])
}
Add(Math,15697503,672,553)
{
OpType=3
link(onResult,8317669:doText,[(719,559)(719,543)])
link(Op1,14476757:Text,[(678,528)(711,528)])
link(Op2,5901030:Text,[(685,510)(536,510)])
}
Add(Edit,8317669,740,537)
{
Left=395
Top=180
Width=110
Height=21
Color=0
Font=[MS Sans Serif,8,0,8388863,1]
Text=""
}
Add(Timer,10044967,602,553)
{
link(onTimer,15697503:doOperation,[])
}
Add(Label,10786214,526,343)
{
Left=15
Top=180
Width=87
Height=17
Color=-16777203
Font=[MS Sans Serif,9,1,0,1]
Caption="Длина,секунд"
}
Add(Label,14260004,750,483)
{
Left=15
Top=220
Width=80
Height=17
Color=-16777203
Font=[MS Sans Serif,9,1,0,1]
Caption="Размер,кбит"
}
Add(Label,12776112,786,534)
{
Left=285
Top=185
Width=99
Height=17
Color=-16777203
Font=[MS Sans Serif,9,1,0,1]
Caption="Битрейт(bitrate)"
}
Add(GetDataEx,16006709,222,59)
{
link(Data,3072142:Var2,[])
}
Add(ScrollBarEx,3282786,737,400)
{
Left=445
Top=130
Width=170
Color=8388736
LightColor=16777215
DarkColor=16777215
FaceColor=0
ArrowColor=65280
Position=100
Point(doMax)
link(onPosition,15138911:doOperation,[(777,406)(777,405)])
}
Add(ChanelToIndex,1949765,105,392)
{
link(onIndex,501698:doValue,[])
}
Add(IndexToChanel,12050567,168,448)
{
Point(Index)
link(onEvent1,5631139:doDraw,[(226,454)(226,482)])
link(onEvent2,11969606:doDraw,[(212,461)(212,524)])
link(Index,501698:Value,[])
}
Add(GetDataEx,1470837,217,431)
{
Angle=3
link(Data,8758719:Bitmap,[(151,436)(151,518)(92,518)])
}
Add(Memory,501698,168,392)
{
}
Add(Hub,3098335,231,675)
{
OutCount=5
link(onEvent1,8570657:doLoad,[(353,681)(353,651)])
link(onEvent2,10791262:doLoad,[(381,688)(381,700)])
link(onEvent3,2146342:doLoad,[(366,695)(366,749)])
link(onEvent4,8332581:doLoad,[(335,702)(335,812)])
link(onEvent5,9912701:doLoad,[(287,709)(287,861)])
}
Add(BASS_dll,8570657,462,645)
{
link(NameDll,6663329:Value,[(468,638)(500,638)])
}
Add(BASS_dll,8332581,616,806)
{
link(NameDll,5740465:Value,[(622,784)(664,784)])
}
Add(BASS_dll,2146342,567,743)
{
link(NameDll,10559211:Value,[(573,731)(588,731)])
}
Add(BASS_dll,10791262,518,694)
{
link(NameDll,13409555:Value,[(524,684)(545,684)])
}
Add(Memory,6663329,494,593)
{
Default=String(bass_aac.dll)
}
Add(Memory,13409555,539,641)
{
Default=String(bass_ac3.dll)
}
Add(Memory,5740465,658,744)
{
Default=String(basswma.dll)
}
Add(Memory,4616829,728,781)
{
Default=String(basswv.dll)
}
Add(Memory,10559211,582,687)
{
Default=String(basscd.dll)
}
Add(BASS_dll,9912701,707,855)
{
link(NameDll,4616829:Value,[(713,834)(734,834)])
}


карма: 0

0
10
Сообщение
...
Прикрепленные файлы
(файлы не залиты)