怎样把JPG转换成BMP

Question

各位大虾:怎样把JPG转换成BMP 100

Answer 1

errscreen := Tbitmap.Create; 
  errjpg:=Tjpegimage.Create;
  ....
  errjpg.assign(errscreen);//assign就可以了

Answer 2

var zz:tjpegimage;z1:string;x,y:integer;r:trect;
begin
image1.Picture:=nil;
zz:=tjpegimage.Create;
zz.LoadFromFile('d:\rsc\mailtp5.jpg');
image1.Canvas.Draw(0,0,zz);
image1.Picture.SaveToFile('d:\zz\123.bmp');

Answer 3

哦,要是有Photoshop,在那里面可以转化.

Answer 4

TO:
  hammer_shi(@农业专家@) 
  I 服了 you

Answer 5

Var
  myjpg:TJpegimage;
  mybmp:Tbitmap;
Begin
  myjpg:=TJpegimage.Create;
  myjpg.pixelformat:=jf24bit;
  myjpg.loadfromfile(......);
  mybmp:=TBitmap.Create;
  mybmp.pixelformat:=pf24bit;
  mybmp.width:=myjpg.width;
  mybmp.height:=myjpg.height;
  mybmp.assign(myjpg);
  myjpg.savetofile(.....);
End;

Answer 6

最后应该是
  mybmp.savetofile(....);
  myjpg.free;
  mybmp.free;
End;