Как показать картинку в программе из ресурса DLL библиотеки

Delphi , Файловая система , Ресурсы

uses Sysutils;

procedure TfrmMain.CheckForAddFlow;
var
  SearchRec: TSearchRec;
  LibHandle: Cardinal;
  ResStream: TResourceStream;
begin
  if FindFirst('your-lib.dll', faAnyFile, SearchRec) <> 0 then
  begin
    {Загружаем библиотеку}
    LibHandle := LoadLibrary('your_lib.dll');
    if Handle <> 0 then
      {Загружаем ресурс}
      ResStream := TResourceStream.Create(LibHandle,
        PChar('res_name'), RT_BITMAP);
    try
      ImageViewer.Picture.Graphic.LoadFromStream(ResStream);
    finally
      ResStream.Free();
    end;
  end;
end;

//ShowMessage(IntToStr(AllocMemCount) + ':' + IntToStr(AllocMemSize));
end;

Here's the translation of the content into Russian:

Чтобы отобразить изображение из ресурса в библиотеке DLL, вам нужно использовать метод LoadFromStream компонента TPicture. В вашем коде вы уже делаете это правильно.

Вот что вы делаете:

1. Загружаете DLL с помощью LoadLibrary.
2. Создаете объект TResourceStream с.handle загруженной библиотеки и именем ресурса.
3. Используете метод LoadFromStream, чтобы загрузить изображение из ресурсного потока в компонент TPicture.

Однако, есть несколько вещей, которые вы можете сделать, чтобы улучшить ваш код:

1. Проверьте, была ли загрузка ресурса успешной, прежде чем пытаться загрузить его в картинку:

if ResStream <> nil then
  ImageViewer.Picture.Graphic.LoadFromStream(ResStream)
else
  ShowMessage('Failed to load resource');

1. Рассмотрите использование блока try-finally для загрузки изображения, в случае если исключение будет выброшено во время процесса загрузки:

try
  ImageViewer.Picture.Graphic.LoadFromStream(ResStream);
except
  ShowMessage('Error loading image');
end;

1. Если вы не планируете использовать объект TResourceStream после загрузки изображения, рассмотрите возможность освобождения его сразу после загрузки:

ImageViewer.Picture.Graphic.LoadFromStream(ResStream);
ResStream.Free();

Вот обновленный код с этими предложениями:

procedure TfrmMain.CheckForAddFlow;
var
  SearchRec: TSearchRec;
  LibHandle: Cardinal;
  ResStream: TResourceStream;
begin
  if FindFirst('your-lib.dll', faAnyFile, SearchRec) <> 0 then
  begin
    {Загружаем библиотеку}
    LibHandle := LoadLibrary('your_lib.dll');
    if LibHandle <> 0 then
    begin
      {Загружаем ресурс}
      ResStream := TResourceStream.Create(LibHandle, PChar('res_name'), RT_BITMAP);
      try
        if ResStream <> nil then
          ImageViewer.Picture.Graphic.LoadFromStream(ResStream)
        else
          ShowMessage('Failed to load resource');
      except
        ShowMessage('Error loading image');
      end;
      ResStream.Free();
    end;
  end;
end;

Надеюсь, это поможет! Пожалуйста, дайте мне знать, если у вас есть какие-либо дальнейшие вопросы.

В статье описывается способ загрузки и отображения картинки из ресурса DLL-библиотеки в программе с использованием компонента ImageViewer.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Ресурсы ::