find contours give always 'External exception E06D7363'

[shineworld]

Hi Laex, I've tried to use findcountous passing it a TMat but I always get the exception:

'External exception E06D7363'

function TCncVisionMarkerCircleDetection.GetMarkerCircle(Source: TMat): TGeoRect;
var
  Image: TInputArray;
  Contours: TOutputArray;
  Hierachy: TOutputArray;
begin
  try
    Image := TInputArray(Source);
    findContours(Image, Contours, Hierachy, Ord(RETR_LIST), Ord(CHAIN_APPROX_SIMPLE));
    if Contours.getMat().empty then Exit;
    < bla bla bla >   
  except
    on E: Exception do
    begin
      var m: string := E.Message;
    end;
  end;

Do you have a working sample code ?

[Laex]

// Image := TInputArray(Source);

{->} Var {->} _contour:Vector<Vector>; {->} Contours:=_contour; findContours(Source, Contours, Hierachy, Ord(RETR_LIST), Ord(CHAIN_APPROX_SIMPLE)); if Contours.getMat().empty then Exit;

[Laex]

Var Contours: Vector<Vector<\TPoint>>; "\" - need delete (the parser eats)

[Laex]

function TCncVisionMarkerCircleDetection.GetMarkerCircle(Source: TMat): TGeoRect;
var
  //Image: TInputArray;
  Contours: Vector<Vector<TPoint>>;
  Hierachy: TOutputArray;
begin
  try
//    Image := TInputArray(Source);
    findContours(Source, Contours, Hierachy, Ord(RETR_LIST), Ord(CHAIN_APPROX_SIMPLE));
    if Contours.empty then Exit;
    < bla bla bla >   
  except
    on E: Exception do
    begin
      var m: string := E.Message;
    end;
  end;