Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[6471] [답변] EDISEY/ 미디어플레이어
ryujt [ ] 780 읽음    1999-07-28 20:33

Play가 끝난 뒤에 다시 Play 메소드를 사용하세요..
MediaPlayer의 이벤트를 보시면..
(잠시 델파이를 기동 중 .. 쫍..)
OnNotify라는 이벤트가 있어요..
Play가 되었는지..  다돌아가고 Stop (또는 인위적으로 멈춘 것 포함)
되었는 지 알려주는 곳이에요..
(잠시 예제 소스 작성 중..  쪼비)
procedure TForm1.Button1Click(Sender: TObject);
begin
  With MediaPlayer1 do
    Begin
      AutoEnable:= True;
      AutoOpen:= True;
      AutoRewind:= True;
      Visible:= False;
      // 위의 것들은 Object Inspector를 사용하시는 것이??
      FileName:='C:\rarara.wav';
      Tag:= 0;
      Play;
    End;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  With MediaPlayer1 do
    Begin
      Tag:= Tag + 1;
      If Tag < 3 then MediaPlayer1.Play;
    End;
end;



+ -

관련 글 리스트
6471 [답변] EDISEY/ 미디어플레이어 ryujt 780 1999/07/28
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.