![]() |
|
|
#1
|
|||
|
|||
|
Помогите пожалуйста разобраться
)Я подключаю 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;Последний раз редактировалось Abracadabra, 11.01.2011 в 17:43. |