![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TMediaPlayer AV при повторном открытии файла
@!!ex © (2010-02-17 09:54:00)
Procedure StartView(const FileName:string; Form:TForm);
begin
if not Assigned(Player) then begin
Player:=TMediaPlayer.Create(Form);
Player.ParentWindow:=Form.Handle;
Player.Visible:=false;
Player.Display:=Form;
end;
Player.Close();
Player.FileName:=FileName;
Player.Open();
Player.Play();
end;
Первый раз вызываю StartView - нормально запускается проигрывание видео.
Вызываю второй раз - падает на Player.Close();
Если Player.Close() не вызываеть падает на Open();
@!!ex (2010-02-17 10:05:00) [1]Стоп. Я идиот. Мой косяк. Копипаст - зло
Сергей М. (2010-02-17 10:02:00) [2]И форма, передаваемая 2-м параметром, при этом одна и та же ?
И Handle у нее один и тот же ?