Delphi 摄像头 设置图像的大小 再线等,急

Question

本帖最后由 tylwzq12344321 于 2009-09-22 17:21:00 编辑

Answer 1

LZ可以尝试下videocap组件procedure TForm1.FormCreate(Sender: TObject);
begin
    VideoCap1.DriverIndex:=0;
    VideoCap1.DriverOpen:=True;
    VideoCap1.VideoPreview:=True;
end;procedure TForm1.Button1Click(Sender: TObject);
Var
  jpeg: TJPEGImage;
  bmp: TBitmap;
  strfilename:String;
begin
image1.Refresh;
  inherited;
  strfilename:=extractfilepath(Application.ExeName);
  begin
              if not  VideoCap1.SaveAsDIB then
        begin
          ShowMessage('拍摄照片失败');
          Abort;
        end;
        bmp:= TBitmap.Create;
        try
          bmp.LoadFromFile(strfilename+ 'Capture.bmp' );
          jpeg:= TJPEGImage.Create;
          try
            jpeg.Assign(bmp);
            Image1.Picture.Graphic:=jpeg;
          finally
            jpeg.free;
          end;
        finally
          bmp.free;
        end;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
 VideoCap1.DlgVFormat;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
 VideoCap1.DlgVSource;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
if savedialog1.Execute then
image1.Picture.SaveToFile(savedialog1.FileName);
end;

Answer 2

经理说只能用WM_CAP_....类似消息,能不用控件就不用控件
而且我在那控件上我也没找到设置图片大小的方法和功能,最多就是获取到图片对象 然后设置一下现在我就在想,我先把文件保存下来为图片A
SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(pchar('c:\\test.bmp')));
然后读取图片,获得对象,然后设置一下下,保存为图片B
最后把图片A删除 ,这也是一种办法,也许是最笨的办法...非常谢谢shuaialang的回复不过我希望还是能有什么办法设置一下BITMAPINFO
因为我的一个C#扫描仪控件也能用到.
再次希望大虾来给点意见