| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Параллельные процессы?

alexdn ©   (2013-02-02 20:32:00) 

По событию onClick проигрывается звук из ресурсов, затем идёт ещё код. Но звук вызывает задержку. Как распараллелить процессы или вообще что можно придумать?
form1.click; //процедура звука
cha:=chapot;
chb:=chbpot;
...

---

Германн   (2013-02-03 01:27:00) [1]

> alexdn ©   (02.02.13 22:16) [7]
>
> Да, спасибо всем, так гораздо лучше.
>

P.S.
Надеюсь ты прочитал справку по PlaySound. Там ещё есть и другие флаги влияющие на проигрывание звуков.

---

alexdn   (2013-02-02 22:16:00) [2]

Да, спасибо всем, так гораздо лучше.

---

Германн   (2013-02-02 22:10:00) [3]

SND_MEMORY OR SND_ASYNC

---

alexdn   (2013-02-02 21:59:00) [4]

> Сергей М. ©   (02.02.13 21:08) [3]
написал PlaySound(pData, 0, SND_ASYNC); звук вообще перестал проигрываться

---

  (2013-02-02 21:22:00) [5]

Удалено модератором

---

Сергей М.   (2013-02-02 21:08:00) [6]

SND_ASYNC

---

alexdn   (2013-02-02 20:53:00) [7]

> Германн ©   (02.02.13 20:44) [1]
Это просто процедура, но дело не в ней, дело в том, как всё это распараллелить -
procedure TForm1.click;
var
   hResource: THandle;
   pData: Pointer;
begin
   hResource:=LoadResource( hInstance, FindResource(hInstance, 'XPMC',RT_RCDATA));
   try
       pData := LockResource(hResource);
       if pData = nil then
           raise Exception.Create('Cannot read MyWave');
       PlaySound(pData, 0, SND_MEMORY);
   finally
       FreeResource(hResource);
   end;
end;

---

Германн   (2013-02-02 20:44:00) [8]

> alexdn ©   (02.02.13 20:32)
>
> По событию onClick проигрывается звук из ресурсов

Как именно проигрывается?

---

Наверх