멀티미디어관련된 작업을 하던중 안풀리는 부분이 있어서 글을 올립니다.
내용은 다음과 같습니다.
특정상황이 되면 TMediaPlayer 를 이용하여 wav파일을 실행시켜
소리를 내게하고 실행이 끝나면 다시 wav파일을 실행시킵니다.
다시말해서 소리종료 버튼 또는 프로그램 종료 버튼을 클릭하기 전까지는
계속 지정된 wav파일을 실행시켜야합니다.
그래서 이전에 등록된 멀티미디어 관련 내용을 살펴봐서 연속실행은 성공했는데 문제는 소리종료 버튼을 클릭했을 때 중지가 되지 않습니다.
MediaPlayer1Notify 이벤트에 다음과 코드를 작성했습니다.
==========================================
with MediaPlayer1 do
begin
if (Mode <> mpNotReady) then
begin
if Length = Position then
Position := 0;
Notify := TRUE;
Play;
end;
end;
---------------------------------------------------------------------
소리종료 버튼을 클릭했을때 위 코드 중간에 다음과 같은 코드를 추가하여
소리를 중지 시키려고 했으나 안되는군여...
if MediaPlayer1.Mode = mpStopped then
MediaPlayer1.Close
----------------------------------------------------------------------
==========================================
위 코드는 wav파일의 실행이 끝나면 position을 0으로하여 다시 실행하게 하는데...
wav파일이 실행되는 중간에 소리종료버튼을 클릭하여 소리를 중지시키려면 어떻게 해야하나여?
(Position을 최대로 하면 될라나? 그럼 최대값은 어찌알수있을가?...)
경험하신 분들의 처리했던 방법을 알려주시면 고맙겠습니다...
하나더....
TMediaPlayer를 사용하여 wav를 실행하는거와 winamp와 관계가 있나여?
TMediaPlayer를 실행하는중에 winamp를 실행했다가 중지하면 TMediaPlayer가 중지되는거 같은데...
둘이 서로 관계가 있는지 알려주세요...
그럼 오늘도 즐건 하루가 되시길...
종료버튼 클릭하면
flag := true 를 추가하고
아래의 if flag then 부분을 추가하면 되네여...^^;
if flag then
begin
flag := false;
close;
exit;
end;