Hab mir folgende Prozedure geschrieben um das einer Webcam dazustellen.
Beim ersten Aufruf ist das kein Problem, da funktioniert alles, wenn ich aber in meiner Listbox ein zweites mal auf die Videoquelle klicke bzw. eine andere auswähle kommt immer die exception Filteranschlüsse nicht verbunden. Woran liegt das, wie kann ich das zum Bsp. in der Exception abfangen?

zusammenfalten · markieren

Delphi-Quellcode:

//Initialisieren des Bildes im VideoWindow
procedure TCapSource.StartCapture(Lbindex:integer; VideoWindow:TVideoWindow);
var index:integer;
    vw:tvideowindow;
begin
  //Klassen instanziieren
  try
  Filtergraph:=TFiltergraph.Create(VideoWindow);
  Filter:=TFilter.Create(VideoWindow);
  SampleGrabber:=TSampleGrabber.Create(VideoWindow);

  VideoWindow.FilterGraph:=Filtergraph;
  SampleGrabber.FilterGraph:=Filtergraph;
  Filter.FilterGraph:=Filtergraph;

  Filtergraph.ClearGraph;
  Filtergraph.Active:=False;
  Filter.BaseFilter.Moniker := Capenum.GetMoniker(Lbindex);
  Filtergraph.GraphEdit := true;
  Filtergraph.Mode := gmCapture;
  FilterGraph.Active := True;

  with Filtergraph as ICaptureGraphBuilder2 do
   RenderStream (@PIN_CATEGORY_PREVIEW, nil, Filter as IBaseFilter,
   SampleGrabber as IBaseFilter, VideoWindow as IBaseFilter);

  FilterGraph.Play;
  except
  end;
  end;

Gibst du Filtergraph, Filter und SampleGrabber auch wieder frei (bevor du z.B. den Button nochmal anklickst)?

Ich hab zwar davon keine Ahnung, aber ich könnte mir denken, woran es liegt.

Du erstellst ja hiermit neue Filter und so.

markieren

Delphi-Quellcode:

Filtergraph:=TFiltergraph.Create(VideoWindow);
Filter:=TFilter.Create(VideoWindow);
SampleGrabber:=TSampleGrabber.Create(VideoWindow);

VideoWindow.FilterGraph:=Filtergraph;
SampleGrabber.FilterGraph:=Filtergraph;
Filter.FilterGraph:=Filtergraph;

Bei zweiten Aufruf existieren die aber schon und es entsteht deiser Fehler.

Es gibt demnach also zwei Lösungen:
1: Du fragst vorm erstellen ab, ob sie schon erstellt wurden und erstellst sie nur, wenn sie noch nicht existieren.

2: Oder du gibst die vorher schon erstellten vorher frei.
z.B.:

markieren

Delphi-Quellcode:

Filtergraph.Free;
Filter.Free;
SampleGrabber.Free;
...

(die Freigabe sollte aber auch nur gemacht werden, wenn was existiert)


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

wie überprüfe ich ob die objekte schon existieren?

z.B. mit Assigned. Du muss aber nach dem Freigeben das Objekt auf nil setzten (z.B. FreeAndNil zum freigeben verwenden)

Es wäre auch sinnvoll, die Objekte vor dem try-Block zu erstellen und dann eine try-finally Konstrukt zu verwenden und die Objekte im finally Abschnitt wieder frei zugen.

markieren

Delphi-Quellcode:

  sl := TStringList.Create;
  try
    sl. ...;
  finally
    FreeAndNil(sl);
  end;

Wenn es nicht erzeugt werden kann, ist auch kein Speicher reserviert, den man freigeben müsste. Bei deinem Konstrukt, müsste dir der Compiler übrigens eine Warnung ausgeben. Und Warnungen sollte man nicht ignorieren, die gibt der Compiler nicht nur zum Spaß aus.

dei methode assigned gibt es wohl nicht, und was genau meinst du mit freeandnil..da find ich auch nur free

Assigned ist in der Unit Systems.
FreeAndNil ist bei den Indy Komponenten dabei (IdGlobal.pas) und sieht so aus:

markieren

Delphi-Quellcode:

procedure FreeAndNil(var Obj);
var
  P: TObject;
begin
  if TObject(Obj) <> nil then begin
    P := TObject(Obj);
    TObject(Obj) := nil; // clear the reference before destroying the object
    P.Free;
  end;
end;

Ja also woran wahrscheinlich das Problem liegt weiß ich jetzt wohl, dank eurer Hilfe, aber ich hab versucht dies auf das Problem umzumünzen, aber so recht will es noch nicht klappen. bekomme immer noch dieselbe Meldung.

Wenn ich FreeandNil benutze, muss ich die Objekte dann immer noch zerstören (.destroy)?

hab mal debuggt, der fehler kommt immer erst, wenn ich

 Filtergraph.Play aufrufe.

edit: hab gesehen Free in der Methode FreeandNil zerstört ja das Objekt schon.

Wie sieht dein Code jetzt aus?