关于位图文件的格式转换、压缩存储、解压。

Question

请问：怎么把Bmp文件转换为JPEG文件？怎么对它进行压缩，存储到数据中，在读出以后再解压缩显示？

Answer 1

jpeg to bmp: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 Disk
end;
-------------------------------------------------------------
uses Jpeg;var
  jpg :TJpegImage;
  bmp :TBitmap;
begin
  jpg :=TJpegImage.Create;
  jpg.LoadFromFile('图片路径');
  bmp :=TBitmap.Create;
  bmp.Assign(jpg);
  bmp.SaveToFile('存储的路径');
  bmp.Free;
  jpg.Free;
end;

Answer 2

你最好到网上去找个关于JPEG的类库来。

Answer 3

在Delphi中，通过使用Jpeg库就可以实现了，很方便啊。