На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Загрузка JPEG из ресурсов
      ExpandedWrap disabled
        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"


      Автор: s-mike
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,1578 ]   [ 17 queries used ]   [ Generated: 28.03.24, 10:52 GMT ]