Ресурс из DLL

[volod3000]

Здравствуйте!

Что-то не пойму в чем ошибка.

procedure TForm1.Button1Click(Sender: TObject);
var
  LibHandle: THandle;
  ResStream: TResourceStream;

begin

    {Загружаем библиотеку}
    LibHandle := LoadLibrary('C:\Program Files\Opera x64\opera.dll');
    if LibHandle <> 0 then
      {Загружаем ресурс}
      ResStream := TResourceStream.Create(LibHandle,'9', RT_ICON);

    try
     
     Image1.Picture.Icon.LoadFromStream(ResStream);
    finally
      ResStream.Free();

    end;

Выскакивает ошибка : (при проверке показала, что ошибка в Vcl.Graphics, строка 10126
Image.SetSize(Stream.Size - Stream.Position); )

(На картинке видно, что в DLL такая картинка есть)

[Stilet]

А какая ошибка? Ресурс не найден?

[volod3000]

(при проверке показала, что ошибка в Vcl.Graphics, строка 10126
Image.SetSize(Stream.Size - Stream.Position);

Немного переделал :

var
  LibHandle: THandle;
  ResStream: TResourceStream;
begin

    {Загружаем библиотеку}
    LibHandle := LoadLibraryEx(PChar('C:\Program Files\Opera x64\opera.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
     if LibHandle<>0 then begin

    Label1.Caption := 'Handle окна: '+ IntToStr(LibHandle);
      {Загружаем ресурс}                               
      ResStream := TResourceStream.Create(LibHandle,'9','ICON');
     end;

    try
      
     Image1.Picture.Icon.LoadFromStream(ResStream);
    finally

      ResStream.Free();

    end;

Выдает ошибку : Resource 9 not found.

[Stilet]

Выдает ошибку : Resource 9 not found.

Вот как раз эту ошибку у меня твой код из топа темы и выдавал. Тут я ничем не помогу, кроме как использовать EnumResourceNames() для получения списка ресурсов.

[ДралсяСошибками]

Была однажды подобная беда, совал я в ресурсы html файлы в секцию HTML, webbrouser их прекрасно видел, а вот resourcestream не находил((

решил проблему добавив include что-то в файле *.rc, что именно писал после include не помню, гугал знает, возможно include HTML

хз, мож поможет))

[Vapaamies]

Дайте угадаю. В 32-битное приложение грузится 64-битная DLL, LoadLibrary возвращает 0, в результате чего поток не создается, и разыменование его переменной валит AV.

[Stilet]

LoadLibrary возвращает 0

Нет. Хендл нормальный. Иначе бы до работы с ресурсом не дошло. И дело не в х64, я код в топе у себя запустил, чтоб понять что за текст ошибки у ТС, а у меня х32.

[volod3000]

Смысл всех этих манипуляций вытащить иконку большего размеров 128x128 или 64x64

Попробовал вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
  aResInstance: THandle;
  ico: TIcon;
  rs: TResourceStream;

begin
 aResInstance := LoadLibraryEx(PWideChar('C:\Program Files\Opera x64\opera.exe'), 0, LOAD_LIBRARY_AS_DATAFILE);

                 rs := TResourceStream.CreateFromID(aResInstance, WORD(3), RT_ICON);


 ico:= TIcon.Create;
 ico.LoadFromStream(rs);                 //LoadFromResourceName(aResInstance, 'OPERA');

     if aResInstance<>0 then begin
        Image1.Picture.Icon.Assign(ico);
     end;
 ico.Free;
end;

Получил вот это (т.е. картинки нет)

[volod3000]

Вот интересно, каким образом Ресторатор вытягивает и показывает ресурсы ?

[Stilet]

Использует фунции WinAPI, или сам считывает из секций данные. Второе тоже не так уж и сложно.