Текущий архив: 2003.07.10;
Скачать: CL | DM;

Вниз

Помогите пожалуйста разобраться с медиаплеером   Найти похожие ветки 

← →
reticon ©   (2003-03-23 18:26) [0]

Уважаемые мастера! Помогите разобраться с медиаплеером. Имеется 5 файлов AVI, которые необходимо проигрываит поочереди после нажатия определенной клавиши. С первым файлом прогблем нет - он начинает играть, но когда приходит очередь длугих то продолжает играть первый и все.
Процедура такая:

procedure PlayFile(Name:string);
begin
with Form2 do
begin
MP.Close;
MP.Stop;
MP.FileName:=Name;
MP.Open;
MP.DisplayRect:=Rect(0, 0, Form2.Panel1.Width, Form2.Panel1.Height);
MP.Play;
end;
end;

//нажатие клавиш
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#49: PlayFile(Label1.Caption);
#50: PlayFile(Label2.Caption);
#51: PlayFile(Label3.Caption);
#52: PlayFile(Label4.Caption);
#53: PlayFile(Label5.Caption);
end;
end;

Помогите пожалуйста разобраться!!!

---

← →
Song ©   (2003-03-23 20:36) [1]

TMediaPlayer.Wait

---

Страницы: 1 вся ветка

Текущий архив: 2003.07.10;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c