Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > TMediaPLayer

Автор: GuManOiD 9.6.2006, 22:34

Код


var
  mp : TMediaPlayer;
  pnl : TPanel;
begin
  pnl := TPanel.Create(Application);
  pnl.Parent := PN;
  pnl.Color := clBlack;
  pnl.Align := alClient;
  pnl.Caption := '';
  pnl.Show;

  mp := TMediaPlayer.Create(Application);
  mp.AutoOpen := true;
  mp.Parent := PN;
  mp.Display := pnl;
  mp.Align := alBottom;
  mp.DeviceType := DT;
  mp.FileName := FN;
  mp.Open;
  mp.Play;
end;

Вот код создания медиплеера..., Fn - имя файла, Pn-панель посторонняя, вообще нет ни звука ни видео... просто тыкаешь на нем на кнопки - никакой реакции... может кто подскажет в чем проблемма?

Автор: Yanis 12.6.2006, 10:23

Скорее всего это из-за того, что видео пожато каким-нибудь кодеком. Попробуй на своём коде проиграть файл C:\WINDOWS\clock.avi

Автор: Alexeis 12.6.2006, 11:08

Вот так точно работает

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  mp : TMediaPlayer;
  pnl : TPanel;
begin
  pnl := TPanel.Create(Form1);
  pnl.Parent := Form1;
  pnl.Color := clBlack;
  pnl.Align := alClient;
  pnl.Caption := '';
  mp := TMediaPlayer.Create(Form1);
  mp.Parent := Form1;
  mp.AutoOpen := true;
  mp.Parent := PNl;
  mp.Display := pnl;
  mp.Align := alBottom;
  mp.DeviceType := dtAutoSelect;
  mp.FileName := 'C:\abiscan05.avi';
  mp.Open;
  mp.Play;
end;