프로그램에 차이벨기능을 넣으려 합니다..
기능이 START되면 챠임벨을 재생하고 Start를 진행하고..
STOP되면 챠임벨을 재생하고 재생이 끝나면.. Stop하는 기능을 구현했는데..
생각보다 잘 되지 않는군요.. ^^;;
1. 아래 ##소스1을 수행하고 PlayChimeBell 을 호출하고
챠임벨을 재생 한 후 ## 소스2를 수행하게 끔 하려면 어떻게 해야하는지요?
현재는 재생 하기도 전에 ##소스2를 수행해버립니다.
2. 챠임벨을 재생하는동안 다른 음악프로그램에서 음원이 재생되고 있을때
챠임벨을 재생하는 동안 그 음원은 막아놨다가.. 챠임벨 재생이 끝나면 다시
재생 할수 있는지요???
현재는 동시에 음악이 들려서 문제이군요.. ㅠㅠ
이상 델파이 초보의 허접 질문 이었습니다..
=================================================================
.... ## 소스 1
// Chime Bell
if (msg = BC_ACT_STOP) then
begin
if ( PlayChimeBell ) then
F_Debug.Display.Lines.Add('chimebell STOP Play True')
else
F_Debug.Display.Lines.Add('chimebell STOP Play False');
end;
..... ## 소스2 쭉~~
function TF_SessionManager.PlayChimeBell : Boolean;
var
re, pause : Boolean;
begin
re := false;
pause := false;
with F_Configuration, F_BroadcastingPlayer do
begin
if ( CK_ChimeBell.Checked ) then
begin
if ( IsPlaying ) then
begin
BB_Pause.Click;
pause := true;
end;
re := PlaySound(PChar(ED_ChimeBellDir.Text), hInstance, SND_SYNC);
if ( pause ) then
BB_Pause.Click;
end;
end;
result := re;
end;