Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как проиграть midi, хорошо бы из ресурса 
:(
    Опции темы
BLACK_KOT
Дата 17.5.2009, 08:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
в Delphi Russian Knowledge Base
нашёл:

Код

uses 

MMSystem; 

 

// Play Midi 

procedure TForm1.Button1Click; 

const 

FileName = 'C:\YourFile.mid'; 

begin 

MCISendString(PChar('play ' + FileName), nil, 0, 0); 

end; 

 
[quote]

[/quote]
// Stop Midi 

procedure TForm1.Button1Click; 

const 

FileName = 'C:\YourFile.mid'; 

begin 

MCISendString(PChar('stop ' + FileName), nil, 0, 0); 

end; 



не рабэ у меня.мож дело в кодеке? хотя миди проигрываются винампом. 

это первая часть вопроса.

а вторая - как проиграть миди из ресурса? сколя раз видел - какой нить кейген запускаеш - играет миди. что ж они все сначала извлекают на жёсткий, а потом проигрывают? неужто никак нельзя из ресурса его проиграть?




--------------------
                       .. я - демо версия Бога от Microsoft..
PM MAIL   Вверх
Данкинг
Дата 17.5.2009, 10:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Медиаплеером лучше midi проигрывать. 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
AntonN
Дата 17.5.2009, 12:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 7
Всего: 18
BLACK_KOT, можно проиграть и из ресурса:
http://forum.vingrad.ru/index.php?showtopi...t&p=1822822

Данкинг, незачет.


--------------------
user posted image
PM MAIL WWW   Вверх
Данкинг
Дата 17.5.2009, 12:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(AntonN @  17.5.2009,  13:30 Найти цитируемый пост)
Данкинг, незачет. 

Почему незачёт: я не прав? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
BLACK_KOT
Дата 17.5.2009, 14:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
Код

var
  PMyMid: pointer;
  HMyMid: THandle;
begin
  HMyMid := FindResource(hInstance, 'rcdata_0',RT_RCDATA);
  HMyMid := LoadResource(hInstance, HMyMid);
  PMyMid := LockResource(HMyMid);
  sndPlaySound(PMyMid, snd_Memory or SND_ASYNC);
  UnlockResource(HMyMid);
  FreeResource(HMyMid);
end;


wav ресурсы играются, а  mp3  и mid - молчат. мож кодеков не хватат?


--------------------
                       .. я - демо версия Бога от Microsoft..
PM MAIL   Вверх
AntonN
Дата 17.5.2009, 14:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 7
Всего: 18
Данкинг, разумеется нет. Медиаплеер - это внешнее приложение, в зависимости от него будет разный API. Приложение может отсутствовать на клиенте вообще. К тому же я не знаю ни одного распространенного плеера, который сможет проиграть контент из памяти, не сохраняя файл на диск (реализацию свого шоткаста не затрагиваю, там гемора еще больше, к тому же файервол может возмутиться и не дать забиндить порт). Побуквоедствуем дальше? smile


BLACK_KOT, sndPlaySound() вроде бы воспроизводят только wav и mp3 в riff (а таких мало smile ).


--------------------
user posted image
PM MAIL WWW   Вверх
Данкинг
Дата 17.5.2009, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(AntonN @  17.5.2009,  15:46 Найти цитируемый пост)
Приложение может отсутствовать на клиенте вообще. 

Я имею в виду компонент дельфийский. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
BLACK_KOT
Дата 17.5.2009, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
делфийский медиаплеер у меня тоже миди не воспроизводит. эт чё значит? wav без проблем.


--------------------
                       .. я - демо версия Бога от Microsoft..
PM MAIL   Вверх
AntonN
Дата 17.5.2009, 20:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 7
Всего: 18
Данкинг, он без распаковки проиграет midi? smile
к тому же, это самый дурной способ воспроизведения в дельфи, даром что "почти бесплатный" в плане сложности кодинга. Он файл грузит в память (отсюда подзатуп при начале вопросизведения), банального регулятора громкости нет, зависимость от системных кодеков. Bass.dll в этом плане конечно лучший, к тому же с эффектами и графическим эквалайзером smile


--------------------
user posted image
PM MAIL WWW   Вверх
Данкинг
Дата 17.5.2009, 21:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(AntonN @  17.5.2009,  21:58 Найти цитируемый пост)
Данкинг, он без распаковки проиграет midi?

Честно говоря, не помню, но вроде должен, хотя точно не уверен. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0492 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.