Declaration
TIEVisionVectorRect = interface(TIEVisionBaseVector)
Description
An interface object that stores a vector (list) of rectangles (
TIEVisionRect).
Note: You can draw the rects to a canvas using
DrawRects// Draw rects to image
var
i: Integer;
r: TIEVisionRect;
begin
for i := 0 to rects.size() - 1 do
begin
r := rects.getRect(i);
with ImageEnView1.IEBitmap.Canvas do
begin
Pen.Width := 2;
Pen.Color := clRed;
Brush.Style := bsClear;
Rectangle( r.x, r.y, r.x + r.width, r.y + r.width );
end;
end;
ImageEnView1.Proc.TextOut( Align_Text_Near_Left, Align_Text_Near_Top, Format( 'Found: %d', [ rects.size ]), 'Arial', 12, clYellow, [fsBold] );
ImageEnView1.Update();
end;
// Output all rects as image files
for i := 0 to rects.size - 1 do
with rects.getRect(i) do
begin
bmp := TIEBitmap.Create( width, height );
ImageEnView1.IEBitmap.RenderToTIEBitmapEx( bmp, 0, 0, width, height, x, y, width, height );
bmp.SaveToFile( format( 'D:\Face_%d.jpg', [ i+1 ]));
bmp.Free();
end;