Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Фев

Как в программу добавить файл ресурсов?

Posted by Chas under Пост-обзор

подскажите как в файл ресурса загрузить картинки(60 шт), чтобы был одна exe и rc, и с ресурса грузить эти картинки в программу?

Человек_Борща:

Ну допустим так:
Images.rc

Img0 JPEG "Img0.jpg"
Img1 JPEG "Img1.jpg"
Img2 JPEG "Img2.jpg"
ImgN JPEG "ImgN.jpg"
…
Img60 JPEG "Img60.jpg"Syhi-подсветка кода

Далее такая штука:

procedure LoadJPEGFromRes(TheJPEG: string; ThePicture: TPicture);
var
  ResHandle: THandle;
  MemHandle: THandle;
  MemStream: TMemoryStream;
  ResPtr: PByte;
  ResSize: Longint;
  JPEGImage: TJPEGImage;
begin
  MemStream := TMemoryStream.Create;
  JPEGImage := TJPEGImage.Create;
try
  ResHandle := FindResource(hInstance, PChar(TheJPEG), ‘JPEG’);
  MemHandle := LoadResource(hInstance, ResHandle);
  ResPtr := LockResource(MemHandle);
  ResSize := SizeOfResource(hInstance, ResHandle);
  MemStream.SetSize(ResSize);
  MemStream.Write(ResPtr^, ResSize);
  FreeResource(MemHandle);
  MemStream.Seek(0, 0);
  JPEGImage.LoadFromStream(MemStream);
  ThePicture.Assign(JPEGImage);
finally
  JPEGImage.Free;
  MemStream.Free;
 end;
end;Syhi-подсветка кода

Собираем ресурс, втыкаем его в прогу, далее это:

var
i:integer;
begin
For i:=0 to 59 do //60 интераций(повторений) цикла
LoadJPEGFromRes(‘Img’+IntToStr(i),Image1.Picture); 
end;Syhi-подсветка кода

тема на форуме

Последние записи

made in programmersforum 4

Как в программу добавить файл ресурсов?

Похожие статьи

Купить рекламу на сайте за 1000 руб

пишите сюда - alarforum@yandex.ru