unit loadjpegorbmp;

interface

uses jpeg,graphics,sysutils,extctrls;
function loadjpegbmp(fname : string) : tbitmap;



implementation


function loadjpegbmp(fname : string) : tbitmap;
var
JPEG : TJpegImage;
res : Tbitmap;
error : integer;
artist,album : string;
begin
error := 1;
res:=Tbitmap.create;
JPEG:=TJpegImage.Create;

if fileexists(fname+'\title.jpg') then begin
try
jpeg.loadfromfile(fname+'\title.jpg');
res.assign(jpeg);
//res.assign(res.graphic);
error:=0;
except
error:=2;
end;
end;

if error>0 then if fileexists(fname+'\title.jpeg') then begin
try
jpeg.loadfromfile(fname+'\title.jpeg');
res.assign(jpeg);
//bmp.assign(res.graphic);
error:=0;
except
error:=2;
end;
end;

if error>0 then if fileexists(fname+'\title.bmp') then begin
try
res.Loadfromfile(fname+'\title.bmp');
//res.Assign(bmp);
//bmp.assign(res.graphic);
error:=0;
except
error:=2;
end;
end;


result:=tbitmap.create;
result.assign(res);
res.free;
jpeg.free;
end;

end.