[Abracadabra]

Помогите пожалуйста разобраться )
Я подключаю 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;

Админ: Пользуемся тегами!!!

[dr. F.I.N.]

А что есть MYAPI2?

[movnet]

Динамическая и статическая загрузка DLL

[Abracadabra]

MYAPI2 Это мой интерфейс

[Abracadabra]

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

[dr. F.I.N.]

По предложенным огрызкам кода Вам врятли кто-то даст ответ. Или покажитель больше кода... или одно из двух. (с) Братья пилоты.

[Abracadabra]

Кода не так уж много...вот

Описание интерфейса

Код:

MYAPI2 = interface
['{FE84A03E-74F6-48B9-97B6-C9EC4ECFD174}']
 procedure ModifPicture(var p: TBitMap);
end;

Dll

Код:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin, ExtCtrls, Buttons, ColorGrd, Menus, ExtDlgs,InterfaceUnit;

{$R *.res}

type
  PictureFilter = class(TInterfacedObject, MYAPI2)
  procedure ModifPicture(var p: TBitMap);
end;

procedure PictureFilter.ModifPicture(var p: TBitMap);stdcall;
 var
  i,j:integer;
 begin
   for i := 0  to  p.Width-1 do
    for j:= 0 to  p.Height-1 do
      p.Canvas.Pixels[i,j]:=rgb(0,0,GetbValue(p.Canvas.Pixels[i,j]));
 end;

function CreateFilter:MYAPI2;stdcall;
 begin
  Result:= PictureFilter.Create;
 end;

exports
  CreateFilter;

begin
end.

Само приложение

Код:

type
  TForm1 = class(TForm)
    ColorGrid1: TColorGrid;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Image1: TImage;
    SpinEdit1: TSpinEdit;
    SpeedButton4: TSpeedButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpinEdit1Change(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton4Click(Sender: TObject);

  public
   procedure LoadData;
  end;

 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
 	 begin
	  Filter := CreateFilter;
    p:=image1.Picture.Bitmap;
    filter.ModifPicture(p);
    image1.Refresh;
   end;
end;

procedure TForm1.N6Click(Sender: TObject);
var
  i,j: Integer;
begin
  LoadData;
end;

[dr. F.I.N.]

Я не готов назвать себя ГУРУ (и ему подобному) в создании DLL, но я грешу на "RTTI у DLL и EXE разные". А именно твоё

Код:

procedure ModifPicture(var p: TBitMap);

, на мой взгляд в EXE и DLL получается разное (из-за класса TBitMap).
Я бы использовал HBITMAP.

[Abracadabra]

Попробовала изменить, но результат тот же CreateFilter=nil

[movnet]

Если динамическая библиотека в процессе работы использует переменные или функции, осуществляющие динамическое выделение памяти под собственные нужды (длинные строки, динамические массивы, функции New и GetMem), а также, если такие переменные передаются в параметрах и возвращаются в результатах, то в таких библиотеках обязательно должен использоваться модуль ShareMem. При этом в секции uses модуль должен располагаться на первом месте.

[Abracadabra]

И это тоже не помогло
У меня задача в этой программе подключить плагины(плагины должны работать с изображением) через интерфейс Но я сама никогда не писала интерфейсы, и плагины не подключала... в инете видела множество статей на эту тему, но если чесно разобралась слабенько...вышла вот такая программа. Может есть у кого идея как можно по другому подключать плагин с помощью интерфейса

[movnet]

Тогда смотри сюда : Использование DLL в качестве Plug-in