Reducir resolucion de imagen

[giantonti1801]

Empezado por Casimiro Notevi

Si las imágenes las toman y las envían desde dispositivos móviles, deberías reducirlas en esos dispositivos antes de enviarlas.
Aparte de la resolución, también puedes reducirlas de tamaño.
No deberías tener ningún problema con ese tema de las imágenes, hoy en día es muy habitual su uso y su envío.
Tampoco es que podamos ayudar mucho si solamente nos indica que "da error", "no va", "no funciona", etc... deberías ser más explícito con cada problema para que sepamos a que atenernos.

Acabo de Hacer una investigación me di cuenta que la imagen se está guardando en la base de datos como BMP y tiene una resolución de 1920*1080 pero si hay alguna opción de que se guarde en formato JPEG el peso pasa de 7 MB a 350KB pero como hacerlo?

la imagen se está guardando directamente de la cámara y yo creo que allí está el problema ya que la guarda como BITMAP

Código Delphi [-]
procedure TFormPrincipalTab.Timer_FINTimer(Sender: TObject);
var Image: TBitmap;
var bmp: TBitmap;
begin
  LabelCuentaRegresiva.Text := '0';
  Timer_N1.Enabled := false;
  LabelCuentaRegresiva.Visible := false;
  cancel := false;
  SetupSoundFoto('camara_51.mp3');
  PlaySoundFoto;
  {$IFDEF ANDROID}
  CameraComponent1.SampleBufferToBitmap(Image4.Bitmap, true);
  CameraComponent1.Active := false;
  {$ENDIF}
    begin
       if Label26.Text = 'InExistente' then
      begin
       LabelNumeroDpto.Text := labelDpto.Text;
       LabelNombreVis.Text := Edit1.Text;
        begin
        UniQueryVisitantesVal.Close;
        UniQueryVisitantesVal.SQL.Clear;
        UniQueryVisitantesVal.SQL.Add('INSERT INTO visitantes (Nom_Vis,Apell_Vis,Rut_Vis,Foto,Num_dep_Vis,Edif_vis,Estatus,Usuario_mod,)');           //
        UniQueryVisitantesVal.SQL.Add('VALUES (:Nom_Vis, :Apell_Vis, :Rut_Vis, :Foto, :Num_dep_Vis, :Edif_vis, :Estatus, :Usuario_mod, )');                      //,
        UniQueryVisitantesVal.ParamByName('Nom_vis').AsString := LabelNombreVis.text;
        UniQueryVisitantesVal.ParamByName('Rut_Vis').AsString := LabelRutVis.Text;
        UniQueryVisitantesVal.ParamByName('Num_dep_Vis').Asstring := LabelNumeroDpto.text;
        UniQueryVisitantesVal.ParamByName('Edif_vis').AsString := LabelEdificio.text;
        UniQueryVisitantesVal.ParamByName('Estatus').AsString := 'ACT';
        UniQueryVisitantesVal.ParamByName('Usuario_mod').Asstring := 'XXX';
        //UniQueryVisitantesVal.ParamByName('otro').Asstring := 'E';
        UniQueryVisitantesVal.ExecSQL;
            begin
            ////duda
            UniQueryIMG.Close;
            UniQueryIMG.SQL.Clear;
            UniQueryIMG.SQL.Add('UPDATE IMG SET FOTO = :FOTO, OTRO1 = :OTRO1, MODULO = :MODULO where OTRO1  = ''I'' and MODULO = ''VISITANTES''');
            UniQueryIMG.ParamByName('OTRO1').AsString := '';
            UniQueryIMG.ParamByName('FOTO').Assign(Image4.bitmap);
            UniQueryIMG.ExecSQL;
            end;

al agregar el jpeg en uses me da error de "f2063 could not compile used unit 'jpeg'"