Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Создание просто плеера


Автор: Snaiper 25.11.2007, 12:27
Здрастуйте программисты.
Вопрос такой.
У меня на форме есть элемент mediaplayer1 и panel1;

Подскажите пожалуйста как связать эти компоненты и воиспроизводить файл c:\qwerty.avi.

Заранее благодарю

Автор: WaReZMEN 25.11.2007, 13:42
Код

Вот этот код осуществляет проигрывание в Paneli 
procedure TForm1.CheckBox1Click(Sender: TObject);
var
Start_From : Longint;
begin
with MediaPlayer1 do
begin
if FileName='' then
Exit;
Start_From:=Position;
Close;
Panel1.Refresh;
if CheckBox1.Checked then
Display:=Panel1
else
Display:=NIL;
Open;
Position:=Start_From;
Play;
CheckBox1.Caption:='Играть в панели';
end;
if checkBox1.Checked then
CheckBox1.Caption:='Играть в отдельном окне';
end;

да незабуть для Events MediaPlayera Display выбери панель и все должно работать у меня работает

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)