Почему видео воспроизводится ускоренно (Delphi 7)?

@Светлана Слонь · Регистрация: 21.11.2015

Author24 — интернет-сервис помощи студентам

Подскажите пожалуйста, почему видео ави делфи воспроизводит где-то в 3 раза быстрее и без звука???

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, ExtCtrls;
 
type
  TForm1 = class(TForm)
    pnl1: TPanel;
    mp1: TMediaPlayer;
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
     
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormResize(Sender: TObject);
begin
mp1.DisplayRect:=pnl1.ClientRect;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  mp1.Open;
 
mp1.Play;
end;
 
 
 
end.

@root3232 · 12.10.2016, 20:28

используй TMediaPlayer

@droider · 12.10.2016, 20:52

root3232, она его и использует.

@BOGG ART · 12.10.2016, 21:04

Наоборот - ни в коем случае. Вам надо почитать про DirectShow.

@Светлана Слонь · 12.10.2016, 21:19 **[ТС]**

так я его и использую
mp1=mediaplayer1

Добавлено через 1 минуту
хорошо
спасибо

@root3232 0 / 0 / 0 Регистрация: 25.06.2014 Сообщений: 15
	12.10.2016, 20:28	2
	используй TMediaPlayer 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	12.10.2016, 20:52	3
	root3232, она его и использует. 0

@BOGG ART 592 / 459 / 147 Регистрация: 09.12.2013 Сообщений: 2,385 Записей в блоге: 2
	12.10.2016, 21:04	4
	Наоборот - ни в коем случае. Вам надо почитать про DirectShow. 0

@Светлана Слонь 0 / 0 / 1 Регистрация: 21.11.2015 Сообщений: 217
	12.10.2016, 21:19 [ТС]	5
	так я его и использую mp1=mediaplayer1 Добавлено через 1 минуту хорошо спасибо 0

Опции темы