Загрузка JPEG из ресурсов |
Previous Top Next |
Code: |
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, загнанного в ресурсы таким образом:
Code: |
MYJPEG RCDATA "Test.jpg" |
Автор: Smike
Взято из http://forum.sources.ru
©Drkb::03794