type

TMPBtnType = (btPlay, btPause, btStop, btNext, btPrev, btStep, btBack,

btRecord, btEject);



위문장을 Unit의 Interface Uses가 끝나는 바로 밑에 삽입시키세요.

OnClick Event의 nbNext/nbPrev 로 인식되어서 다시 선언한 겁니다.

그럼 이만.



꼴통 wrote:

> * 사용환경 : 델파이5 / Windows 98

> * 에러 메시지 : Incompatible types: 'TMPBtnType' and 'TUDBtnType'

>

> 두줄이 똑같은 에러가 나네여....

> procedure TForm1.MediaPlayerClick(Sender: TObject; Button: TMPBtnType;

> var DoDefault: Boolean);

> begin

> Case Button of

> btPlay : StatusBar1.Panels[0].Text := '재생';

> btPause : StatusBar1.Panels[0].Text := '일시 정지';

> btStop : StatusBar1.Panels[0].Text := '멈춤';

> //이부분이 Error가 나는데여 왜이러져^^...

> btNext : StatusBar1.Panels[0].Text := '다음'; <--요기가 Error입니다.

> btPrev : StatusBar1.Panels[0].Text := '이전'; <--요기도여....

> //

> btStep : StatusBar1.Panels[0].Text := '앞으로';

> btBack : StatusBar1.Panels[0].Text := '뒤로';

> btRecord : StatusBar1.Panels[0].Text := '레코드';

> btEject : StatusBar1.Panels[0].Text := '꺼냄';

> end;

>

> 알켜 주시면 왕감사 드리겠습니다.

동영상재생기인데

Error 다잡아서 실행을 했습니다.

file open 할때 avi, mpg, wav, all files 등을 지원하게 했습니다.

그런데 *.avi로 하면 file이 아무것도 안나오고 꼭 *.*해야 화일이 나타나여

그래서 동영상 화일 하나를 선택을 해서 플레이를 하면 소리는 나는데

영상이 안나 오는데..........

이런 경우가 있나여....

OpenDialog와 Button을 사용하셨는지요.



procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

MediaPlayer1.FileName := OpenDialog1.FileName;

MediaPlayer1.Open;

MediaPlayer1.Play;

end;

end;



이상없이 잘 됩니다.

File이 나오고 안나오는 것은 Dialog Box의 문제이므로 Filter를 확인해보세요.

그럼, 이만.





꼴통 wrote:

> 동영상재생기인데

> Error 다잡아서 실행을 했습니다.

> file open 할때 avi, mpg, wav, all files 등을 지원하게 했습니다.

> 그런데 *.avi로 하면 file이 아무것도 안나오고 꼭 *.*해야 화일이 나타나여

> 그래서 동영상 화일 하나를 선택을 해서 플레이를 하면 소리는 나는데

> 영상이 안나 오는데..........

> 이런 경우가 있나여....