空间管理您的位置: 爱踢博客社区 » pig's head3 DE 家 » 日志

JPG BMP 相互转换的代码

上一篇 / 下一篇 2008-01-14 15:07:00 / 个人分类：Delphi相关

uses graphics, jpeg;

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;