如何将aa.jpg文件转换为aa.bmp格式的文件？

Question

谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var jpg:TJpegImage;bmp:TBitmap;
begin
  bmp:=TBitmap.Create;
  bmp.LoadFromFile('i:\aa.bmp');
  jpg:=TJpegImage.Create;
  jpg.Assign(bmp);
  jpg.SaveToFile('i:\aa.jpg');
  jpg.Free;
  bmp.Free;
end;

Answer 2

您的例子好象是将aa.bmp转换为aa.jpg格式的了，
而我需要将aa.jpg转换为aa.bmp格式的了，

Answer 3

//反过来就行了，先uses jpeg
procedure TForm1.Button1Click(Sender: TObject);
var 
  jpg:TJpegImage;
  bmp:TBitmap;
begin
  jpg:=TJpegImage.Create;
  jpg.LoadFromFile('i:\aa.jpg');
  bmp:=TBitmap.Create;
  bmp.Assign(jpg);
  bmp.SaveToFile('i:\aa.bmp');
  jpg.Free;
  bmp.Free;
end;
我这没装Delphi，你试试