Показать сообщение отдельно
  #1  
Старый 11.01.2011, 17:37
Abracadabra Abracadabra вне форума
Прохожий
 
Регистрация: 11.01.2011
Сообщения: 6
Репутация: 10
По умолчанию Проблема с DLL

Помогите пожалуйста разобраться )
Я подключаю Dll динамически..загружается нормально, но функцию описаную в Dll не находит

Функция описанная в Dll:
Код:
function CreateFilter:MYAPI2;stdcall; 
 begin
  Result:= PictureFilter.Create;
 end;

exports
  CreateFilter;


Та часть кода где вызываю dll, и пытаюсь функцию вызвать:
Код:
Type
 TCreateFilter = function: MYAPI2;

procedure TForm1.LoadData;
var
  p:Tbitmap;
  hPlugIn: THandle;
  CreateFilter: TCreateFilter;
  Filter: MYAPI2;
begin
 hPlugIn := LoadLibrary('plugin.dll');
 CreateFilter := GetProcAddress(hPlugIn,'CreateFilter');
 if Assigned(CreateFilter) then// не выполняется, CreateFilter = nil
  begin
  .......
 end;
Админ: Пользуемся тегами!!!
Ответить с цитированием