procedure TForm1.JpgicoemfwmftoBmp1Click(Sender: TObject);
var
bmp:tbitmap;
begin
opendialog1.filter:='图片(*.jpg;*.ico;*.emf;*.wmf)|*.jpg;*.ico;*.emf;*.wmf|(*.*)|*.*';
if opendialog1.execute then
form1.image1.picture.loadfromfile(opendialog1.filename);
bmp:=tbitmap.create;
try
with bmp do
begin
width:=image1.picture.width;
height:=image1.picture.height;
canvas.draw(0,0,image1.picture.graphic);
savedialog1.filter:='图片(*.bmp)|*.bmp|(*.*)|*.*';
if savedialog1.execute then
savetofile(savedialog1.filename+'.bmp');
end;
finally
bmp.free;
showmessage('转换成功!');
end;
end;
//-->jpg to bmp
opendialog加ctrl多选