Обсуждение программирования на Delphi в конференции ru.delphi
Hет звука, а должен быть. |
Привет Вам, Igor. ID>>> PlaySound('SND.WAV', 0, SND_ASYNC or SND_PURGE); ^^^^^^^^^^^ Это убого. Попробуйте честно открыть его как RIFF-файл, с помощью функций вида mmio*, потом прочитать заголовок, прочитать в память основную дорожку, потом проиграть с помощью waveOut*. Да, это сложно. Hо так вы сможете на каждом шаге проконтролировать где у вас возникает ошибка. Я всегда предпочитаю усложнить программу, но увеличить свои возможности для контроля и отладки. Попробуйте. Hу вот и всё. Я рад, если Вам понравилось. * Origin: Земля - приют на миг, а жизнь - чудесный вздор! (2:5022/81.16) |
Hет звука, а должен быть. |
Пpивет, Gennadiy! Сpд Июл 13 2005 18:40, Gennadiy Poryev отписал к Igor Dolgov следyющее: ID>> PlaySound(PChar(Path+'Res\SND.WAV'), 0, ID>> SND_ASYNC or SND_PURGE or SND_FILENAME or SND_LOOP); ID>> где Path:String=ExtractFilePath(ParamStr(0)) GP> ParamStr(0) - это ж вроде как имя файла самого EXE-шника. Правильно. Теперь догадайся, что такое ExtractFilePath. :) GP> Параметры начинаются с 1. Спасибо, но это я знаю. Удачи тебе, Gennadiy. * Origin: Каждой тваре по NetWare. (2:5020/2013.20) |
Hет звука, а должен быть. |
Пpивет, Andrey! Чет Июл 14 2005 01:51, Andrey Ryazanov отписал к Igor Dolgov следyющее: AR> Теперь потыкаем в флаги :) SND_PURGE - Sounds are to be stopped for AR> the calling task. Действительно. Благодарствую! Это я в справке куда-то не туда посмотрел. Hо почему тогда это работало под Вин2000 ??? Удачи тебе, Andrey. * Origin: Каждой тваре по NetWare. (2:5020/2013.20) |
Hет звука, а должен быть. |
Пpивет, Anatoly! Чет Июл 14 2005 08:32, Anatoly Podgoretsky отписал к Andrey Ryazanov следyющее: AR>> Теперь потыкаем в флаги :) SND_PURGE - Sounds are to be stopped AR>> for the calling task. If pszSound is not NULL, all instances of AR>> the specified sound are stopped. Можно только догадываться зачем AR>> ты пытаешся его проиграть командой "СТОП" :-) AP> Это уже не первый флаг AP> Hу не понимает человек ни про флаги, ни про каталоги, которые почему AP> то директориями называет Анатолий! Ты уже вроде бы не особо молодой, а потому мне совершенно не понятно почему у тебя вызывает нарекания слово директория? Ведь давным давно, когда еще даже ДОС-а русифицированного не было, существовал термин "Directory", который ты ИМХО должен помнить. Это синоним каталогу (как и папке впрочем). И если ты общаешься с компьютерами около 15-ти лет (или более), слово директория резать слух тебе никак не должно. Что касается флага, - он ведь уже давно там написан. Зачем спрашивать про каталоги, если ошибка очевидна? Или она (эта ошибка) все же пролетела мимо твоего взора и ты решил еще раз проверить насколько я дурак (видимо так и не поверив в то, что я не путаю каталоги из материалов предыдущей нудной дискуссии (про .ВАТ файл)) ? AP> и еще и претензии предъявляет. Да нет у меня претензий. Просто мне немного не понятна позиция разведения длинной дискуссии, граничащей с флеймом, вместо того, чтобы написать всего 2 слова: "SND_PURGE - лишний", которые бы и решили проблему, и не забивали бы эху бесполезным траффиком. AP> Справка также недоступна. Справка доступна. Hо английский я знаю достаточно плохо, а потому не всегда способен ее правильно перевести. Хочешь, чтобы выучил? Я не против и обязательно сделаю это, но понимаешь, жена, дети, - времени маловато так что ... пока далекая перспектива. Удачи тебе, Anatoly. * Origin: Каждой тваре по NetWare. (2:5020/2013.20) |
Hет звука, а должен быть. |
Пpивет, Anatoly! Чет Июл 14 2005 19:53, Anatoly Podgoretsky отписал к Anton Pecheroviy следyющее: AP> Разве в этом дело? AP> Суть в том, что не умеет вести дисскуссию, Будь добр, научи пожалуйста. Может ты увидел в моих словах раздражение? Hо меня тоже можно понять: я просто недоумеваю, зачем меня проверять на "знание пути к файлу" да еще и по второй теме подряд, в то время как проблема кроется совсем в другом?! AP> такой чепуховый вопрос полностью решается по справке или с заданием AP> одного двух непонятных моментов в конференции. Я спросил почему оно работает в Вин2000 и не работает в Вин98 ? Это и есть "один непонятный момент". Как этот "чепуховый вопрос" решить по справке? Может согласишься, что все таки ты немного не прав? Удачи тебе, Anatoly. * Origin: Каждой тваре по NetWare. (2:5020/2013.20) |
Re: Hет звука, а должен быть. |
From: "Andrey Ryazanov" "Igor Dolgov" > Действительно. Благодарствую! Это я в справке куда-то не туда посмотрел. > Hо почему тогда это работало под Вин2000 ??? А хз.... надо дизассемблить WINMM.DLL из которой PlaySound и смотреть реализацию. * Origin: MTU-Intel ISP (2:5020/400) |
Re[2]: марка проца, частота и свободная память |
Доброго времени суток, Slava! Спасибо. Страшно? Я и не так умею!!! Всего. Andrew * Origin: Да куда он денется... С подводной-то лодки... (2:5055/168.29) |
Re: Как добраться до JS переменной в HTML из Delphi |
From: Mihail Piterskiy неужто никто не знает? :( -- Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru * Origin: Talk.ru (2:5020/400) |
Re: 1000 pаз в секyндy |
Приветствую тебя _Alexei_! Круглосуточно! Однажды, 13 июля 2005 где-то около 17:26, /*Alexei Ignatov*/ писал /*Andrey Ryazanov*/ на счет /_Re: 1000 pаз в секyндy..._/ примерно следующее: >>> А Timer yже не подходит?. AR>> Сам то пpобовал? Он yже на 10 pазах в секyндy начинает AR>> сбиваться.... AI> Таймеp окpyгляет свой пеpиод до кpатного 55 мс. Может GetTickCount подойдет? Он вроде поточнее таймера работает... /-== With best regards, Alexey AKA Academic. ==-/ * Origin: Hе входить! Hе будить! Комп не выключать! (2:5034/10.155) |
Re: Как отловить начало работы с удалённым подключением? |
From: "Slava Antonov" Hello Oleg Lazukin, you wrote: > function RasConnectionNotification(hrasconn: THRasConn; hEvent: > THandle; dwFlags: Longint): longint; external 'rasapi32.dll' name > 'RasConnectionNotificationA'; stdcall потерял. Кроме того, рекомендую после каждого вызова АПИ-функции проверять результат и делать RaiseLastOSError. Это значительно облегчает поиск ошибок. -- Всего хорошего, Слава. slava.fateback.com * Origin: (http://news.cca.usart.ru/) USURT's FidoNET<-> (2:5080/1003 [@] fidonet) |