2 replies to this topic

[Bertifox]

Hola foristas, nuevamente recurro a este foro para resolver lo siguiente.

 

Tengo una apps la cual envía la posición del GPS a una base de datos MySql, cuando el usuario presiona un  botón de pánico activa una alarma, y junto con esto quiero enviar una secuencia de fotos de lo que sucede en el movil, esto debe ser realizado por la apps sin intervención del usuario. Hasta ahora solo he logrado tomar una foto pero se debe presionar el botón en pantalla para obtenerla. 

 

Cualquier aporte será bien recibido.

 

Saludos

 

 

[Bertifox]

Para quienes les interese este post.

 

Se debe usar los componentes TImage, TCameraComponent y en el evento SampleBufferReady, agregar el siguiente código.

delphi

procedure TForm1.CameraComponent1SampleBufferReady(Sender: TObject;
  const ATime: TMediaTime);
begin
   TThread.Synchronize(TThread.CurrentThread, GetImage);
 
end;
 
procedure TForm1.GetImage;
begin
  CameraComponent1.SampleBufferToBitmap(ImageCam.Bitmap, True);
end;

[egostar]

Gracias por compartir amigo Bertifox.

 

Saludos