Convierte casi cualquier decendiente de TGraphic en un TJPEGImage
g puede ser un TBitMap, un TGifImage,un TMetafile, etc
Código Delphi
[-]
function ToJPG(g: TGraphic): TJPEGImage;
var BMP: TBitmap;
begin
try
BMP:=TBitmap.Create;
BMP:=ToBMP(g); Result:=TJPEGImage.Create;
Result.Assign(BMP);
Result.CompressionQuality:=90; Result.Compress; except
Result:=nil;
end;
end;