Delphi内JPG与BMP的互相转换

procedure TWPThread.Jpg2Bmp(Src, Dst: String);
var SrcJpg:TJpegImage;
    DstBitMap:TBitMap;
begin
  SrcJpg:=TJpegImage.Create;
  SrcJpg.LoadFromFile(Src);
  DstBitMap:=TBitMap.Create;
  DstBitMap.Assign(SrcJpg);
  DstBitMap.SaveToFile(Dst);
  SrcJpg.Free;
  DstBitMap.FreeImage;
  DstBitMap.Free;
end;
//Src,Dst为文件名
//BMP2Jpg反过来就行了。