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; 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