Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Загрузка JPEG из ресурсов

01.01.2007
uses Jpeg;
{$R test.res}
 
function LoadJpegRes(const ID: string): TJpegImage;
var
  RS
: TResourceStream;
begin
 
Result := TJpegImage.Create;
  RS
:= TResourceStream.Create(HInstance, ID, RT_RCDATA);
 
try
    RS
.Seek(0, soBeginning);
   
Result.LoadFromStream(RS);
 
finally
    RS
.Free;
 
end;
end;
 
procedure TForm1
.Button1Click(Sender: TObject);
var
 
MyJpeg: TJpegImage;
begin
 
MyJpeg := LoadJpegRes('MYJPEG');
  Image1
.Canvas.Draw(0, 0, MyJpeg);
end;

 
Для JPEG, загнанного в ресурсы таким образом:
 

 

MYJPEG RCDATA "Test.jpg" 

 
 

Автор: Smike

Взято из https://forum.sources.ru