Jak zapisac tbitmapcamvas jako jpg

Witam

Mam problem nie wiem jak zapisac tbitmap.canvas jako jpg. Cały czas mi wyskakuje komunikat ze nie mozna zapisac tbitmapcanvas jako jpg. Prosze o pomoc

Pozdrawiam

No bo canvasa nie można zapisać jako jpg :). Spójrz do artykułów, tam jest coś na ten temat.

procedure convert_bmp_to_jpg(bmp : string);
var
Bitmap : TBitmap;
JPG : TJPEGImage;
output_str : string;
begin

JPG := TJPEGImage.Create;
Bitmap := tbitmap.create;
bitmap.loadfromfile(bmp);
//tutaj wlasnie sie zamienia BMP NA JPG
JPG.Assign(bitmap);
output_str := extractfilename(bmp);
delete(output_str,length(output_str)-3,5);
jpg.SaveToFile(ExtractFileDir(bmp)+''+output_str+'.jpg');
jpg.free;
bitmap.free;
end;

/proedura sama w sobie otwiera plik bmp i konwertuje do pliku jpg o tej samj nazwie ale o innym rozszerzeniu :u