Cita:
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.ExecSQL;
begin
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'"