Como grabar el contenido de Timage a un archivo jpg
Hola nuevamente, logre instalar el componente DelphiTwain, el cual me captura una foto desde la webcam y la pasa a un Timage, ahora necesito grabar esta imagen a un archivo jpg en una rura definida, alguien ha hecho algo simlar?.
Saludos |
Este codigo por ejemplo guarda la imagen guardada en una base de datos a un archivo jpg.
con algunos cambios minimos podras hacer que exporte el timage Saludos |
Hola Bertifox2008, puedes hacerlo de esta forma:
Saluditos |
Algo paso con mi respuesta anterior, se elimino junto con la ayuda que recibi, pero de todas formas gracias a todos.
Resolvi el problema de la siguiente forma, para grabarlo como jpg: Código Delphi [-]procedure TFrm_PantallaPrincipal.TwainTwainAcquire(Sender: TObject; const Index: Integer; Image: TBitmap; var Cancel: Boolean); var Bitmap: TBitmap; jpeg: TJPEGImage; begin BitBtnGrabar.Enabled:=True; Bitmap := TBitmap.Create; Bitmap.Assign(Image); jpeg := TJPEGImage.Create; jpeg.Assign(Bitmap); jpeg.CompressionQuality := 100; sPathFoto:='C:\Fotos\Foto'+Trim(EditRut.Text)+'.jpg'; jpeg.SaveToFile(sPathFoto); ImageFoto.Picture.Assign(jpeg); jpeg.Destroy; Bitmap.Destroy; Cancel := TRUE; end; |
Disculpas algo paso con resaltar sintaxis:
Código Delphi [-] procedure TFrm_PantallaPrincipal.TwainTwainAcquire(Sender: TObject; const Index: Integer; Image: TBitmap; var Cancel: Boolean); var Bitmap: TBitmap; jpeg: TJPEGImage; begin BitBtnGrabar.Enabled:=True; Bitmap := TBitmap.Create; Bitmap.Assign(Image); jpeg := TJPEGImage.Create; jpeg.Assign(Bitmap); jpeg.CompressionQuality := 100; sPathFoto:='C:\Fotos\Foto'+Trim(EditRut.Text)+'.jpg'; jpeg.SaveToFile(sPathFoto); ImageFoto.Picture.Assign(jpeg); jpeg.Destroy; Bitmap.Destroy; Cancel := TRUE; end; |
La franja horaria es GMT +2. Ahora son las 08:02:49. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi