VPF::Как wav файл вставить в ресурс - Форум программистов

Serhik_z

Дата 11.5.2005, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Как wav файл вставить в ресурс и чем его откомпилировать,
чтоб музыка и программа были в одном ехе файле.
smile

_hunter

Дата 11.5.2005, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

точно так же как любой другой бинарный ресурс. вот только проиграть его сложновато будет: стандартный TMediaPlayer ресурсы не играет

--------------------

Tempora mutantur, et nos mutamur in illis...

Serhik_z

Дата 11.5.2005, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Делал с курсором. Рисовал в Image Tditor -> New -> Cursor File Сохранял и прикреплял файл ресурса.
С Wav файлами не разу не пробовал.
Подскажите кто знает, по подробней.
smile

Rouse_

Дата 11.5.2005, 15:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 469
Регистрация: 23.4.2005

Репутация: 5
Всего: 29

Цитата(_hunter @ 11.5.2005, 14:06)

вот только проиграть его сложновато будет

Дак а чтож сложновато то?

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  hRes: THandle;
  pData: Pointer;
begin
  hRes := LoadResource(hInstance, FindResource(hInstance, 'HARPUP', 'WAVE'));
  try
    pData := LockResource(hRes);
    try
      sndPlaySound(pData, SND_MEMORY or SND_SYNC);
    finally
      UnLockResource(hRes);
    end;
  finally
    FreeResource(hRes);
  end;
end;

Добавлено @ 15:59

Цитата(Serhik_z @ 11.5.2005, 14:46)

Подскажите кто знает, по подробней.

ложишь в папку с программой WAV файл, к примеру он называется HARPUP.WAV
создаешь там же пустой файл resource.rc
в нем пишешь такую строку: HARPUP WAVE "HARPUP.WAV"
Сохраняешь.
Потом в Delphi IDE нажимаешь Shift+F11 выбираешь этот resource.rc
Компилируешь проект, кидаешь на форму кнопку, в нее пишешь тот код который я показал выше и все.

--------------------

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

Alex

Дата 11.5.2005, 17:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

http://vingrad.ru/DELPHI-DLP-001512

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Serhik_z

Дата 11.5.2005, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Alex Спасибо посмотрел - Получилось.
Даже с окном формы работает procedure TForm1.FormCreate(Sender: TObject);
smile

Rouse Спасибо все получилось.
smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »