Вопрос № 32729: Здравствуйте.У меня возник такой вопрос.Программа в процессе работы воспроизводит аудио файлы.Как их правильно прикомпилировать к ехе ?Если можно поподробней.Заранее спасибо....Вопрос № 32735: Как работать с отчётами Rave Report???...Вопрос № 32737: Уважаемые эксперты,помогите пожалуйста со спрайтами.Как их вообще использовать.Я знаю какие компоненты что делают,мне главное нужно
понять что писать в коде.Разбирал некоторые коды на DelphiX-хрен поймешь :)
Может вы поможете?...
Вопрос № 32.729
Здравствуйте.У меня возник такой вопрос.Программа в процессе работы воспроизводит аудио файлы.Как их правильно прикомпилировать к ехе ?Если можно поподробней.Заранее спасибо.
Отправлен: 05.01.2006, 19:32
Вопрос задал: Vadym (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Slava
Здравствуйте, Vadym!
Для этого надо файлы засунуть в ресурсы. Создаешь текстовый файл с расширением .RC. Пишешь в нем: "имя ресурса" "тип хранимого ресурса" "имя файла". К примеру
Sound1 WAVE "Sound1.wav"
Sound2 WAVE "Sound2.wav"
Потом файл сохраняешь под именем к примеру myres.rc. Только надо чтобы все перечисленные в нем файлы и сам файл RC лежали в одной папке. Далее, компилируешь его с помощью утилиты brcc32 в файл .RES -> " brcc32 myres.rc ". Получаешь myres.res. Потом присоединяешь в свой проект -> {$R myres.res}. После подключения ресурса проект надо "перебилдить" (Build).
Ответ отправил: Slava (статус: 5-ый класс)
Отправлен: 05.01.2006, 23:30 Оценка за ответ: 4 Комментарий оценки: Большое спасибо за ответ.В текстовом файле всё прописал и переименовал расширение,только не пойму как правильно работать с утилитой brcc32.В папке C:...delphi7in её нашёл,но оттуда она не запускается.Помогите ещё раз пожалуста.
Отвечает: Diman_A
Здравствуйте, Vadym!
//создаешь файл mywave.rc, и в нем пишешь:
name sound "sound.WAV"
//name - название файла в ресурсе;
//sound - название типа;
//sound.wav - путь к файлу на диске.
//затем компилируешь его с помощью brcc32.exe (входит в комплект delphi):
в командной строке пишешь (напр. в total commander или эмуляторе dos)
brcc32.exe MyWave.rc (предварительно перейдя в папку bin)
//и получаешь файл MyWave.res.
// В своей программе пишешь:
{$R MyWave.res}
(рядом с {$R *.dfm})
чтобы проиграть этот звук, воспользуйся процедурой
procedure res_sound (sound:pchar);
var
FindHandle, ResHandle: THandle;
ResPtr: Pointer;
begin
FindHandle := FindResource(HInstance, sound, 'sound');
if FindHandle <> 0 then
begin
ResHandle := LoadResource(HInstance, FindHandle);
if ResHandle <> 0 then
begin
ResPtr := LockResource(ResHandle);
if ResPtr <> nil then
SndPlaySound(PChar(ResPtr),snd_Memory+snd_nostop+snd_async);
UnlockResource(ResHandle);
end;
FreeResource(FindHandle);
end;
end;
Примерно так:
res_sound ('sound.wav');
Для процедуры sndplaysound потребуется модуль mmsystem, напиши его в uses.
//SND_ASYNC - при проигрывании не останавливать работу программы
//SND_NOSTOP - проиграть звук до конца
//SND_STOP - прекратить играть прежний звук и начать новый
Ответ отправил: Diman_A (статус: 2-ой класс)
Отправлен: 06.01.2006, 07:14
Отвечает: Ерёмин Андрей
Здравствуйте, Vadym!
Вот здесь обсуждалась данная проблема.
--------- Работа - не волк, а произведение силы на расстояние!
Ответ отправил: Ерёмин Андрей (статус: Профессионал)
Отправлен: 06.01.2006, 08:45
Отвечает: Dushin Igor
Здравствуйте, Клёмин Сергей!
http://www.delphimaster.ru/articles/raverpt/index.html
--------- Храни меня Господь, в сухом прохладном месте! =)
Ответ отправил: Dushin Igor (статус: 2-ой класс)
Отправлен: 05.01.2006, 21:41 Оценка за ответ: 5
Вопрос № 32.737
Уважаемые эксперты,помогите пожалуйста со спрайтами.Как их вообще использовать.Я знаю какие компоненты что делают,мне главное нужно понять что писать в коде.Разбирал некоторые коды на DelphiX-хрен поймешь :)
Может вы поможете?
Отправлен: 05.01.2006, 22:42
Вопрос задал: Sassoft (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Dushin Igor
Здравствуйте, Sassoft!
Посмотрите здесь:
http://rtfm.4hack.com/articles.php?id1=2&id2=85&PHPSESSID=fa61a8e076a1819e7e891699ea83aacc
--------- Храни меня Господь, в сухом прохладном месте! =)
Ответ отправил: Dushin Igor (статус: 2-ой класс)
Отправлен: 06.01.2006, 11:00
Отвечает: Lexus
Здравствуйте, Sassoft!
Сам я врятли объясню, но могу посоветовать, где найти. Могу выслать по e-mail статью интересную (точнее главу из книги М.Краснова - DirectX в Delphi) с примерами про спрайты. Только там не про DelphiX а через API (т.е. вручную). Там неплохо все расписано. Адресок свой напиши в личную.
Ответ отправил: Lexus (статус: 1-ый класс)
Отправлен: 06.01.2006, 20:17