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;
