转换一下就是了,给你转换代码:
Uses
  Graphics,
  JPEG,
  ExtCtrls;procedure JPG2BMP(JPEGFile:String;BitmapFile:String);
Var
 BMP    : TBitmap;
 Buffer : TImage;
 Temp   : Boolean;begin
 Buffer:=TImage.Create(Application);
 with Buffer do
 try
  try
   Picture.LoadFromFile(JPEGFile);
  except
   on EInvalidGraphic do
     Exit;
  end;
  Temp := Picture.Graphic is TJPEGImage;
  if Temp then
    with TJPEGImage(Picture.Graphic) do
    begin
      Smoothing:=True;
    end;
  BMP:=TBitmap.Create;
  with BMP do
  try
   Assign(Buffer.Picture.Graphic);
   SaveToFile(BitmapFile);
  finally
   Free;
  End;
 finally
  Free;
 end;
end;