Q&A

  • 이것이 틀린부분이 어디죠?
procedure TForm1.FormActivate(Sender: TObject);
begin
  try
    MediaPlayer1.DeviceType :=dtSequencar;    
    //Midi를 연주하는 미디어플레이어로 설정한다.
    MediaPlayer1.FileName :='a.mid';
    //연주할 파일명을 설정한다.(.rmi파일도 연주할 수 있다.)
    MediaPlayer1.Open;
    //파일을 열어 미디어 플레이어 버튼을 활성화 시킨다.
   except
    showmessage
end;

end.
1  COMMENTS
  • Profile
    깔쌈보이 2003.11.17 14:59
    MediaPlayer1.DeviceType :=dtSequencar; <= 이 부분에서 dtSequencar을 dtSequencer로 바꾸세요

    그리고 showmessage를 showmessage('오류'); 라고 바꾸고

       except
          showmessage('오류');
       end;
    end;

    end.

    와 같이 바꾸세요...

    -ps-
    델파이를 처음 공부하시나 보군요...
    영문으로 되어 있어서 조금은 부담스럽겠지만, 이런 경우 컴파일시에 발생한 오류를 잘 읽어보시고 도움말을 먼저 뒤져보시는게 순서일듯 합니다.