procedure Jpg2Bmp(const source,dest:string);
var
MyJpeg: TJpegImage;
bmp: Tbitmap;
begin
bmp:=tbitmap.Create;
MyJpeg:= TJpegImage.Create;
try
myjpeg.LoadFromFile(source);
bmp.Assign(myjpeg);
bmp.SaveToFile(dest);
finally
bmp.free;
myjpeg.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
BitMap:TBitmap;
MyJpeg: TJpegImage;
TempStream : TMemoryStream;
begin
TempStream :=TMemoryStream.Create;
TempStream.LoadFromFile('f:/eiffel.jpg');
MyJpeg :=TJpegImage.Create;
BitMap :=TBitmap.Create;
MyJpeg.LoadFromStream(TempStream);
Bitmap.Assign(MyJpeg);
Image1.Picture.Bitmap.Assign(Bitmap);
TempStream.Destroy;
MyJpeg.Free;
Bitmap.Free;
end;