jpg->bmp

Question

能不能把在image里打开的jpeg图像转化为bmp图像？

Answer 1

var
  BMP: TBitmap;
begin
  BMP := TBitmap.Create;
  BMP.Assign(Image1.Picture.Graphic);
  Image1.Picture.Assign(BMP);
  BMP.Free;
end;这样,在Image1里的图片就是BMP格式的了.

Answer 2

uses graphics, jpeg;
如何将bmp文件转化成jpg文件及将jpg文件转化成bmp文件
procedure ConvertBMPtoJPG(filename:string);
Var
    J:TJpegImage;
    I:TBitmap;
    S:String;
begin
    s:=filename;
    J:=TJpegImage.Create;
    I:=TBitmap.Create;
    I.LoadFromFile(s);
    J.Assign(I);
    I.Free;    s:=changefileext(s, '.jpg');
    J.SaveToFile(s);
    Application.processmessages;
    J.Free;
end;
procedure ConvertJPGtoBMP(filename:string);
Var
    J:TJpegImage;
    I:TBitmap;
    s:string;
begin
    s:=filename;
    I:=TBitmap.Create;
    J:=TJpegImage.Create;
    J.LoadFromFile(s);
    I.Assign(J);
    J.Free;    s:=changefileext(s, '.bmp');
    I.SaveToFile(s);
    I.Free;
    Application.processmessages;
end;
希望对你有用.