funkce BMPtoJPG v delphi
Zdravím
Mám takovou funkci na konverzi formátu
function BMPtoJPG(var BMPpic, JPGpic: string):boolean;
var Bitmap: TBitmap;
JpegImg: TJpegImage;
begin
Result:=False;
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(BMPpic) ;
JpegImg := TJpegImage.Create;
try
JpegImg.Assign(Bitmap) ;
JpegImg.SaveToFile(JPGpic) ;
Result:=True;
finally
JpegImg.Free
end;
finally
Bitmap.Free
end;
funkceBMPtoJPG('C:\webcam.bmp','C:\webcam.jpg');
ale hází mi to chybu [Error]Constant object cannot be passed as var parameter
co dělám špatně? díky