Вызов в Lazarus функции из dll на C.

[Son]

Здравствуйте. Пытаюсь вызвать из dll функцию (Чтение по протоколу Modbus). Описание функции такое:

DWORD // MBX_SUCCESS if successful, else error code
WINAPI
MbxWriteMpCmdWait(
IN HANDLE hDevice, // Device driver handle from MbxOpen()
IN MBXPATHID PathID, // DM/PM path ID from MbxOpenMp()
IN USHORT Routing[ ], // Ptr to array of 5 (16-bit) routing codes
IN DWORD dwRoutingSize, // Routing array size in bytes
IN PMBXPKT pCmdPkt, // Ptr to command packet
IN DWORD dwCmdPktSize, // Command packet size in bytes
OUT PMBXPKT pReplyPkt, // Ptr to reply packet
IN OUT PDWORD pdwReplyPktSize, // Ptr to reply packet size in bytes
IN DWORD dwTimeout // Time-out in milliseconds
);

На Lazarus пишу так:

  function MbxWriteMpCmdWait(hDevice : HANDLE;
                             PathID : TMBXPATHID;
                             Routing : WORD;
                             dwRoutingSize : DWORD;
                             pCmdPkt : TMBXPKT;
                             dwCmdPktSize : DWORD;
                             var pReplyPkt : TMBXPKT;
                             var pdwReplyPktSize : DWORD;
                             dwTimeOut : DWORD): DWORD; stdcall;external 'mbxapi.dll' name 'MbxWriteMpCmdWait';   
...
{вызов:}
  ResultErr:=MbxWriteMpCmdWait(
                               DeviceHandle,
                               PathID,
                               Routing[0],
                               10,
                               MbPkt,
                               5,
                               MbPkt,
                               dwReplyPktSize,
                               5000);

При компиляции идет ошибка. Вопрос: правильно ли я портирую функцию или что напута с указателями?

[Stilet]

При компиляции идет ошибка

Ох... Еще один телепат... Прям шоу экстрасенсов.
Ладно Достаю свой телепатор, начинаю телепать:

MbxWriteMpCmdWait(
 hDevice:HANDLE , // Device driver handle from MbxOpen()
 PathID:MBXPATHID, // DM/PM path ID from MbxOpenMp()
 Routing:Pointer, // Ptr to array of 5 (16-bit) routing codes
 dwRoutingSize:Cardinal, // Routing array size in bytes
 pCmdPkt:PMBXPKT, // Ptr to command packet
 dwCmdPktSize:Cardinal, // Command packet size in bytes
 pReplyPkt:PMBXPKT, // Ptr to reply packet
 var pdwReplyPktSize:Cardinal, // Ptr to reply packet size in bytes
 dwTimeout:Cardinal // Time-out in milliseconds
):Cardinal;

Это учитывая что ни текста ошибки ни указанных тут типов я не знаю.

[Son]

Сообщение от Stilet

Это учитывая что ни текста ошибки ни указанных тут типов я не знаю.

К сожалению текста ошибки Lazarus толком ничего не дает.
"Проект mbxread вызвал класс исключения 'External:SIGSEGV'/. По адресу
2A032A8"
А с дисассемблером я ноль (((

[raxp]

...приложите MBX SDK, почитаем.

[Stilet]

Ну почему же. Текст ошибки лучше чем ничего.
Не помешает еще узнать что это за типы в параметрах.
И кстати, там где ты эту функу взял, ее описание, там примеров не было?

[Vapaamies]

Можно еще для Routing придумать свой тип:

type
  TRouting = array[0..4] of Word;

Тогда сам параметр Routing в объявлении процедуры будет выглядеть как:

procedure MbxWriteMpCmdWait(
  hDevice: HANDLE , // Device driver handle from MbxOpen()
  PathID: MBXPATHID, // DM/PM path ID from MbxOpenMp()
  const Routing: TRouting,

[raxp]

...господа, все есть в MBX SDK. TC может даже на офсайт не заходил еще.