Перевести с С++ на Delphi

[DeFaber]

Ребят, я конечно понимаю, что вопрос мой максимально нубский, но эта проблемка мну адолела , я не владею языком С++, но владею Delphi и др.
Суть следующая, мне потребовалось написать плагин к программе ClubControl, чтобы приклеить к ней биллинг на FreeBSD и коечто автоматизировать, но вот с форматом плагина я чтото никак не разберусь, а из примеров есть лиш пример на С++.

Принцип действия плагина:
в папке Plugins размещаются библиотеки с одной экспортируемой функцией : «CallbackProc», которая вызывается клиентом при определенных событиях, например включении выключении интернета.

Параметры :

void CallbackProc (PLUGIN_CALL_EVENT pce, void *lpData, DWORD dwDataSize); 
pce событие 
lpData дополнительные данные 
dwDataSize размер доп. данных 
enum PLUGIN_CALL_EVENT 
{ 
pceStartup, 
//short 
//computer number 
//sizeof(short) 

pceShutdown, 
//int 
//return value, if != -1 : ExitWindowsEx parameter 
//sizeof(int) 

pceEnableInet, 
//bool 
//true/false 
//sizeof(bool) 

pceMode, 

//int 
//#define MODE_NONE 0 
//#define MODE_LOCKED 1 
//#define MODE_USER 2 
//#define MODE_ADMIN 3 

//#define MODE_LAST MODE_ADMIN 
//#define MODE_TOTAL MODE_NONE 

//#define MODE BYTE 

//sizeof(MODE) 

pceUser 
//char* 
//new user 
//string len + 1 

}

Я попытался сам перевести это на Delphi и вот что вышло:

//=================================== ===================

library MyPlugin;

uses
  SysUtils, Classes, Dialogs;

{$R *.res}

type
  PLUGIN_CALL_EVENT = (
   pceStartup,
   pceShutdown,
   pceEnableInet,
   pceMode,
   pceUser
);

procedure CallbackProc(pce: PLUGIN_CALL_EVENT; lpData: Pointer; dwDataSize: Integer);
var
  pint: integer;
  pstr: string;
begin
Case PLUGIN_CALL_EVENT(pce) of
   pceStartup:    begin
                    ComputerNum::= SmallInt(lpData^);
                  end;
   pceShutdown:   begin
                    pint:= SmallInt(lpData^);
                  end;
   pceEnableInet: begin
.
.
.
.
   else
                    ShowMessage('Error...');
   end;
end;

exports CallbackProc;

end.

//=================================== ===================
Но вот чтото не совсем работает это, точнее никак не работает программа просто выкидывает ошибку, в lpData почемуто находится число больше похожее на размер данных (2), а в dwDataSize нечто похожее на адрес в памяти (у мну было 174500184) и приэтом при последующем запуске эта цифра меняется, т.е. почемуто lpData и dwDataSize помененны местами, но даже если я их меняю местами, в lpData совсем не та цифра что должна быть, и собстно сама программа почемуто повисает, отрабатывается плагин как надо а потом программа какбудто чегото ждет и грузит проц на 15%.

что делать с дополнительными данными я разберусь и сам , но вот как их получить чтото у мну никак не выходит помогите кто может.

почитать про требования к плагину можно тут:
http://help.clubcontrol.ru/Client/Plugins.htm
Также выкладываю пример плагина написанного на С++.

Заранее всем кто поможет СПС - Что означает большое и человеческое спасибо!!

Модератор: Используйте тег <CODE>

[n@sok]

В языке C++ по умолчанию используется метод вызова cdecl, а в Delphi - register. Здесь надо описать функцию cdecl:
procedure CallbackProc(pce: PLUGIN_CALL_EVENT; lpData: Pointer; dwDataSize: Integer); cdecl;

[DeFaber]

Сообщение от n@sok

В языке C++ по умолчанию используется метод вызова cdecl, а в Delphi - register. Здесь надо описать функцию cdecl:
procedure CallbackProc(pce: PLUGIN_CALL_EVENT; lpData: Pointer; dwDataSize: Integer); cdecl;

Огромное спасибо, все верно, данные я получил и могу уже с ними работать, но вот программа по прежнему зависает после обработки DLLки, какбудто она чегото ждет, может должна быть ешо какая стандартная для DLL функция которая должна чтото вернуть? (Это моя первая DLLка )