Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на 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" 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

неужто никто не знает? :(
--
Отправлено через сервер Форумы [@] 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)



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты