Событие компонента в DLL

[W0LF]

Здравствуйте форумчане. Наткнулся вот на такую проблему...
В dll я создаю динамически экземпляр IdHTTP, но не как не могу прикрутить к нему OnAuthorization. Такой способ не увенчался успехом.

IdHttp1.OnAuthorization := Auth;

Посыпался с ошибкой "Calling conventions differ" в DelphiXE3.

ЧЯДНТ?

[Аватар]

А создать в DLL DataModule и в нем создавать компоненты и сделать обработчики их событий?

[raxp]

...создаем класс и в нем все и делаем. Пример:

// -----------------------------------------
// HIDOUTex.dll
// Модуль управления выходами МК ATMega8-16PU
// Author: Бадло Сергей Григорьевич
// H-page: http://raxp.radioliga.com
// Cистемные требования: win32 (NT/2003/XP)
// -----------------------------------------


library hidoutex;

uses windows, sysutils, JvHidControllerClass;

type
  HIDC = class
    procedure hidArrival(HidDev: TJvHidDevice);
....оставил одно событие, чтобы не рябило :)

   public
    constructor Create;
    destructor Destroy; override;
   end;



var  hidc1: hidc;
     hid1 : TJvHidDeviceController;
     Dev  : TJvHidDevice = nil;    // объекты HID устройств
     dout : TJvHidDevice = nil;
     //
     outVendorID: integer = $0207;
     outProductID: integer = $2010;

     inVendorID: integer = $0207;
     inProductID: integer = $2010;
     //
     inleds, outleds: byte;

{$R *.res}


............................

procedure hidc.hidArrival(HidDev: TJvHidDevice);
begin
 // если устройство не определено, то энумерация
 if (not Assigned(Dev)) or (not Assigned(dout)) then
  hid1.Enumerate;
end;


constructor hidc.Create;
Begin
 inherited Create;

 hid1                := TJvHidDeviceController.Create(nil);
 hid1.OnArrival      := hidArrival;
.........................
End;

destructor hidc.Destroy;
Begin
 freeandnil(hid1);
 inherited Destroy
End;


// команды-
function setget_leds(_outVendorID, _outProductID: integer; _outLEDs: Byte;
                     _inVendorID, _inProductID: integer; var inLEDs: longword):
                     pchar; stdcall;
........................
begin
 result:= 'raxp';

 outVendorID := _outVendorID;
 outProductID:= _outProductID;
 outleds     := _outleds;
 inVendorID  := _inVendorID;
 inProductID := _inProductID;

 hidc1:= hidc.Create;

..................... делаем чего надо


 hidc1.destroy;
end; exports setget_leds;

end.

смысл ясен?