Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
3-31151
Alexei Petrakov
2003-06-18 16:58
2003.07.10
Raiserror не генерит исключение


4-31561
Forest
2003-05-10 15:26
2003.07.10
Как передать инфу в Edit внешнего приложения, зная его Name?


7-31528
Kusma
2003-04-21 16:29
2003.07.10
автотарт


1-31264
A_ndrew
2003-06-30 00:22
2003.07.10
как можно в окне (зная его название) найти компонент


14-31506
qwerty335@yandex.ru
2003-06-25 07:44
2003.07.10
Функция перехвата открывания Floppy диска