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...

[calibra301]

Dann wirds wohl ein lokales Problem sein.
Nach Neukompilierung knallte es an der selben Stelle. Filtergraph.aktive:=true;

Anderes Problem: FProt hat die Projekt1.exe aus deinem rar als W32Trojaner erkannt und
entsorgt...

Teste mal auf nem anderem PC

Gruss
Guido

[EWeiss]

Schau doch mal im Header der Datei ob das wirklich *.avi ist und nicht einfach
eine Datei die nach .avi umbenannt wurde.

Und nen Error Handler würde ich strengstens empfehlen.

PS:
Der Aufbau deiner DLL ist sehr gewöhnungsbedürftig
In PlayVideo sollte nichts anderes stehen als "Play;"

Delphi-Quellcode:

function PlayVideo(FilterGraph :TFilterGraph):Boolean; stdcall;
begin
  Result := false;

  if Assigned(FilterGraph) then
  begin 
    FilterGraph.Play;
    result  := true
  end;

end

try .. except finally nicht vergessen.

gruss

[lbccaleb]

@Emil: Nicht nur das!



Du solltest auch vor allem mal alles frei geben! Ich hab das in meiner oben geposteten Version nicht gemacht weil es nur schnell kopiert wurde.
Außerdem solltest du es vermeiden, die Befehle mehrere male zu Wiederholen. Auch wenn das nicht wirklich der Fehler zu deinem Problem ist.


Und wie Emil schon richtig gepostet hat, vor allem Kontrollieren, ob die Interfaces zugewiesen sind oder nicht. Denn wenn bei dir irgendwo beim laden der Datei oder gar beim initzialisien ein Fehler auftritt, bekommst du davon gar nichts mit und das Programm arbeitet lustig weiter deine Befehlsliste ab, obwohl vllt. nicht mal DirectShow zur verfügung steht. Aus welchem Grund auch immer...