DSVideoWindowEx2 zeigt nur manchmal AVIs

[e-gon]

Hallo lbccaleb,

danke für die schnelle Antwort!

1. Ich habe eine Sammlung sehr unterschiedlicher Videodateien. Zumeist AVIs und MPEGs. Da sich mit VideoWindow nicht alle MPEGs abspielen ließen stieg ich auf DSVideoWindowEx2 um. Dort laufen alle mein MPEGs.

2. Hier der gesamte Code:

Delphi-Quellcode:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DSPack;

type
  TForm1 = class(TForm)
    VW: TDSVideoWindowEx2;
    FilterGraph1: TFilterGraph;
    SampleGrabber1: TSampleGrabber;
    Filter1: TFilter;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var  FileName: string;
begin
  FileName:= Edit1.Text;
  FilterGraph1.Active:= True;
  if FilterGraph1.RenderFile(FileName)<>S_OK then begin  //  <- Hier tritt das Problem im "Release-Modus" auf!
    MessageDLG('Fehler beim Öffnen der Datei '''+FileName+'''!',mtError,[mbOk],0);
    FilterGraph1.Active:= False;
  end
  else  FilterGraph1.Pause;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FilterGraph1.Stop;
  FilterGraph1.Active:= False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:= 'D:\test.avi';
end;

end.

Gruß
e-gon

[lbccaleb]

Resetest du den Filtergraph nicht, wenn du eine neue Datei lädst?

[e-gon]

Das ist nur ein Testprogramm.

Die Datei "D:\test.avi" wird im Debug-Modus problemlos geöffnet, beim Start der EXE-Datei tritt jedoch beim Button-Click der Fehler auf.

Gruß
e-gon

[lbccaleb]

Ausm blauen Dunst herraus:

Delphi-Quellcode:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DSPack;

type
  TForm1 = class(TForm)
    VW: TDSVideoWindowEx2;
    FilterGraph1: TFilterGraph;
    SampleGrabber1: TSampleGrabber;
    Filter1: TFilter;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var FileName: string;
begin
  FileName:= Edit1.Text;       //überprüfung sollte hier eingefügt werden
  FilterGraph1.ClearGraph;     //komplett vergessen

//////////////////////////////////////////////
  FilterGraph1.Active:= False;   //sonnst gibts fehler mit EC_CLOCK_CHANGED
  FilterGraph1.Active:= True;
////////////////////////////////////////

  if FilterGraph1.RenderFile(FileName)<>S_OK then begin // <- Hier tritt das Problem im "Release-Modus" auf!
    MessageDLG('Fehler beim Öffnen der Datei '''+FileName+'''!',mtError,[mbOk],0);
    FilterGraph1.Active:= False;
  end
  else FilterGraph1.Pause;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FilterGraph1.Stop;
  FilterGraph1.Active:= False;
  FilterGraph1.ClearGraph;     //komplett vergessen
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:= 'D:\test.avi';
end;

end.

Ich vermisse da aber auch noch den Button zum Abspielen und so