procedure TWPThread.Jpg2Bmp(Src, Dst: String);
Delphi内JPG与BMP的互相转换-冯金伟博客园var SrcJpg:TJpegImage;
Delphi内JPG与BMP的互相转换-冯金伟博客园    DstBitMap:TBitMap;
Delphi内JPG与BMP的互相转换-冯金伟博客园begin
Delphi内JPG与BMP的互相转换-冯金伟博客园  SrcJpg:=TJpegImage.Create;
Delphi内JPG与BMP的互相转换-冯金伟博客园  SrcJpg.LoadFromFile(Src);
Delphi内JPG与BMP的互相转换-冯金伟博客园  DstBitMap:=TBitMap.Create;
Delphi内JPG与BMP的互相转换-冯金伟博客园  DstBitMap.Assign(SrcJpg);
Delphi内JPG与BMP的互相转换-冯金伟博客园  DstBitMap.SaveToFile(Dst);
Delphi内JPG与BMP的互相转换-冯金伟博客园  SrcJpg.Free;
Delphi内JPG与BMP的互相转换-冯金伟博客园  DstBitMap.FreeImage;
Delphi内JPG与BMP的互相转换-冯金伟博客园  DstBitMap.Free;
Delphi内JPG与BMP的互相转换-冯金伟博客园end;
Delphi内JPG与BMP的互相转换-冯金伟博客园//Src,Dst为文件名
//BMP2Jpg反过来就行了。