Форум: "Начинающим";
Текущий архив: 2013.10.27;
Скачать: [xml.tar.bz2];
Вниз
Параллельные процессы? Найти похожие ветки
← →
alexdn © (2013-02-02 20:32) [0]По событию onClick проигрывается звук из ресурсов, затем идёт ещё код. Но звук вызывает задержку. Как распараллелить процессы или вообще что можно придумать?
form1.click; //процедура звука
cha:=chapot;
chb:=chbpot;
...
← →
Германн © (2013-02-02 20:44) [1]
> alexdn © (02.02.13 20:32)
>
> По событию onClick проигрывается звук из ресурсов
Как именно проигрывается?
← →
alexdn © (2013-02-02 20:53) [2]> Германн © (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 21:08) [3]SND_ASYNC
← →
имя (2013-02-02 21:22) [4]Удалено модератором
← →
alexdn © (2013-02-02 21:59) [5]> Сергей М. © (02.02.13 21:08) [3]
написал PlaySound(pData, 0, SND_ASYNC); звук вообще перестал проигрываться
← →
Германн © (2013-02-02 22:10) [6]
SND_MEMORY OR SND_ASYNC
← →
alexdn © (2013-02-02 22:16) [7]Да, спасибо всем, так гораздо лучше.
← →
Германн © (2013-02-03 01:27) [8]
> alexdn © (02.02.13 22:16) [7]
>
> Да, спасибо всем, так гораздо лучше.
>
P.S.
Надеюсь ты прочитал справку по PlaySound. Там ещё есть и другие флаги влияющие на проигрывание звуков.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.10.27;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.002 c
