一个简单问题，如何将JPG转换成BMP？

Question

另外，就是大家如果看看ACDSEE就会发现
convert into bmp 是完全转换，包括色素；但设置 wallpaper 那个转换，就少了很多色素，文件尺寸又会小了很多。在delphi里是如何实现指定色素的转变呢？有API做这个吗？

Answer 1

参考:procedure TForm1.Button1Click(Sender: TObject);
var
  BitMap: TBitMap;
begin
  BitMap := TBitMap.Create;
  try
    with BitMap do
    begin
      Image1.Picture.LoadFromFile('h:\1998年.jpg');
      Assign(Image1.Picture.Graphic);
      SaveToFile('h:\1998年.bmp');
    end;
  finally
    BitMap.Free;
  end;
end;