bmpTOjpeg ?Résolu

Question

Salut

je peut exporte Image comme .bmp mais je voudrais ausssi comme .jpeg soufgarder

function BmpToJpeg(bmp:TBitmap):TJpegImage;

begin

  BmpToJpeg :=  TJpegImage.Create;


  BmpToJpeg.Assign(bmp);

 end ;

procedure TForm1.Button1Click(Sender: TObject);

begin

  saveDialog1.DefaultExt : = '.bmp';


  if savedialog1.Execute then

    begin

      If ExtractFileExt(SaveDialog1.Filename) =  '.bmp'  then 

          image1.picture.savetofile(SaveDialog1.FileName); // ok

      If ExtractFileExt(SaveDialog1.Filename)  = '.jpeg' then

         BmpToJpeg(image1.picture.savetofile(SaveDialog1.FileName)); // Untyped Pointer

end;

end;

end;

florenth · Accepted Answer

Oh là là,
var
  Jpeg: TJpegImage;

[...]

If ExtractFileExt(SaveDialog1.Filename) =  '.jpeg'  then 
begin
  Jpeg : = TJpegImage.Create;
  Jpeg.Assign(Image1.Picture.Graphic);
  Jpeg.SaveToFile(SaveDialog1.Filename);
  Jpeg.Free;
end;

Ressources Delphi, sources, tutoriaux, actu, ...: www.mx-dev.nethttp://te%3C/body

Taktaky · Answer

Merci bien. Sa marche sans errors
svp. comment je fais le meme chause si je soufgarde L Image comme .gif ?

merci

florenth · Answer

Google !!!

[c'est un poil plus compliqué.. mais faut chercher pardi !]

Ressources Delphi, sources, tutoriaux, actu, ...: www.mx-dev.nethttp://te%3C/body

Cirec · Answer

GDI+ ...
ça fonctionne du tonner 

 
@+
Cirec

<hr siz="" />

Taktaky · Answer

j ai trouvee la solution avec un  free Package

BmpTOjpeg ?

5 réponses

Votre réponse