바람따라 님이 쓰신 글 :
: 덤프 님이 쓰신 글 :
: : 질문 1
: :
: : mp3재생이 끝나면 Progress  함수를 실행 시키려고 하는데요...
: :
: : 소스는
: :
: : procedure Tpart1.AAA
: : begin
: :   MediaPlayer1.FileName := Table1.Fields.Fields[1].Text;
: :   MediaPlayer1.Open;
: :   MediaPlayer1.Play;
: :   IF  MediaPlayer1.Stop = true then   Progress;
: : end;
: :
: : 이렇게 해봤는데 안돼서요 다른 방법이 머가 있을까요?
:
:
: procedure TForm1.MediaPlayer1Notify(Sender: TObject);
: begin
:   if MediaPlayer1.NotifyValue = nvSuccessful then ShowMessage('정상적인 음악 종료!!!');
: end;
:
: 위 처럼 OnNotify 이벤트에서 처리 하시면 됩니다.
: 하지만 웬만하면 ActiveX import 하셔서 사용하시던지 DirectX 직접 사용하시는게 좋습니다.

답변 감사합니다. 하지만 제가 원하는바와 같이 mp3재생이 실행되면 progress 함수가 실행되는게 아니라

mp3재생이 실행되고 재생이 끝나면 progress함수가 실행되야 합니다.

아래 소스는 제가 적용시킨 소슨데 잘못된곳 있으면 지적 바랍니다.

procedure Tpart1.Part1Quiz;
begin
  MediaPlayer1.FileName := Table1.Fields.Fields[1].Text;
  MediaPlayer1.Open;
  MediaPlayer1.Play;

  Image2.Picture.LoadFromFile(Table1.Fields.Fields[3].Text);
  If MediaPlayer1.NotifyValue = nvSuccessful then Progress;
end;