Convert picture file type : bmp picture to jpg picture on delphi

bmp to jpeg delphi

this is is the source code to convert bmp picture tojpg picture on delphi



var

bmp:tbitmap;
jpg : Tjpegemage;


bmp:=tbitmap.create
jpg:=jpegimage.create

bmp.loadfromfile(file *.bmp)//choose from folder

jpg.assign(bmp);
end;