给大家介绍一个debian下摄像头拍照的用法，感觉LINUX操作系统太方便了

zouzhongming

现安装fswebcam:
然后在程序中直接调用fswebcam -d /dev/video0 -r 640x480 -D 1 --rotate 90 ~/cap.jpg
就可以得到照片了。
var
  VProcess: TProcess;
begin
  if Edit2.Text<>'' then
    begin
      Edit2.Text:=Format('%.10d',[strtoint(edit2.text)]);
      VProcess := TProcess.Create(nil);
      try
       VProcess.CommandLine := 'sh -c "fswebcam -d /dev/video0 -D 1 --rotate 90 /windows/document/mmgl/'+Edit2.Text+'.jpg"';
       VProcess.Options := [poWaitOnExit, poUsePipes];
       VProcess.Execute;
       if FileExists('/windows/document/mmgl/'+Edit2.Text+'.jpg') then
         begin
           Image1.Picture.LoadFromFile('/windows/document/mmgl/'+Edit2.Text+'.jpg');
           ImagePath:='/windows/document/mmgl/'+Edit2.Text+'.jpg'
         end
       else showmessage( '摄像头未打开！'+#13+'请检查摄像头!' );
       finally
         VProcess.Free;
       end;
    end
  else
    begin
      Edit2.SetFocus;
      showmessage( '拍照前请输入客户编号！'+#13+'客户编号不能为空！' );
    end;