Fórum Capturar Imagem em JPEG para gravar em Mysql #31126

procedure TFMCapturaFoto.FormShow(Sender: TObject);
var
  P : ^TTabImage;
begin
  try
    Camera1.Actif := True;
    New(P);
    FMCapturaFoto.Caption := FMCapturaFoto.Caption + Camera1.FichierImage;
  except
    MessageDlg(´Ocorreu um erro ao tentar ativar a Webcam.´ + #13 +
      ´Certifique-se de que a câmera esteja conctacda e corretamente configurada.´, mtError, [mbOk], 0);
  end;
end;

// capturando a imagem
Camera1.FichierImage:=´c:\fotos\´ + DataModule1.ZTClientescli_cod.AsString + ´.jpg´;
Camera1.CaptureImageDisque;