TFilterGraph in einer DLL

[calibra301]

Hallo,

stehe vor einer Wand...Code der in einer Form-Anwendung funktioniert will nicht
so wie er soll wenn man ihn in eine DLL packt:

Delphi-Quellcode:

function PlayVideo:Boolean; stdcall;
begin

  Videoform:=TForm.Create(nil);
  Videoform.Left:=100; //Mon.Left - Videoform.Monitor.Left;
  Videoform.Top  :=100; // Mon.Top - Videoform.Monitor.Top;
  Videoform.Width := 256;//screen.Monitors[0].Width;
  Videoform.Height:= 256;//screen.Monitors[0].height;
  Videoform.BorderStyle:=bsnone;
  Videoform.Color:=clblack;
  Videoform.Visible:=true;

  FilterGraph := TFilterGraph.Create(nil);
  FilterGraph.Mode := gmNormal;
  FilterGraph.Name := 'FilterGraph';

  VideoWindow := TVideoWindow.Create(nil);
  VideoWindow.Parent := Videoform;
  VideoWindow.Left := 10;
  VideoWindow.Top := 10;
  VideoWindow.FilterGraph := FilterGraph;
  VideoWindow.Name := 'form1';
  VideoWindow.VMROptions.Mode := vmrWindowed;
  VideoWindow.Visible := true;

  VideoWindow.FilterGraph := FilterGraph;
  VideoWindow.FilterGraph.Active := false;
  VideoWindow.FilterGraph.AutoCreate := false;
  VideoWindow.FilterGraph.GraphEdit := false;
  VideoWindow.FilterGraph.Mode := gmNormal;
  VideoWindow.FullScreen := false;
  VideoWindow.Mode := vmNormal;

  FilterGraph.stop;
  FilterGraph.Active := false;
  FilterGraph.ClearGraph;
  FilterGraph.Active := true;
  FilterGraph.RenderFile('C:\Test.avi');
  FilterGraph.Play;
end;

Beim FilterGraph.active:=true kommt eine AccessViolation...
Google fand im net nen Artikel von jemand mit dem selbem Problem, leider ohne
Lösung. System ist ein XP mit D6

Danke und Gruss
Guido

[Bernhard Geyer]

erzeugt mal dein auf dem Formular

Delphi-Quellcode:

 FilterGraph := TFilterGraph.Create(VideoForm);
 FilterGraph.parent := VideoForm;
 FilterGraph.HandleNeeded;

[calibra301]

Hallo,

FilterGraph := TFilterGraph.Create(VideoForm); <- Half nix..

Die Eigenschaften "Parent" und "HandleNeeded" kennt er nicht...



Gruss
Guido

[lbccaleb]

Du solltest mehr Code posten, zB. wie die DLL geladen wird. Wie die Function genau in der DLL deklariert ist und so weiter. Ausserdem solltest du ne genauere Fehlerbeschreibung geben. Wer kann denn schon was mit Accessviolation anfangen?

[Bernhard Geyer]

Zitat von calibra301:

Hallo,

FilterGraph := TFilterGraph.Create(VideoForm); <- Half nix..

Die Eigenschaften "Parent" und "HandleNeeded" kennt er nicht...
Gruss
Guido

Dann probier die Anpassungen für VideoWindow

[calibra301]

Leider auch ne Niete.

Hier mal alles:

Delphi-Quellcode:

library MyVideo;

uses
  ShareMem ,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,DSPack,dsutil,DirectShow9,ExtCtrls;


var
 FilterGraph : TFilterGraph;
 Videowindow : TVideowindow;
 Videoform:TForm;

function PlayVideo:Boolean; stdcall;
begin

  Videoform:=TForm.Create(nil);
  Videoform.Left:=100; //Mon.Left - Videoform.Monitor.Left;
  Videoform.Top  :=100; // Mon.Top - Videoform.Monitor.Top;
  Videoform.Width := 256;//screen.Monitors[0].Width;
  Videoform.Height:= 256;//screen.Monitors[0].height;
  Videoform.BorderStyle:=bsnone;
  Videoform.Color:=clblack;
  Videoform.Visible:=true;

  FilterGraph := TFilterGraph.Create(nil);
  FilterGraph.Mode := gmNormal;
  FilterGraph.Name := 'FilterGraph';

  VideoWindow := TVideoWindow.Create(nil);
  VideoWindow.Parent := Videoform;
  VideoWindow.Left := 10;
  VideoWindow.Top := 10;
  VideoWindow.FilterGraph := FilterGraph;
  VideoWindow.Name := 'form1';
  VideoWindow.VMROptions.Mode := vmrWindowed;
  VideoWindow.Visible := true;

  VideoWindow.FilterGraph := FilterGraph;
  VideoWindow.FilterGraph.Active := false;
  VideoWindow.FilterGraph.AutoCreate := false;
  VideoWindow.FilterGraph.GraphEdit := false;
  VideoWindow.FilterGraph.Mode := gmNormal;
  VideoWindow.FullScreen := false;
  VideoWindow.Mode := vmNormal;

  FilterGraph.ClearGraph;
  FilterGraph.Active := false;
  FilterGraph.Active := true;
  FilterGraph.RenderFile('C:\Test.avi');
  FilterGraph.Play;

  PlayVideo:=true;
end;


exports
  PlayVideo;
begin

end.

Aufruf:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

  procedure PlayVideo; external 'Project1.dll'

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 PlayVideo;
end;

Wie gesagt...als Form-Anwendung tuts der Code (mit **.create(self) );

Gruss
Guido

[lbccaleb]

Also ich hab deine Version mal nachgestellt (Ohne Freigaben und der gleichen)
Und das funktioniert bei mir. Allerdings hab ich ne Video Datei genommen, die nicht im Hauptverzeichnis C: liegt.
Vllt. also ein Rechte Problem?
im bsp keine Videodatei angegeben...