FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#4
|
|||
|
|||
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; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como grabar la fecha y hora de un archivo? | Luis Alberto | Varios | 17 | 28-01-2009 21:03:15 |
Cómo acceder al contenido de un archivo de texto | kiolx | Varios | 9 | 18-01-2009 23:19:05 |
como Hacer que un TImage siga a un Timage? | j_flores3000 | OOP | 8 | 27-03-2008 18:47:50 |
Como puedo grabar texto en un Archivo de Texto sin Sobreescribir???? | AGAG4 | Varios | 12 | 08-11-2005 22:53:00 |
Borrar el contenido de un TImage | mrmanuel | Gráficos | 5 | 28-08-2005 08:29:24 |
|