Q&A

  • 코드좀 봐주세요.. ㅠㅠ
프로그램에 차이벨기능을 넣으려 합니다..
기능이 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;
0  COMMENTS