Como grabar el contenido de Timage a un archivo jpg

[Bertifox2008]

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

[afunez2007]

Este codigo por ejemplo guarda la imagen guardada en una base de datos a un archivo jpg.

Código Delphi [-]
procedure TFotosxEquipo.BitBtn2Click(Sender: TObject);
var
  jp: TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
begin
  jp := TJPEGImage.Create;
  try
    with jp do
    begin
      jp.LoadFromStream(Table1.CreateBlobStream(table1.FieldByName(FOTOS.ActivePage.Caption),bmread));
      SaveToFile(ExtractFilePath(Application.ExeName)+FOTOS.ActivePage.Caption+'.jpg');
      Messagedlg('Imagen Guardada en:'+#13+ExtractFilePath(Application.ExeName)+FOTOS.ActivePage.Caption+'.jpg',mtWarning, [mbok],1);
    end;
  finally
    jp.Free;
  end;
end;

con algunos cambios minimos podras hacer que exporte el timage

Saludos

[*Caro*]

Hola Bertifox2008, puedes hacerlo de esta forma:

Código Delphi [-]
  Image1.Picture.SaveToFile('C:\Ruta\foto.jpg');

Saluditos

[Bertifox2008]

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;

[Bertifox2008]

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;