请问如何把一个BMP文件转换成jpeg格式的文件，重要的是只压缩且无损

Question

borland\delphix\help\examples\jpeg;
              ~是版本号

Answer 1

创建一个BITMAP和一个JPEGIMAGE，把BITMAP  LOAD 近来，然后ASSIGN给JPEG。
就可以了。当然要指定压缩率就是JPG的一个属性，我见大家一般都用75你也可以用 
100
随你了

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject); //uses Jpeg;
var BitMap:TBitMap;
    Jpeg:TJpegImage;
begin
   try
     BitMap:=TBitMap.Create; Jpeg:=TJpegImage.Create;
     BitMap.LoadFromFile('c:\windows\desktop\myBmp.bmp');
     Jpeg.CompressionQuality:=75;
     Jpeg.Assign(BitMap);
     Jpeg.SaveToFile('c:\windows\desktop\myjpg.jpg');
   finally
     BitMap.Free;  Jpeg.Free;
   end;
end;

Answer 3

不可能无损，不可能！要不就不叫JPG了