Delphi에서 .MID 파일로 음악을 재생하는 방법은 무엇입니까?

About us 박스가 나타날 때마다 .mid 파일을 자동으로 재생하고 사용자가 해당 박스를 닫을 때 중지하고 싶습니다.Delphi에서 .MID 파일로 음악을 재생하는 방법은 무엇입니까?

안녕하세요, 저는 Embarcadero Delphi 2010에서 응용 프로그램을 코딩하고 있습니다. 사용자가 나에 대해 클릭 할 때마다 내 컴퓨터에 이미있는 .MID 파일에서 음악을 재생할 수 있는지 궁금합니다. 상자를 클릭하고 중간 파일을 자동 재생합니다.

달성을 위해 about_us 유닛에서 사용하거나 다운로드하거나 코드화 할 구성 요소.

출처

2011-12-30 Rafik Bari

하지 자동 재생 음악, 비디오의 또는 소리/그 문제에 대한 비주얼 작업을 수행합니다. 상자 주위에 놓아 두지 만 듣지 않겠다고 선택하게하십시오. 작은 소리로 방에서 내 컴퓨터에서 갑자기 분출하는 소리보다 조금 더 놀라게됩니다. (이것이 제가 메인 컴퓨터에 스피커를 연결하지 않은 이유입니다.) –

다음 예 :

procedure TAboutForm.FormShow(Sender: TObject); 
begin 
    MediaPlayer1.DeviceType := dtSequencer; 
    MediaPlayer1.FileName := 'filename.mid'; 
    MediaPlayer1.Play; 
end; 

procedure TAboutForm.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    MediaPlayer1.Stop; 
end;

출처

2011-12-30 23:47:59

Windows mciSendString API 함수를 사용할 수 있습니다. mciSendString("open filename.mid type sequencer alias MidiFile");는, 당신은 그의 VCL 자신의 TMediaPlayer 구성 요소를 사용할 수 있습니다 mciSendString("play MidiFile");

출처

2011-12-30 22:10:56

그 기능은'TMediaPlayer' 구성 요소로 싸여 있습니다. –

@Remy Lebeau - Team, AFAIK, TMediaPlayer는 mciSendCommand' API intead를 기반으로합니다. – OnTheFly

예. 그러나 VCL 프레임 워크와 일치하는 객체 지향 방식으로 수행되며 모든 속성은 디자인 타임에 설정하고 적은 코드를 작성할 수 있도록 게시됩니다. –

Delphi에서 .MID 파일로 음악을 재생하는 방법은 무엇입니까?

답변

관련 문제