TMediaPlayer에서 Mpeg 파일 연속재생 방법을 알고 싶습니다.
with MediaPlayer do begin
filename := 'test.mpeg';
Open;
Play;
Notify := true;
end;
procedure MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.NotifyValue = 'nvSUccessful' then
MediaPLayer1.Play
end;
이렇게 코딩을 해도 연속재생이 안되는군요.......
고수님들의 많은 도움 부탁합니다.
If (MediaPlayer1.NotifyValue = nvSuccessful) and (MediaPlayer1.Mode = mpStopped) then
MediaPlayer1.Play;
박상길 wrote:
> TMediaPlayer에서 Mpeg 파일 연속재생 방법을 알고 싶습니다.
>
> with MediaPlayer do begin
> filename := 'test.mpeg';
> Open;
> Play;
> Notify := true;
> end;
>
> procedure MediaPlayer1Notify(Sender: TObject);
> begin
> if MediaPlayer1.NotifyValue = 'nvSUccessful' then
> MediaPLayer1.Play
> end;
>
> 이렇게 코딩을 해도 연속재생이 안되는군요.......
> 고수님들의 많은 도움 부탁합니다.