devbox
笔触狂放9
这个屌丝很懒，什么也没留下！
关注作者
热门标签
热门文章
当前位置:   article > 正文

delphi opencv 物品数量识别_delphi opencv 货物识别

作者：笔触狂放9 | 2024-05-16 23:15:56

赞

踩

delphi opencv 货物识别

  1. unit Unit1;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs,OpenCV,IPL,cvCAm, StdCtrls, ExtCtrls, ComCtrls;
  6. const
  7.   THRESHOLD = 10;     
  8.   THRESHOLD_MAX_VALUE = 255; 
  9.   CONTOUR_MAX_LEVEL = 1; 
  10.   LINE_THICKNESS = 2; 
  11.   LINE_TYPE = 8;  
  12. type
  13.   TForm1 = class(TForm)
  14.     Button1: TButton;
  15.     Button2: TButton;
  16.     Memo1: TMemo;
  17.     Button3: TButton;
  18.     Button4: TButton;
  19.     Label1: TLabel;
  20.     Panel1: TPanel;
  21.     Image1: TImage;
  22.     Panel2: TPanel;
  23.     Image2: TImage;
  24.     Panel3: TPanel;
  25.     Image3: TImage;
  26.     Panel4: TPanel;
  27.     Image4: TImage;
  28.     TrackBar1: TTrackBar;
  29.     Edit1: TEdit;
  30.     TrackBar2: TTrackBar;
  31.     Edit2: TEdit;
  32.     Edit3: TEdit;
  33.     Button5: TButton;
  34.     Edit4: TEdit;
  35.     Edit5: TEdit;
  36.     Edit6: TEdit;
  37.     Button6: TButton;
  38.     procedure Button1Click(Sender: TObject);
  39.     procedure Button2Click(Sender: TObject);
  40.     procedure Button3Click(Sender: TObject);
  41.     procedure FormCreate(Sender: TObject);
  42.     procedure Button4Click(Sender: TObject);
  43.     procedure TrackBar1Change(Sender: TObject);
  44.     procedure TrackBar2Change(Sender: TObject);
  45.     procedure Button5Click(Sender: TObject);
  46.     procedure Button6Click(Sender: TObject);
  47.   private
  48.     { Private declarations }
  49.   public
  50.     { Public declarations }
  51.   end;
  52. var
  53.   Form1: TForm1;
  54.  src     : pIplImage = 0;  //定义源图像指针
  55.  tmp     : pIplImage = 0;  //定义临时图像指针
  56.  src_back: pIplImage = 0; //定义源图像背景指针
  57.  dst_gray: pIplImage = 0; //定义源文件去掉背景后的目标灰度图像指针
  58.  dst_bw  : pIplImage = 0; //定义源文件去掉背景后的目标二值图像指针
  59.  dst_contours  : pIplImage = 0;  //定义轮廓图像指针
  60.  element  : pIplConvKernel = 0;   //定义形态学结构指针
  61.  Number_Object :integer=0; //定义目标对象数量
  62.  contour_area_tmp :integer = 0; //定义目标对象面积临时寄存器
  63.  contour_area_sum :integer= 0; //定义目标所有对象面积的和
  64.  contour_area_ave :integer= 0; //定义目标对象面积平均值
  65.  contour_area_max :integer= 0; //定义目标对象面积最大值
  66.  stor:   pCvMemStorage   = nil;
  67.  cont:   pCvSeq   = 0;
  68.  cont1:   pCvSeq   = 0;
  69.  Cfont:   CvFont   ;
  70.  C1font:  pCvFont   ;
  71.  a_contour:   pCvSeq = 0;
  72.  capture: PCvCapture;
  73.  frame: PIplImage=0;
  74.  frame1: PIplImage=0;
  75.  MFrame:PIplImage=0;
  76.  image: PIplImage=0;
  77.  g_Gray: PIplImage=0;
  78.  t_Gray: PIplImage=0;
  79.  bmp: TBitmap;
  80.  sz:PCvSize;
  81.   track_box: CvBox2D;
  82. implementation
  83. {$R *.dfm}
  84.  
  85.  
  86. procedure TForm1.TrackBar1Change(Sender: TObject);
  87. begin
  88. edit1.Text:=IntToStr(TrackBar1.Position);
  89. end;
  90. procedure TForm1.TrackBar2Change(Sender: TObject);
  91. begin
  92. edit2.Text:=IntToStr(TrackBar2.Position);
  93. end;
  94.  
  95. procedure TForm1.Button5Click(Sender: TObject);
  96. var         rec,rec1: TRect;
  97.             rr:CvRect;
  98.             red: CvScalar;
  99.             yellow: CvScalar;
  100.             count:integer;
  101.             area,x,y:integer;
  102.             ptr:pbyte;
  103.             r,g,b:integer;
  104.             OCVfont: CVFont;
  105. begin
  106. r:=StrToInt(Edit4.Text);
  107. g:=StrToInt(Edit5.Text);
  108. b:=StrToInt(Edit6.Text);
  109. edit3.Text:='';
  110. count:=0;
  111. area:=0;
  112. //1.读取和显示图像
  113.   frame := cvQueryFrame( capture );
  114.   if not(assigned(frame) ) then
  115.       exit;
  116.  IF (stor=NIL) then
  117.  begin
  118.  g_Gray:=cvCreateImage(cvSize_(frame.Width,frame.Height),8,1);
  119.  stor := cvCreateMemStorage(0);
  120.  end
  121.  else
  122.  begin
  123.  cvClearMemStorage(stor);
  124.  end;
  125.  
  126.  src:=cvCreateImage(cvSize_(frame.Width,frame.Height),8,3);
  127.  src:=cvCloneImage(frame);
  128.   src_back:=cvCreateImage(cvSize_(frame.Width,frame.Height),IPL_DEPTH_32F,3);
  129.   src_back:=cvCloneImage(frame);
  130. cvLine(frame, cvPoint_(160,40),cvPoint_(460,40), CV_RGB(0,0,0), 120, 8 );
  131.     IplImage2Bitmap(frame, bmp);
  132.     rec := Image1.canvas.ClipRect;
  133.     Image1.canvas.StretchDraw(rec , bmp);
  134.      cvThreshold( frame, frame ,TrackBar1.Position, 255, CV_THRESH_BINARY ); //取阀值为50把图像转为二值图像
  135.      
  136.      cvDilate( frame, frame, 0, 4);
  137.      cvSmooth(frame,frame,CV_MEDIAN,9,9);
  138.      
  139.      IplImage2Bitmap(frame, bmp);
  140.      rec := Image2.canvas.ClipRect;
  141.     Image2.canvas.StretchDraw(rec , bmp);
  142.      cvCvtColor(frame,g_Gray,CV_BGR2GRAY);  //CV_BGR2HSV
  143.      g_Gray.Origin:=1;
  144.  
  145.       IplImage2Bitmap(g_Gray, bmp);
  146.      rec := Image3.canvas.ClipRect;
  147.     Image3.canvas.StretchDraw(rec , bmp);
  148.      cvThreshold( g_Gray, g_Gray ,TrackBar2.Position, 255, CV_THRESH_BINARY ); //取阀值为50把图像转为二值图像
  149.     cvErode( g_Gray, g_Gray, 0, 2);
  150.     IplImage2Bitmap(g_Gray, bmp);
  151.     rec := Image4.canvas.ClipRect;
  152.     Image4.canvas.StretchDraw(rec , bmp);
  153.     cont := cvCreateSeq(0, sizeof(CvSeq), sizeof(CvPoint), stor);
  154.     Number_Object := cvFindContours( g_Gray, stor, @cont, sizeof(CvContour),
  155.     CV_RETR_TREE, CV_CHAIN_APPROX_SIMPLE, cvPoint_(0,0) ); //找到所有轮廓
  156.     label1.Caption:= IntToStr(Number_Object);
  157.   red := CV_RGB(255, 0, 0);
  158.  // cvDrawContours( src, cont,red,red ,CONTOUR_MAX_LEVEL, LINE_THICKNESS,LINE_TYPE,CvPoint_(0, 0));
  159.  cvInitFont(@OCVfont, CV_FONT_VECTOR0, 0.5, 0.5, 0, 1,16);
  160.   while cont <> Nil do begin
  161.    rr:=pCvContour(cont).Rect;
  162.    cvRectangle(src, cvPoint_(rr.x,rr.y), cvPoint_(rr.x +rr.width,rr.y+rr.height),CV_RGB(0,255,0),1,8,0);
  163.  
  164.    area:=cont.total;// cvContourArea(cont,CV_WHOLE_SEQ ) ;
  165.    edit3.Text:=edit3.Text+':'+intToStr(area);
  166.    count:=count+1;
  167.    cont := cont.h_next;
  168.    if cont=nil then cvInitFont(@OCVfont, CV_FONT_VECTOR0, 0.5, 0.5, 0, 2,16);
  169.    cvPutText(src,Pchar(IntToStr(count)),cvPoint_(rr.x+15,rr.y+20), @OCVfont,CV_RGB(0,0,225));
  170.   if (area<30) or (area>75) then
  171.    begin
  172.     showmessage('图像面积有不合法的');
  173.     exit;
  174.    end;
  175.    end;
  176.  
  177. // cvInitFont(@Cfont,CV_FONT_HERSHEY_SCRIPT_SIMPLEX ,1.0,1.0,0.0, 1, 16); //CV_FONT_HERSHEY_SCRIPT_SIMPLEX
  178. // cvPutText(frame,Pchar('easy'),cvPoint_(400,450), @Cfont,CV_RGB(0,255,0));
  179.     IplImage2Bitmap(src, bmp);
  180.     rec := Image1.canvas.ClipRect;
  181.     Image1.canvas.StretchDraw(rec , bmp);
  182.     //image1.Canvas.Rectangle
  183.  
  184. end;
  185.  
  186.  
  187.  
  188. procedure TForm1.Button1Click(Sender: TObject);
  189. var         rec,rec1: TRect;
  190.             rr:CvRect;
  191.             red: CvScalar;
  192.             yellow: CvScalar;
  193.             count:integer;
  194.             area,x,y:integer;
  195.             ptr:pbyte;
  196.             r,g,b:integer;
  197.             OCVfont: CVFont;
  198. begin
  199. r:=StrToInt(Edit4.Text);
  200. g:=StrToInt(Edit5.Text);
  201. b:=StrToInt(Edit6.Text);
  202. edit3.Text:='';
  203. count:=0;
  204. area:=0;
  205. //1.读取和显示图像
  206.   frame1 := cvQueryFrame( capture );
  207.   if not(assigned(frame1) ) then   exit;
  208.  src:=cvCreateImage(cvSize_(frame1.Width*2,frame1.Height*2),8,3);
  209.  cvResize(frame1,src,CV_INTER_lINEAR);
  210.  src.Origin:=1;
  211.  frame:=cvCloneImage(frame1);
  212.  g_Gray:=cvCreateImage(cvSize_(frame.Width,frame.Height),8,1);
  213.  t_Gray:=cvCreateImage(cvSize_(frame.Width,frame.Height),8,1);
  214.  G_Frame:=cvCreateImage(cvSize_(frame.Width,frame.Height),8,1);
  215.  HSVframe:=cvCreateImage(cvSize_(frame.Width,frame.Height),8,3);
  216.  IF (stor=NIL) then
  217.  begin
  218.  stor := cvCreateMemStorage(0);
  219.  end
  220.  else
  221.  begin
  222.  cvClearMemStorage(stor);
  223.  end;
  224.   src_back:=cvCreateImage(cvSize_(frame.Width,frame.Height),IPL_DEPTH_32F,3);
  225.   src_back:=cvCloneImage(frame);
  226. cvLine(frame, cvPoint_(160,40),cvPoint_(460,40), CV_RGB(0,0,0), 120, 8 );
  227. {
  228. cvFloodFill( frame, seed, brightness, cvRealScalar(lo),
  229.                              cvRealScalar(up), &comp, flags, is_mask ? mask : NULL );
  230. }
  231.      cvThreshold( frame, frame ,TrackBar1.Position, 255, CV_THRESH_BINARY ); //取阀值为50把图像转为二值图像
  232.     // cvSmooth(frame,frame,cv_Gaussian,9,9);
  233.      cvDilate( frame, frame, 0, 4);
  234.      cvErode( frame, frame, 0, 2);
  235.      cvDilate( frame, frame, 0, 3);
  236.      cvErode( frame, frame, 0, 2);
  237.      cvSmooth(frame,frame,CV_MEDIAN,9,9);
  238.  
  239.      IplImage2Bitmap(frame, bmp);
  240.      rec := Image2.canvas.ClipRect;
  241.     Image2.canvas.StretchDraw(rec , bmp);
  242.      cvCvtColor(frame,g_Gray,CV_BGR2GRAY);  //CV_BGR2HSV
  243.      g_Gray.Origin:=1;
  244. // cvLaplace(g_Gray,t_Gray,1);
  245. cvEqualizeHist(g_Gray,t_Gray);
  246. t_Gray.Origin:=1;
  247.  
  248.  
  249.       IplImage2Bitmap(t_Gray, bmp);
  250.      rec := Image3.canvas.ClipRect;
  251.     Image3.canvas.StretchDraw(rec , bmp);
  252. cvSmooth(t_Gray,t_Gray,cv_Gaussian,9,9);
  253.      cvThreshold( t_Gray, t_Gray ,TrackBar2.Position, 255, CV_THRESH_BINARY ); //取阀值为50把图像转为二值图像
  254.     cvErode( t_Gray, t_Gray, 0, 2);
  255.     IplImage2Bitmap(t_Gray, bmp);
  256.     rec := Image4.canvas.ClipRect;
  257.     Image4.canvas.StretchDraw(rec , bmp);
  258.     cont := cvCreateSeq(0, sizeof(CvSeq), sizeof(CvPoint), stor);
  259.     Number_Object := cvFindContours( t_Gray, stor, @cont, sizeof(CvContour),
  260.     CV_RETR_TREE, CV_CHAIN_APPROX_SIMPLE, cvPoint_(0,0) ); //找到所有轮廓
  261.     label1.Caption:= IntToStr(Number_Object);
  262.   red := CV_RGB(255, 0, 0);
  263.  // cvDrawContours( src, cont,red,red ,CONTOUR_MAX_LEVEL, LINE_THICKNESS,LINE_TYPE,CvPoint_(0, 0));
  264.  cvInitFont(@OCVfont, CV_FONT_VECTOR0, 1.0, 1.0, 0, 1,16);
  265.   while cont <> Nil do begin
  266.    rr:=pCvContour(cont).Rect;
  267.   area:=cont.total;
  268.   if (area<30) or (area>75) then
  269.    begin
  270.    cvRectangle(src_back, cvPoint_(rr.x,rr.y), cvPoint_(rr.x +rr.width,rr.y+rr.height),CV_RGB(255,0,0),2,8,0);
  271.    edit7.Text:=Edit7.Text+':'+IntToStr(area);
  272.     //showmessage('图像面积有不合法的');
  273.    end;// else
  274.   // cvRectangle(src_back, cvPoint_(rr.x,rr.y), cvPoint_(rr.x +rr.width,rr.y+rr.height),CV_RGB(0,255,0),2,8,0);
  275.    // cvContourArea(cont,CV_WHOLE_SEQ ) ;
  276.    edit3.Text:=edit3.Text+':'+intToStr(area);
  277.    count:=count+1;
  278.    cont := cont.h_next;
  279.    if cont=nil then
  280.    begin
  281.    cvInitFont(@OCVfont, CV_FONT_VECTOR0, 1.0, 1.0, 0, 2,16);
  282.    cvPutText(src_back,Pchar(IntToStr(count)),cvPoint_(rr.x+15,rr.y+15), @OCVfont,CV_RGB(255,0,0));
  283.    end else   cvPutText(src_back,Pchar(IntToStr(count)),cvPoint_(rr.x+15,rr.y+15), @OCVfont,CV_RGB(255,255,225));
  284.    end;
  285.     IplImage2Bitmap(src_back, bmp);
  286.     rec := Image1.canvas.ClipRect;
  287.     Image1.canvas.StretchDraw(rec , bmp);
  288. //frame1   src  frame  g_Gray  src_back
  289. //cvReleaseImage(g_Gray);
  290. //cvReleaseCapture(@capture);
  291. cvReleaseImage(src);
  292. cvReleaseImage(frame);
  293. cvReleaseImage(src_back);
  294. cvReleaseImage(g_Gray);
  295. cvReleaseImage(t_Gray);
  296.     //image1.Canvas.Rectangle   g_Gray
  297. end;
  298.  
  299.  
  300. end.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,OpenCV,IPL,cvCAm, StdCtrls, ExtCtrls, ComCtrls;

const
  THRESHOLD = 10;     
  THRESHOLD_MAX_VALUE = 255; 

  CONTOUR_MAX_LEVEL = 1; 
  LINE_THICKNESS = 2; 
  LINE_TYPE = 8;  

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Panel1: TPanel;
    Image1: TImage;
    Panel2: TPanel;
    Image2: TImage;
    Panel3: TPanel;
    Image3: TImage;
    Panel4: TPanel;
    Image4: TImage;
    TrackBar1: TTrackBar;
    Edit1: TEdit;
    TrackBar2: TTrackBar;
    Edit2: TEdit;
    Edit3: TEdit;
    Button5: TButton;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

 src     : pIplImage = 0;  //定义源图像指针
 tmp     : pIplImage = 0;  //定义临时图像指针
 src_back: pIplImage = 0; //定义源图像背景指针
 dst_gray: pIplImage = 0; //定义源文件去掉背景后的目标灰度图像指针
 dst_bw  : pIplImage = 0; //定义源文件去掉背景后的目标二值图像指针
 dst_contours  : pIplImage = 0;  //定义轮廓图像指针
 element  : pIplConvKernel = 0;   //定义形态学结构指针
 Number_Object :integer=0; //定义目标对象数量
 contour_area_tmp :integer = 0; //定义目标对象面积临时寄存器
 contour_area_sum :integer= 0; //定义目标所有对象面积的和
 contour_area_ave :integer= 0; //定义目标对象面积平均值
 contour_area_max :integer= 0; //定义目标对象面积最大值

 stor:   pCvMemStorage   = nil;
 cont:   pCvSeq   = 0;
 cont1:   pCvSeq   = 0;
 Cfont:   CvFont   ;
 C1font:  pCvFont   ;
 a_contour:   pCvSeq = 0;
 capture: PCvCapture;
 frame: PIplImage=0;
 frame1: PIplImage=0;
 MFrame:PIplImage=0;
 image: PIplImage=0;
 g_Gray: PIplImage=0;
 t_Gray: PIplImage=0;
 bmp: TBitmap;
 sz:PCvSize;
  track_box: CvBox2D;
implementation

{$R *.dfm}

 

 

procedure TForm1.TrackBar1Change(Sender: TObject);
begin

edit1.Text:=IntToStr(TrackBar1.Position);
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
edit2.Text:=IntToStr(TrackBar2.Position);
end;


procedure TForm1.Button5Click(Sender: TObject);
var         rec,rec1: TRect;
            rr:CvRect;
            red: CvScalar;
            yellow: CvScalar;
            count:integer;
            area,x,y:integer;
            ptr:pbyte;
            r,g,b:integer;
            OCVfont: CVFont;
begin
r:=StrToInt(Edit4.Text);
g:=StrToInt(Edit5.Text);
b:=StrToInt(Edit6.Text);
edit3.Text:='';
count:=0;
area:=0;

//1.读取和显示图像

  frame := cvQueryFrame( capture );
  if not(assigned(frame) ) then
      exit;

 IF (stor=NIL) then
 begin

 g_Gray:=cvCreateImage(cvSize_(frame.Width,frame.Height),8,1);
 stor := cvCreateMemStorage(0);
 end
 else
 begin
 cvClearMemStorage(stor);
 end;

 

 src:=cvCreateImage(cvSize_(frame.Width,frame.Height),8,3);
 src:=cvCloneImage(frame);

  src_back:=cvCreateImage(cvSize_(frame.Width,frame.Height),IPL_DEPTH_32F,3);
  src_back:=cvCloneImage(frame);

cvLine(frame, cvPoint_(160,40),cvPoint_(460,40), CV_RGB(0,0,0), 120, 8 );

    IplImage2Bitmap(frame, bmp);
    rec := Image1.canvas.ClipRect;
    Image1.canvas.StretchDraw(rec , bmp);

     cvThreshold( frame, frame ,TrackBar1.Position, 255, CV_THRESH_BINARY ); //取阀值为50把图像转为二值图像
    
     cvDilate( frame, frame, 0, 4);
     cvSmooth(frame,frame,CV_MEDIAN,9,9);
    
     IplImage2Bitmap(frame, bmp);
     rec := Image2.canvas.ClipRect;
    Image2.canvas.StretchDraw(rec , bmp);

     cvCvtColor(frame,g_Gray,CV_BGR2GRAY);  //CV_BGR2HSV
     g_Gray.Origin:=1;


      IplImage2Bitmap(g_Gray, bmp);
     rec := Image3.canvas.ClipRect;
    Image3.canvas.StretchDraw(rec , bmp);

     cvThreshold( g_Gray, g_Gray ,TrackBar2.Position, 255, CV_THRESH_BINARY ); //取阀值为50把图像转为二值图像
    cvErode( g_Gray, g_Gray, 0, 2);
    IplImage2Bitmap(g_Gray, bmp);
    rec := Image4.canvas.ClipRect;
    Image4.canvas.StretchDraw(rec , bmp);

    cont := cvCreateSeq(0, sizeof(CvSeq), sizeof(CvPoint), stor);
    Number_Object := cvFindContours( g_Gray, stor, @cont, sizeof(CvContour),
    CV_RETR_TREE, CV_CHAIN_APPROX_SIMPLE, cvPoint_(0,0) ); //找到所有轮廓
    label1.Caption:= IntToStr(Number_Object);

  red := CV_RGB(255, 0, 0);
 // cvDrawContours( src, cont,red,red ,CONTOUR_MAX_LEVEL, LINE_THICKNESS,LINE_TYPE,CvPoint_(0, 0));

 cvInitFont(@OCVfont, CV_FONT_VECTOR0, 0.5, 0.5, 0, 1,16);

  while cont <> Nil do begin
   rr:=pCvContour(cont).Rect;

   cvRectangle(src, cvPoint_(rr.x,rr.y), cvPoint_(rr.x +rr.width,rr.y+rr.height),CV_RGB(0,255,0),1,8,0);


   area:=cont.total;// cvContourArea(cont,CV_WHOLE_SEQ ) ;
   edit3.Text:=edit3.Text+':'+intToStr(area);
   count:=count+1;

   cont := cont.h_next;
   if cont=nil then cvInitFont(@OCVfont, CV_FONT_VECTOR0, 0.5, 0.5, 0, 2,16);
   cvPutText(src,Pchar(IntToStr(count)),cvPoint_(rr.x+15,rr.y+20), @OCVfont,CV_RGB(0,0,225));
  if (area<30) or (area>75) then
   begin
    showmessage('图像面积有不合法的');
    exit;
   end;
   end;

// cvInitFont(@Cfont,CV_FONT_HERSHEY_SCRIPT_SIMPLEX ,1.0,1.0,0.0, 1, 16); //CV_FONT_HERSHEY_SCRIPT_SIMPLEX
// cvPutText(frame,Pchar('easy'),cvPoint_(400,450), @Cfont,CV_RGB(0,255,0));

    IplImage2Bitmap(src, bmp);
    rec := Image1.canvas.ClipRect;
    Image1.canvas.StretchDraw(rec , bmp);

    //image1.Canvas.Rectangle

 

end;

 

 

 

procedure TForm1.Button1Click(Sender: TObject);
var         rec,rec1: TRect;
            rr:CvRect;
            red: CvScalar;
            yellow: CvScalar;
            count:integer;
            area,x,y:integer;
            ptr:pbyte;
            r,g,b:integer;
            OCVfont: CVFont;
begin
r:=StrToInt(Edit4.Text);
g:=StrToInt(Edit5.Text);
b:=StrToInt(Edit6.Text);
edit3.Text:='';
count:=0;
area:=0;

//1.读取和显示图像

  frame1 := cvQueryFrame( capture );
  if not(assigned(frame1) ) then   exit;

 src:=cvCreateImage(cvSize_(frame1.Width*2,frame1.Height*2),8,3);
 cvResize(frame1,src,CV_INTER_lINEAR);
 src.Origin:=1;

 frame:=cvCloneImage(frame1);

 g_Gray:=cvCreateImage(cvSize_(frame.Width,frame.Height),8,1);
 t_Gray:=cvCreateImage(cvSize_(frame.Width,frame.Height),8,1);
 G_Frame:=cvCreateImage(cvSize_(frame.Width,frame.Height),8,1);
 HSVframe:=cvCreateImage(cvSize_(frame.Width,frame.Height),8,3);

 IF (stor=NIL) then
 begin
 stor := cvCreateMemStorage(0);
 end
 else
 begin
 cvClearMemStorage(stor);
 end;

  src_back:=cvCreateImage(cvSize_(frame.Width,frame.Height),IPL_DEPTH_32F,3);
  src_back:=cvCloneImage(frame);

cvLine(frame, cvPoint_(160,40),cvPoint_(460,40), CV_RGB(0,0,0), 120, 8 );

{
cvFloodFill( frame, seed, brightness, cvRealScalar(lo),
                             cvRealScalar(up), &comp, flags, is_mask ? mask : NULL );
}

     cvThreshold( frame, frame ,TrackBar1.Position, 255, CV_THRESH_BINARY ); //取阀值为50把图像转为二值图像
    // cvSmooth(frame,frame,cv_Gaussian,9,9);
     cvDilate( frame, frame, 0, 4);
     cvErode( frame, frame, 0, 2);
     cvDilate( frame, frame, 0, 3);
     cvErode( frame, frame, 0, 2);

     cvSmooth(frame,frame,CV_MEDIAN,9,9);


     IplImage2Bitmap(frame, bmp);
     rec := Image2.canvas.ClipRect;
    Image2.canvas.StretchDraw(rec , bmp);

     cvCvtColor(frame,g_Gray,CV_BGR2GRAY);  //CV_BGR2HSV
     g_Gray.Origin:=1;

// cvLaplace(g_Gray,t_Gray,1);

cvEqualizeHist(g_Gray,t_Gray);
t_Gray.Origin:=1;

 


      IplImage2Bitmap(t_Gray, bmp);
     rec := Image3.canvas.ClipRect;
    Image3.canvas.StretchDraw(rec , bmp);

cvSmooth(t_Gray,t_Gray,cv_Gaussian,9,9);

     cvThreshold( t_Gray, t_Gray ,TrackBar2.Position, 255, CV_THRESH_BINARY ); //取阀值为50把图像转为二值图像
    cvErode( t_Gray, t_Gray, 0, 2);

    IplImage2Bitmap(t_Gray, bmp);
    rec := Image4.canvas.ClipRect;
    Image4.canvas.StretchDraw(rec , bmp);

    cont := cvCreateSeq(0, sizeof(CvSeq), sizeof(CvPoint), stor);
    Number_Object := cvFindContours( t_Gray, stor, @cont, sizeof(CvContour),
    CV_RETR_TREE, CV_CHAIN_APPROX_SIMPLE, cvPoint_(0,0) ); //找到所有轮廓
    label1.Caption:= IntToStr(Number_Object);

  red := CV_RGB(255, 0, 0);
 // cvDrawContours( src, cont,red,red ,CONTOUR_MAX_LEVEL, LINE_THICKNESS,LINE_TYPE,CvPoint_(0, 0));

 cvInitFont(@OCVfont, CV_FONT_VECTOR0, 1.0, 1.0, 0, 1,16);

  while cont <> Nil do begin
   rr:=pCvContour(cont).Rect;

  area:=cont.total;
  if (area<30) or (area>75) then
   begin
   cvRectangle(src_back, cvPoint_(rr.x,rr.y), cvPoint_(rr.x +rr.width,rr.y+rr.height),CV_RGB(255,0,0),2,8,0);
   edit7.Text:=Edit7.Text+':'+IntToStr(area);
    //showmessage('图像面积有不合法的');

   end;// else
  // cvRectangle(src_back, cvPoint_(rr.x,rr.y), cvPoint_(rr.x +rr.width,rr.y+rr.height),CV_RGB(0,255,0),2,8,0);

   // cvContourArea(cont,CV_WHOLE_SEQ ) ;
   edit3.Text:=edit3.Text+':'+intToStr(area);
   count:=count+1;

   cont := cont.h_next;
   if cont=nil then
   begin
   cvInitFont(@OCVfont, CV_FONT_VECTOR0, 1.0, 1.0, 0, 2,16);
   cvPutText(src_back,Pchar(IntToStr(count)),cvPoint_(rr.x+15,rr.y+15), @OCVfont,CV_RGB(255,0,0));
   end else   cvPutText(src_back,Pchar(IntToStr(count)),cvPoint_(rr.x+15,rr.y+15), @OCVfont,CV_RGB(255,255,225));

   end;

    IplImage2Bitmap(src_back, bmp);
    rec := Image1.canvas.ClipRect;
    Image1.canvas.StretchDraw(rec , bmp);
//frame1   src  frame  g_Gray  src_back
//cvReleaseImage(g_Gray);
//cvReleaseCapture(@capture);

cvReleaseImage(src);
cvReleaseImage(frame);
cvReleaseImage(src_back);
cvReleaseImage(g_Gray);
cvReleaseImage(t_Gray);
    //image1.Canvas.Rectangle   g_Gray

end;

 

 

end.

声明：本文内容由网友自发贡献，不代表【wpsshop博客】立场，版权归原作者所有，本站不承担相应法律责任。如您发现有侵权的内容，请联系我们。转载请注明出处：https://www.wpsshop.cn/w/笔触狂放9/article/detail/580829
推荐阅读
相关标签

Copyright © 2003-2013 www.wpsshop.cn 版权所有，并保留所有权利。

  

闽ICP备14008679号