FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Salvar una imagen con extencion BMP o JPEG
Buenas a todos, como creo que este sea uno de los mejores foros,de apoyo, pricipalmente a aquellos q inician en la area de programacioa va mi duda, creo ser sencilla, abro una imagen e un TImage, lugo le aplico algunaos tratamientos a la misma, al salvar no salva con extencion alguna, me gustaria de saber como hago para salvar la misma com extencio bmp o jpeg directo, pues si en la hora de salvar especifico la extencio funciona de maravilha, ai va el codigo q uso
procedure TForm1.SalvarImagem1Click(Sender: TObject); Var MyJPEG : TJPEGImage; begin if SavePictureDialog1.Execute then begin // se a extensão for .jpeg, salva no formato JPEG, senão salva em BMP if UpperCase(ExtractFileExt(SavePictureDialog1.FileName)) = 'JPG' then begin MyJPEG := TJPEGImage.Create; // Converte o BMP para JPEG with MyJPEG do begin Assign(image1.Picture.BitMap); SaveToFile(SavePictureDialog1.FileName); Free; end; end else Image1.Picture.Bitmap.SaveToFile(SavePictureDialog1.FileName); end; |
#2
|
||||
|
||||
Creo que el problema debe estar en el TSaveDialog. Éste debería tener dos filtros (*.jpg y *.bmp) para que el usuario del programa eligiera en cual formato desea guardar y la extensión se agregue automáticamente aún cuando escriba el nombre del archivo sin extensión.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Error jpeg #41 al cargar imagen en TImage | Repelus | Gráficos | 9 | 15-09-2005 21:18:04 |
cargar una imagen jpeg en tiempo de ejecucion | gulder | Gráficos | 6 | 13-05-2005 12:10:57 |
Convertir imagen bmp a jpeg | mar646 | Gráficos | 27 | 13-04-2005 09:10:15 |
DBimage, Salvar imagen en Archivo Externo | mtpedro | Gráficos | 6 | 01-11-2004 18:16:49 |
Redimensionar imagen jpeg | xflo | Gráficos | 0 | 01-07-2003 12:46:37 |
|