Leer y escribir JPGs y convertirlos a bitmaps

Por Saiyine  el 0000-00-00 00:00:00 - Secciones:  DELPHI  - Enlace permanente: 484

function LeerJPG(n : string) : TBitmap;
Var
jpeg: TJPEGImage;
Begin
        jpeg:= TJPEGImage.Create;
        try
        jpeg.LoadFromFile(n);
        result:= TBitmap.Create;
        try
        result.Assign( jpeg );
        finally
end;
finally
jpeg.free
end;
end;

procedure GrabarJPG(n : string; d : TBitmap);
Var
jpeg: TJPEGImage;
Begin
        jpeg:= TJPEGImage.Create;
        jpeg.Assign( d );
        jpeg.savetofile(n);
        jpeg.free
end;