怎样把jpg转换位BMP，在线急等

Question

怎样把jpg转换位BMP，在线急等

Answer 1

你要是用别的画图软件可就简单多了。要是用delphi可就麻烦啊。

Answer 2

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;

Answer 3

procedure JpgToBmp(IFile, Ofile: String);
var
    MyJpg : TJpegImage;
    MyBmp : TBitmap;
begin
    MyBmp := TBitmap.Create;
    MyJpg := TJpegImage.Create;
    try
      myJpg.LoadFromFile(Ifile);
      MyBmp.Assign(MyJpg);
      MyBmp.SaveToFile(Ofile);
    finally
      MyBmp.Free;
      MyJpg.Free;
    end;
end;

Answer 4

var  MyJpeg: TJpegImage;  bmp: Tbitmap;begin  bmp:=tbitmap.Create;  MyJpeg:= TJpegImage.Create;  myjpeg.LoadFromFile('c:\windows\desktop\aa.jpg');  bmp.Assign(myjpeg);  bmp.SaveToFile('c:\windows\desktop\test.bmp'); // Save the JPEG to Diskend;