Código Delphi [-] var jpg: TJpegImage; Recurso: TResourceStream; begin Recurso:= TResourceStream.Create(0, 'RES_IMG_0', RT_RCDATA); jpg:= TJpegImage.Create; jpg.LoadFromStream(Recurso); Image1.Picture.Assign(jpg); Recurso.Free; jpg.Free; end;
var jpg: TJpegImage; Recurso: TResourceStream; begin Recurso:= TResourceStream.Create(0, 'RES_IMG_0', RT_RCDATA); jpg:= TJpegImage.Create; jpg.LoadFromStream(Recurso); Image1.Picture.Assign(jpg); Recurso.Free; jpg.Free; end;