saygon Новенький
Зарегистрирован: 08.11.2007 Сообщения: 2
|
Добавлено: Чт Ноя 08, 2007 6:24 pm Заголовок сообщения: Проблема с воспроизв. двух файлов в разных DSVideoWindowEX2 |
|
|
Надо одновременно воспроизвести (без всяких преобразований) два разных файла в разных DSVideoWindowEX2 (в нем нужны возможности по изменению контраста, Hue и Saturation), проблема в том что воспроизводится видео только в первом DSVideoWindowEX2, а второй остается черный, а если ставить FilterGraph1.Active:=True и FilterGraph2.Active:=True, то вообще ничего не воспроизводится и прога подвисает. Как решить вопрос?!
вот мой код:
------------------------------
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DSPack;
type
TForm2 = class(TForm)
FilterGraph1: TFilterGraph;
FilterGraph2: TFilterGraph;
DSVideoWindowEx21: TDSVideoWindowEx2;
DSVideoWindowEx22: TDSVideoWindowEx2;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
FilterGraph1.Active := False;
FilterGraph1.Active := True;
FilterGraph2.Active := False;
FilterGraph2.Active := True;
FilterGraph1.RenderFile('D:\2007-10-15_15-14_channelA-1.avi');
FilterGraph2.RenderFile('D:\2007-10-15_15-14_channelB-1.avi');
FilterGraph1.Play;
FilterGraph2.Play;
end;
end.
---------------------
Если использовать VideoWindow, то все нормально работает, но мне нужен имеено DSVideoWindowEX2, так как только в нем можно менять контраст, Hue и Saturation, как решить?
p.s. в конечном итоге мне надо воспроизводить 4 разных видеофайла без звука и 4 аудиофайла и все это одновременно, пока вот даже на 2-х не работает... |
|