MyJPEG:=TJPEGImage.Create;

    MyJPEG.Assign(Image2.Picture.Graphic);

    MyJPEG.CompressionQuality:=tb.Position;//压缩率大小

    MyJPEG.Compress;

    if copy(SavePictureDialog1.filename,length(SavePictureDialog1.filename)-3,4)='.jpg' then

      begin

         MyJPEG.SaveToFile(SavePictureDialog1.filename);

      end

      else

      begin

         MyJPEG.SaveToFile(SavePictureDialog1.filename+'.jpg');

      end;

  MyJPEG.Free;

  end;

       if hWndc=0 then hWndC:=capCreateCaptureWindowA('教师资格照片采集',WS_CHILD or WS_VISIBLE,Panel1.Left,panel1.Top,panel1.Width,panel1.Height,Panel1.Handle,0);

     if hWndc<>0 then

         sendMessage(hWndc,WM_CAP_DRIVER_CONNECT,0,0);

     SendMessage(hWndc,WM_CAP_SET_PREVIEWRATE,30,0) ;

     SendMessage(hWndc,WM_CAP_SET_PREVIEW,WPARAM(true),0);

//保存图像完成，显示视频图像

end;

3  总结

此程序是将图像存成一个.JPG文件，为了调用图像打印方便，也可以将图像文件存到数据库中。这个图像采集程序是我在编写一个应用程序中的小部分，在编写这个程序时以简捷、实用为主，没有用到过多新技术。Canvas对象中函数很多，关键是如何去应用，希望此程序对编程人员有所启发和利用。

以上程序用Delphi7.0编译通过。

参考文献

［1］张岭，宋坤，梁冰.Delphi程序开发范例宝典.人民邮电出版社.