![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
воспроизведение звука [D7, WinXP]
Grief © (2005-05-29 22:24:00)Как просто быстро и нагрузно на проц средствами WinAPI воспроизвести wav файл, да так, чтоб его время воспроизведения не было паузой во время работы проги
kea (2005-06-22 09:39:00) [1]Eraser © (21.06.05 21:05) [8]
Предложил как вариант
Это просто кусок кода из прог-мы, в этом потоке я еще кучу чего делал кроме бляма, просто когда его сюда кидал не все лишнее вырезал поэтому слип(300) и остался...
Eraser (2005-06-21 21:05:00) [2]kea (21.06.05 17:36) [7]
Дык зачем отдельный поток создавать врукопашную, ф-я PlaySound с доп. флажком SND_ASYNC это прекрасно делает.
Sleep(3000);- тоже непонятно зачем.
kea (2005-06-21 17:36:00) [3]Проигрывай в отдельной нити, что-вроде того:
var idThread : HWND; //глоб. что-бы потом нитть прибить
....
....
....
function PlayWav : boolean;
var lpThreadId : cardinal;
begin
idThread:= CreateThread(nil,
0,
@blym,
nil,
0,
lpThreadId );
Result:= idThread <> 0;
end;
function blym : boolean;
begin
try
Result:= PlaySound('1.wav', 0, SND_FILENAME + SND_NOSTOP);
Sleep(3000);
end;
finally
CloseHandle(idBoomThread);
end;
end;
...
...
гденибуть в программе
PlayWav;
Grief (2005-06-04 23:52:00) [4]А черт, ненагрущно я описался. описАлся а не опИсался. Помогите-таки все-таки со звуком
MaFon (2005-05-31 00:09:00) [5]Eraser, 5 баллоф
Eraser (2005-05-30 14:46:00) [6]Grief © (30.05.05 14:14) [2]
это начинает тормозить помоему
Проц фтопку )
MaFon (2005-05-30 14:16:00) [7]Так было ж сказано
"...нагрузно на проц..." :)
Grief (2005-05-30 14:14:00) [8]это начинает тормозить помоему, особенно когда это на свойстве LButtonDown - покликаешь и начинает тормозить...
MaFon (2005-05-29 23:31:00) [9]PlaySound('1.wav', 0, SND_FILENAME or SND_ASYNC);
так вроде.