تابعی برای تبدیل عکس از نوع Bmp به نوع Jpg

تابعی برای تبدیل عکس از نوع Bmp

به نوع  Jpg

 

procedure TForm1.Button1Click(Sender: TObject); var MyJPEG : TJPEGImage; MyBMP : TBitmap; begin MyBMP := TBitmap.Create; with MyBMP do try {Cargamos el BMP} {Load the BMP} LoadFromFile('YourBmpHere.BMP'); MyJPEG := TJPEGImage.Create; with MyJPEG dobegin Assign(MyBMP); {Grabamos el JPG} {Save the JPG} SaveToFile('YourJpegHere.JPEG'); Free; end; finally Free; end; end;

/ 0 نظر / 28 بازدید