안녕하세요..

여러 동영상을 연속으로 재생시키구 싶은데요..

음..그러니까...동영상 파일을 불러와서 리스트 박스에 차례로 담은 다음..

리스트에 있는 갯수 만큼 연속해서 재생시키구 싶습니다.

TMediaPlayer를 써서 재생시키는데...

하나의 파일을 연속으로 돌리는 방법은 알겠는데..

여러파일 돌리는건 제가 아직 초보라..문제가 좀 있네요..



님들 꼭 답변 좀 부탁드립니다..



현재 테스트 해본 소스 입니다..

크헉 소스 이상타구 모라 하지 마시구 그냥 테스트 해 본 겁니다..







procedure TAdScreen.AdStartClick(Sender: TObject);

var

GetTime : Integer;

Amount, I: Integer;

Disrect : Trect;

begin

Amount := 5000;

GetTime := GetTickCount;

I := 0;



// while (I < 10) do

// begin

MPlayer.DeviceType :=dtAutoSelect;

MPlayer.AutoEnable := true;

MPlayer.fileName := MainForm.FormsListBox.Items.Strings[0];

MPlayer.disPlay := Panel1;

mplayer.AutoOpen:= false;



MPlayer.Open;

Disrect.top:=0;

Disrect.left:=0;

Disrect.right:=Panel1.width;

Disrect.bottom:=Panel1.height;



mplayer.Displayrect := Disrect;

mplayer.Play;

// I := I + 1;

// end;

// mplayer.End

end;



procedure TAdScreen.mPlayerNotify(Sender: TObject);

var

GetTime : Integer;

Amount, I: Integer;

Disrect : Trect;

begin



if mPlayer.Mode = mpStopped then

begin

for I := 1 to MainForm.FormsListBox.Items.Count-1 do

begin



MPlayer.DeviceType :=dtAutoSelect;

MPlayer.AutoEnable := true;

MPlayer.fileName := MainForm.FormsListBox.Items.Strings[I];

MPlayer.disPlay := Panel1;

mplayer.AutoOpen:= false;



MPlayer.Open;

Disrect.top:=0;

Disrect.left:=0;

Disrect.right:=Panel1.width;

Disrect.bottom:=Panel1.height;



mplayer.Displayrect := Disrect;

mplayer.Play;



end;

end;



end;