VPF::Как при открытии формы воспроизвести миди

alexamur

Дата 7.3.2009, 07:10 (ссылка)

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

Загрузка ...

Новичок

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

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

Имеется простая форма, содержащая несколько кнопок, при открытии которой нужно воспроизвести миди-файл n-ное количество раз, например 2 раза.

~FoX~

Дата 7.3.2009, 10:14 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

TMediaPlayer
Или по онШоу что нить вроде этого делать

Код


uses MMSystem;

//..............
  MCISendString(PChar('PLAY ' + 'c:\mymidi.mdi'), nil, 0, 0);  
//.............

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

…множественность никогда не следует полагать без необходимости…

alexamur

Дата 7.3.2009, 17:33 (ссылка)

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

Загрузка ...

Новичок

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

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

~FoX~ Спасибо! Здорово! Прошу не удивляться моей реакции - мой статус очевиден. Но есть маленькое но: как все это сделать, чтобы миди файл был в теле программы? Да, и "очепятка" наверное, не mymidi.mdi, а *.mid. Но это неважно, главное суть понятна. Так что большой респект!

~FoX~

Дата 8.3.2009, 11:25 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

alexamur, Засовывай в ресурсы экзешника, или просто рядом харни ресурс....
Да, очепятка....но писал в барузере, так что думаю простительно ...

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

…множественность никогда не следует полагать без необходимости…

alexamur

Дата 9.3.2009, 10:05 (ссылка)

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

Загрузка ...

Новичок

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

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

~FoX~,

Цитата(~FoX~ @ 8.3.2009, 11:25

)

alexamur, Засовывай в ресурсы экзешника, или просто рядом харни ресурс....
Да, очепятка....но писал в барузере, так что думаю простительно ...

Без вопросов про очепятку....
Более развернутый вопрос по теме направил в мыло, если не сложно - жду ответ.

MetalFan

Дата 9.3.2009, 10:28 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

Цитата(alexamur @ 9.3.2009, 10:05

)

вопрос по теме направил в мыло, если не сложно - жду ответ

обычно на форумах принято общаться либо в открытую, либо по ЛС(мылу, асе, ирке).
а запостив последнее сообщение вы поступаете очень некрасиво по отношению к другим участникам форума.

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

There are always someone smarter than you...

alexamur

Дата 9.3.2009, 11:13 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(MetalFan @ 9.3.2009, 10:28

)

Я извиняюсь, но сделал это потому, что вопрос скорее "чайниковый", именно такой уровень знаний по Делфи сейчас у меня. А ~FoX~ мне ответил, вот я ему и написал. Вот в принципе содержание:"...Ресхакером запихал в ексешник ресурс миди, но кина никакого нет: все открывается, но молчит, как рыба. Хотелось бы реальный кусочек кода, разумеется если возможно. Вообще задумка примитивно проста: на форме есть TImage, в качестве фона открытка, есть кнопка закрытия формы. При открытии .exe проигрывается что-нибудь легковесное миди. И чтобы все это в одном .ехе ..."

MetalFan

Дата 9.3.2009, 12:00 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

я не к тому, что вопрос "чайниковый" или "для профи". а к тому, что сказал на форуме А, говори и Б тоже на форуме.
по поводу ресурсов... я бы порекомендовал воспользоваться "долгим" путем с вкомпилом ресурса средствами делфи (ПОИСК), а не ресхакером.
тогда и под отладкой можно былоб посмотреть, почему не грузится.
так же, если хочешь, чтобы быстро помогли, выкладывай пример исходного кода, который не работает. а еще лучше пример проекта.

Это сообщение отредактировал(а) MetalFan - 9.3.2009, 12:02

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

There are always someone smarter than you...

~FoX~

Дата 9.3.2009, 17:24 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

alexamur, Ресхакром это конечно нашь метод решения проблемы, но я бы поступил проще )))
Создаем текстовый файл в него пишем что нить вроде такого:

Цитата

MYMID RCDATA "MYMID.MID"

Пускай лежит например в корне диска c:\
Переименовываем его во что нить вроде MyRes.rc
Туда же в корень кладем сам mymid.mid
Запускаем cmd и в нем пишем:

Цитата

brcc32 c:\MyRes.rc

Давим ентер.
Появиться файл MyRes.res его копируем в папку с проектом...
после implementation пишем

Код


{$R MyRes.res}

В коде пишем:

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  PMyMid: pointer;
  HMyMid: THandle;
  RI: boolean;
begin
  HMyMid := FindResource(hInstance, 'MYMID', rt_RCData);
  HMyMid := LoadResource(hInstance, HMyMid);
  PMyMid := LockResource(HMyMid);
  RI := sndPlaySound(PMyMid, snd_Memory or SND_ASYNC);
  UnlockResource(HMyMid);
  FreeResource(HMyMid);
end;

собственна и вся премудрость...

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

…множественность никогда не следует полагать без необходимости…

MetalFan

Дата 9.3.2009, 18:19 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

Цитата(~FoX~ @ 9.3.2009, 17:24

)

RI := sndPlaySound(PMyMid, snd_Memory or SND_ASYNC);
UnlockResource(HMyMid);
FreeResource(HMyMid);

а худо от такого не будет? играем асинхронно, и сразу убиваем ресурс....

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

There are always someone smarter than you...

~FoX~

Дата 9.3.2009, 18:36 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

MetalFan, Ндя, понедельник- вечер....Ну забыл я try...finally или if поставить smile

Это сообщение отредактировал(а) ~FoX~ - 9.3.2009, 18:39

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

…множественность никогда не следует полагать без необходимости…

MetalFan

Дата 9.3.2009, 19:42 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

~FoX~, да нет, я не про то) я не уверен на 100%, что это не правильно, но не будет ли проблемы, что звук воспроизводится АСИНХРОННО, а ресурс, из которого происходит воспроизведение убивается?

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

There are always someone smarter than you...

alexamur

Дата 11.3.2009, 08:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Выяснилось, что миди, из ресурсов sndPlaySound не воспроизводит. Формат .wav, .avi, mp3 воспроизводится нормально.

~FoX~

Дата 11.3.2009, 09:15 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

alexamur, Идея...извлекаем фало из ресурсов, сохраняем куда нить рядышком, проигрываем через MCISendString и убиваем его...Или убиваем его перед выходом...

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

…множественность никогда не следует полагать без необходимости…

alexamur

Дата 11.3.2009, 15:20 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(~FoX~ @ 11.3.2009, 09:15

)

alexamur, Идея...извлекаем фало из ресурсов, сохраняем куда нить рядышком, проигрываем через MCISendString и убиваем его...Или убиваем его перед выходом...

О-о-о...Это задачка не для первокласника(меня). На таком уровне я еще пока не умею smile

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