Обсуждение программирования на 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" <rash [@] northnet.ru>
"Igor Dolgov" <Igor.Dolgov [@] p20.f2013.n5020.z2.fidonet.org> wrote in message news:1121390454 [@] p20.f2013.n5020.z2.ftn...
> Действительно. Благодарствую! Это я в справке куда-то не туда посмотрел.
> 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 <piter [@] pechora.org>
неужто никто не знает? :(
--
Отправлено через сервер Форумы [@] 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" <deadbeef [@] so.yandex.ru>
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)