Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  20:59[Войти] | [Зарегистрироваться]
Ответ на вопрос № 59138

04-02-2008 14:19
Доброго времени суток!

Только что прочел вопросы по загрузке ресурсов, но не нашел там ответа...
1) При загруске wav - файла таким образом

var
  hResource: THandle;
  pData: Pointer;
begin
  hResource:=LoadResource( hInstance, FindResource(hInstance, 'MyWave', RT_RCDATA));
  try
    pData := LockResource(hResource);
    if pData = nil then
      raise Exception.Create('Cannot read MyWave');
        PlaySound('MyWave', 0, SND_MEMORY);
  finally
  FreeResource(hResource);
end;

(файл прикомпилирован, и уже включен директивой $R )

моя Делфи 7 Enterprise ругается, что ей незвестна процедура PlaySound и константа SND_MEMORY. Подскажите, какой модуль нужно подключить?

2) Вообще о ресурсах... Что можно включать в них вообще?
С поиощью ImageEditor можно битмапы, курсоры, иконки. Еще я слышал, что можно
шрифты, звуки, ави-видео... Есть ли какой - нибудь универсальный способ
реализации таких вот ресурсов?

Очень надеюсь на вашу помощь.

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

10-03-2008 13:52
а как бы передать его на MediaPlayer? У последнего нет процедуры LoadFrom Stream...
Вот тут был пример по теме:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=47880

09-03-2008 13:46 | Сообщение от автора вопроса
To Python:

Спасибо за совет! Действительно очень легко и удобно можно загрузить ресурс, но... если этот ресурс - звуковой, то встает вопрос - а как бы передать его на MediaPlayer? У последнего нет процедуры LoadFrom Stream...
Выход из этой ситуации я нашел такой(неправильный и громоздкий, но пока лучше ничего не придумал...):

procedure TForm1.PlayRes(ResName : String);
var
  F : TResourceStream;
  s : string;
  MFile : File;
begin
  F := TResourceStream.Create(hInstance, ResName, RT_RCDATA);
  s := ExtractFilePath(Application.ExeName)+'ResName.wav';
  F.SaveToFile(s); // загрузил ресурс и сохранил его
  Note.FileName := s; // Note - это MediaPlayer
  Note.Open;
  Note.Play;
  While true do // пока не кончится трек
  begin
      if Note.Position = Note.Length then
        Break;
  end;
  Note.Close;
  AssignFile(MFile, s); // удалил временный wav-файл
  Erase(MFile);
end;

Глупость, конечно, "достал - закопал - снова достал". Жаль в Делфи нет специального типа, описывающего звуковой формат(TBitmap же есть).

Собственно вопрос: как можно улучшить воспроизведение звука из ресурсов, не прибегая при этом к таким вот ухищрениям?


08-03-2008 15:35
>>> И как к ним потом обращаться?
Посмотри мою статью, она сейчас первая на главной странице, там используется ResourceStream, но я думаю, тебе подойдет.

04-02-2008 21:16
У PLaySound есть и флаг SND_RESOURCE
 NS

04-02-2008 15:04 | Сообщение от автора вопроса
1)Все нормально
2)А как с этими потоками поступать? Также прикомпилировать? И как к ним потом обращаться?

04-02-2008 14:34
1) uses .., mmsystem;
2) Окромя стандартных типов ресурсов битмапы, курсоры, иконки, шрифты и т.д можно использовать любые бинарные потоки и их можно записывать с типом ресурса RT_RCDATA

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Кто съел Красную шапочку?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования