Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Грузим ресурсы из DLL

Автор: inko 1.6.2002, 10:54

Наконец-то я всосал, как грузонуть ресурсы из DLL.
Мужики! Помогите теперь загрузить BMP файл (StartMine) из DLL в Image1.

Код

procedure TForm1.Button2Click(Sender: TObject);
var
AModule: THandle;
BitMap : TBitMap;
begin
AModule := LoadLibrary('Images.dll');
 BitMap := TBitMap.Create;
  BitMap.LoadFromResourceName(AModule, 'StartMine');

  //Вот так не выходит:
  //Image1.Picture := BitMap;

 BitMap.Free;
FreeLibrary(AModule);
end;

Заранее благодарен!

Автор: Baa 1.6.2002, 13:59

procedure TForm1.Button1Click(Sender: TObject);
var
AModule: THandle;
begin
AModule := LoadLibrary('Images.dll');
image1.Picture.BitMap.LoadFromResourceName(AModule, 'StartMine');
FreeLibrary(AModule);
end;