[s0manmbula]

Есть такая проблема: надо поместить компонент в dll - например ImageList. При нажатие на кнопку в приложении динамически загрузить dll в память, взять оттуда ImageList и назначить его например главному меню приложения. В интернете нигде нету информации, как такое делать...
Буду очень благодарен за помощь...

[AleD]

Сообщение от s0manmbula

Есть такая проблема: надо поместить компонент в dll - например ImageIndex. При нажатие на кнопку в приложении динамически загрузить dll в память, взять оттуда ImageIndex и назначить его например главному меню приложения. В интернете нигде нету информации, как такое делать...
Буду очень благодарен за помощь...

Что за компонент ImageIndex? ImageIndex это обычный Integer у некоторых компонентов, может быть надо в DLL поместить TBitmap'ы или TIcon?

[s0manmbula]

Сообщение от AleD

Что за компонент ImageIndex? ImageIndex это обычный Integer у некоторых компонентов, может быть надо в DLL поместить TBitmap'ы или TIcon?

Уже исправил - компонент ImageList...

[AleD]

Сообщение от s0manmbula

Уже исправил - компонент ImageList...

Всё очень просто, в dll пихаешь эту фугкцию:

Код:

function GetImageList: Pointer;
var
  ilImages: TImageList;
begin
  ilImages := TImageList.Create(nil);
  // ...
  Result := @ilImages; //нужный TImageList
end;

а в приложение

Код:

procedure GetImages;
type
  TGetImageListProc = function: Pointer;
const
  libname = 'mylib.dll';
  procName = 'GetImageList';
var
  lib: Cardinal;
  proc: TGetImageListProc;
  newImages: TImageList;
begin
  lib := LoadLibrary(pchar(libname));
  if(lib<>-1)then
  begin
    proc := GetProcAddress(lib,procName);
    if(proc<>nil)then
      newImages := proc^;
  end;
end;

на компиляторе не проверял, будут ошибки - репорть

[s0manmbula]

Сообщение от AleD

Всё очень просто, в dll пихаешь эту фугкцию:

Код:

function GetImageList: Pointer;
var
  ilImages: TImageList;
begin
  ilImages := TImageList.Create(nil);
  // ...
  Result := @ilImages; //нужный TImageList
end;

а в приложение

Код:

procedure GetImages;
type
  TGetImageListProc = function: Pointer;
const
  libname = 'mylib.dll';
  procName = 'GetImageList';
var
  lib: Cardinal;
  proc: TGetImageListProc;
  newImages: TImageList;
begin
  lib := LoadLibrary(pchar(libname));
  if(lib<>-1)then
  begin
    proc := GetProcAddress(lib,procName);
    if(proc<>nil)then
      newImages := proc^;
  end;
end;

на компиляторе не проверял, будут ошибки - репорть

На строку

Код:

newImages := proc^;

компилятор выдает ошибку:

[DCC Error] Unit1.pas(210): E2010 Incompatible types: 'TImageList' and 'procedure, untyped pointer or untyped parameter'

[AleD]

тогда так:

Код:

function GetImageList: Pointer;
var
  ilImages: TImageList;
begin
  ilImages := TImageList.Create(nil);
  // ...
  Result := @ilImages; //нужный TImageList
end;

а в приложение

Код:

Код:
procedure GetImages;
type
  PImageList = ^TImageList;
  TGetImageListProc = function: PImageList;
const
  libname = 'mylib.dll';
  procName = 'GetImageList';
var
  lib: Cardinal;
  proc: TGetImageListProc;
  newImages: TImageList;
begin
  lib := LoadLibrary(pchar(libname));
  if(lib<>-1)then
  begin
    proc := GetProcAddress(lib,procName);
    if(proc<>nil)then
      newImages := proc^;
  end;
end;