Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 4 855

Раздел: Delphi » Мультимедийные приложения
/ вопрос закрыт /

Приветствую, уважаемые эксперты!
Имеется две кнопки, по нажатию одной файл воспроизводится,
по нажатию другой - останавливается.
Однако при повторном нажатии первой кнопки файл не воспроизводится!
Почему? Может я ресурс какой не освободил?

Приложение:
  1. var
  2. Form1: TForm1;
  3. format:TWaveFormatEx;
  4.  
  5. hider:WaveHdr;
  6. buf:PChar;
  7. fl:TMemoryStream;
  8.  
  9. implementation
  10.  
  11.  
  12.  
  13. begin
  14. //If opendialog1.Execute then
  15. //begin
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29. WAVE_MAPPER,// -1
  30.  
  31. 0, 0, CALLBACK_NULL);
  32.  
  33.  
  34. fl.Free;
  35.  
  36.  
  37. SizeOf(hider));
  38. waveOutWrite(hzv, @hider, SizeOf(hider));
  39. //end;
  40. end;
  41.  
  42.  
  43. begin
  44. waveOutPause(hzv);
  45. waveOutUnPrepareHeader(hzv, @hider, SizeOf(hider));
  46. waveOutClose(hzv);
  47. StrDispose(buf);
  48. end;


Учусь Вопрос закрыт (ответы не принимаются, мини-форум закрыт)

Вопрос задал: Учусь (статус: Посетитель)
Вопрос отправлен: 23 декабря 2010, 23:22
Состояние вопроса: закрыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 24 декабря 2010, 22:27; участников в обсуждении: 1.
Учусь

Учусь (статус: Посетитель), 24 декабря 2010, 22:27 [#1]:

Эх, ну хоть кто-нибудь...

30 января 2011, 20:56: Вопрос закрыт (решение принял автор вопроса — Учусь): Видать, не знает никто ответа.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 16:42
Выполнено за 0.02 сек.