Вызов функций, возвращающих указатель на структуру, из нативной dll - C#

Узнай цену своей работы

Формулировка задачи:

Тут на форуме уже не раз задавали вопросы, как вызвать функцию из нативной dll. И в случае, если функция возвращает "нормальный" тип, у меня с этим вопросов нет: DllImport и всё такое. Но вот если функция возвращает указатель на интерфейс, вот тут у меня возникли проблемы. Имеется dll-ка (написана, кажется, на CBuilder), экспортирующая всего 2 функции. Так же имеются примеры работы с этой dll-кой в Delphi и в С++. На Delphi это выглядит так: Rtusbapi.pas
Листинг программы 
  1. unit Rtusbapi;
  2.  
  3. interface
  4.  
  5. uses
  6.     windows;
  7.  
  8. type
  9. pSHORT = ^SHORT;
  10. pBYTE = ^BYTE;
  11.  
  12. type
  13.  
  14. // структура, задающая режимы ввода данных для модуля USB-3000
  15. INPUT_PARS_USB3000 = packed record   // (size=438)
  16.     size : WORD;
  17.     InputEnabled : BOOL;                                    // флажок разрешение/запрещение ввода данных (только при чтении)
  18.     CorrectionEnabled : BOOL;                           // управление корректировкой входных данных (с АЦП)
  19.     InputClockSource : WORD;                            // источник тактовых импульсов для ввода данных
  20.     InputType : WORD;                                       // тип вводимых с модуля даных (АЦП или ТТЛ)
  21.     SynchroType : WORD;                                 // тип синхронизации вводимых с модуля даных
  22.     SynchroAdType : WORD;                               // тип аналоговой синхронизации
  23.     SynchroAdMode : WORD;                               // режим аналоговой сихронизации
  24.     SynchroAdChannel : WORD;                            // канал АЦП при аналоговой синхронизации
  25.     SynchroAdPorog : SHORT;                             // порог срабатывания АЦП при аналоговой синхронизации
  26.     ChannelsQuantity : WORD;                            // число активных логических каналов
  27.     ControlTable : array [0..127] of WORD;          // управляющая таблица с активными логическими каналами
  28.     InputFifoBaseAddress : WORD;                        // базовый адрес FIFO буфера ввода
  29.     InputFifoLength : WORD;                             // длина FIFO буфера ввода
  30.     InputRate : double;                                 // тактовая частота ввода данных в кГц
  31.     InterKadrDelay : double;                            // межкадровая задержка в мс
  32.     ChannelRate : double;                               // частота ввода фиксированного логического канала
  33.     AdcOffsetCoef : array [0..7] of double;         // корректировочные коэф. смещение нуля для АЦП
  34.     AdcScaleCoef : array [0..7] of double;          // корректировочные коэф. масштаба для АЦП
  35. end;
  36. pINPUT_PARS_USB3000 = ^INPUT_PARS_USB3000;
  37.  
  38. // структура, задающая режимы вывода данных для модуля USB-3000
  39. OUTPUT_PARS_USB3000 = packed record    // (size = 18)
  40.     size : WORD;
  41.     OutputEnabled : BOOL;                               // разрешение/запрещение вывода данных
  42.     OutputRate : double;                                    // частота вывода данных в кГц
  43.     OutputFifoBaseAddress : WORD;                   // базовый адрес FIFO буфера вывода
  44.     OutputFifoLength : WORD;                            // длина FIFO буфера вывода
  45. end;
  46. pOUTPUT_PARS_USB3000 = ^OUTPUT_PARS_USB3000;
  47.  
  48. // структура пользовательского ППЗУ
  49. FLASH_USB3000 = packed record           // (size = 256)
  50.     CRC16 : WORD;                                           // контрольная сумма
  51.     size : WORD;                                            // размер структуры
  52.     SerialNumber : array [0..8] of BYTE;            // серийный номер модуля
  53.     Name : array [0..10] of BYTE;                       // название модуля
  54.     Revision : CHAR;                                        // ревизия модуля
  55.     DspType : array [0..16] of BYTE;                    // тип установленного DSP
  56.     IsDacPresented : BYTE;                              // флажок наличия ЦАП
  57.     DspClockout : DWORD;                                // тактовая частота DSP в Гц
  58.     AdcOffsetCoef : array [0..7] of single;         // корректировочные коэф. смещения нуля для АЦП
  59.     AdcScaleCoef : array [0..7] of single;          // корректировочные коэф. масштаба для АЦП
  60.     DacOffsetCoef : array [0..1] of single;         // корректировочные коэф. смещения нуля для ЦАП
  61.     DacScaleCoef : array [0..1] of single;          // корректировочные коэф. масштаба для ЦАП
  62.     ReservedByte : array [0..128] of BYTE;          // зарезервировано
  63. end;
  64. pFLASH_USB3000 = ^FLASH_USB3000;
  65.  
  66. // структура, содержащая информацию о версии драйвера DSP
  67. DSP_INFO_USB3000 = packed record    // (size = 18)
  68.     Target : array [0..9] of BYTE;                  //  модуль, для которого предназначен данный драйвер DSP
  69.     DrvLabel : array [0..5] of BYTE;                    // метка разработчика драйвера DSP
  70.     DspMajor : BYTE;                                        // старшие число версии драйвера DSP
  71.     DspMinor : BYTE;                                        // младшее число версии драйвера DSP
  72. end;
  73. pDSP_INFO_USB3000 = ^DSP_INFO_USB3000;
  74.  
  75. // интерфейс модуля USB3000                                       `
  76. IRTUSB3000 = class
  77.   public
  78.     // USB интерфейс модуля
  79.     Function OpenDevice(VirtualSlot : WORD) : boolean; virtual; stdcall; abstract;
  80.     Function CloseDevice : boolean; virtual; stdcall; abstract;
  81.     Function GetModuleHandle : THandle; virtual; stdcall; abstract;
  82.     Function GetUsbSpeed(UsbSpeed : pByte) : boolean; virtual; stdcall; abstract;
  83.     Function GetModuleName(ModuleName : pCHAR) : boolean; virtual; stdcall; abstract;
  84.     Function GetModuleSerialNumber(SerialNumber : pCHAR) : boolean; virtual; stdcall; abstract;
  85.     Function GetAvrVersion(AvrVersion : pCHAR) : boolean; virtual; stdcall; abstract;
  86.     Function ReleaseInstance : boolean; virtual; stdcall; abstract;
  87.  
  88.     // функции для работы с DSP модуля
  89.     Function RESET_DSP : boolean; virtual; stdcall; abstract;
  90.     Function LOAD_DSP(FileName : pCHAR = nil) : boolean; virtual; stdcall; abstract;
  91.     Function MODULE_TEST : boolean; virtual; stdcall; abstract;
  92.     Function GET_DSP_INFO(DspInfo : pDSP_INFO_USB3000): boolean; virtual; stdcall; abstract;
  93.     Function SEND_COMMAND(Command : WORD) : boolean; virtual; stdcall; abstract;
  94.  
  95.     // функции для работы с памятью DSP модуля
  96.     Function PUT_VAR_WORD(Address : WORD; Data : SHORT) : boolean; virtual; stdcall; abstract;
  97.     Function GET_VAR_WORD(Address : WORD; Data : pSHORT) : boolean; virtual; stdcall; abstract;
  98.     Function PUT_DM_WORD(Address : WORD; Data : SHORT) : boolean; virtual; stdcall; abstract;
  99.     Function GET_DM_WORD(Address : WORD; Data : pSHORT) : boolean; virtual; stdcall; abstract;
  100.     Function PUT_PM_WORD(Address : WORD; Data : DWORD) : boolean; virtual; stdcall; abstract;
  101.     Function GET_PM_WORD(Address : WORD; Data : pDWORD) : boolean; virtual; stdcall; abstract;
  102.     Function PUT_DM_ARRAY(BaseAddress, NPoints : WORD; Data : pSHORT) : boolean; virtual; stdcall; abstract;
  103.     Function GET_DM_ARRAY(BaseAddress, NPoints : WORD; Data : pSHORT) : boolean; virtual; stdcall; abstract;
  104.     Function PUT_PM_ARRAY(BaseAddress, NPoints : WORD; Data : pDWORD) : boolean; virtual; stdcall; abstract;
  105.     Function GET_PM_ARRAY(BaseAddress, NPoints : WORD; Data : pDWORD) : boolean; virtual; stdcall; abstract;
  106.  
  107.     // функции для работы в режиме ввода данных
  108.     Function GET_INPUT_PARS(ap : pINPUT_PARS_USB3000) : boolean; virtual; stdcall; abstract;
  109.     Function SET_INPUT_PARS(ap : pINPUT_PARS_USB3000) : boolean; virtual; stdcall; abstract;
  110.     Function START_READ : boolean; virtual; stdcall; abstract;
  111.     Function STOP_READ : boolean; virtual; stdcall; abstract;
  112.     Function READ_KADR(Data : pSHORT) : boolean; virtual; stdcall; abstract;
  113.     Function READ_SAMPLE(Channel : WORD; Sample : pSHORT) : boolean; virtual; stdcall; abstract;
  114.     Function ReadData(lpBuffer : pSHORT; nNumberOfWordsToRead, lpNumberOfBytesRead : pDWORD; lpOverlapped : POverlapped) : boolean; virtual; stdcall; abstract;
  115.  
  116.     // функции для работы в режиме вывода данных
  117.     Function GET_OUTPUT_PARS(dp : pOUTPUT_PARS_USB3000) : boolean; virtual; stdcall; abstract;
  118.     Function SET_OUTPUT_PARS(dp : pOUTPUT_PARS_USB3000) : boolean; virtual; stdcall; abstract;
  119.     Function START_WRITE : boolean; virtual; stdcall; abstract;
  120.     Function STOP_WRITE : boolean; virtual; stdcall; abstract;
  121.     Function WRITE_SAMPLE(Channel : WORD; Sample : pSHORT) : boolean; virtual; stdcall; abstract;
  122.     Function WriteData(lpBuffer : pSHORT; nNumberOfWordsToWrite, lpNumberOfBytesWritten : pDWORD; lpOverlapped : POverlapped) : boolean; virtual; stdcall; abstract;
  123.  
  124.     // функции для работы с ТТЛ линиями
  125.     Function ENABLE_TTL_OUT(EnabledTtlOut : boolean) : boolean; virtual; stdcall; abstract;
  126.     Function TTL_OUT(TtlOut : WORD) : boolean; virtual; stdcall; abstract;
  127.     Function TTL_IN(TtlIn : pWORD) : boolean; virtual; stdcall; abstract;
  128.  
  129.     // функции для работы ППЗУ
  130.     Function ENABLE_FLASH_WRITE(EnableFlashWrite : boolean) : boolean; virtual; stdcall; abstract;
  131.     Function PUT_FLASH(fi : pFLASH_USB3000) : boolean; virtual; stdcall; abstract;
  132.     Function GET_FLASH(fi : pFLASH_USB3000) : boolean; virtual; stdcall; abstract;
  133.  
  134.     // функция выдачи строки с последней ошибкой
  135.     Function GetLastErrorString(lpBuffer : pCHAR; nSize : DWORD) : Integer; virtual; stdcall; abstract;
  136. end;
  137. PIRTUSB3000 = ^IRTUSB3000;
  138.  
  139. const
  140. // текущая версия библиотеки Rtusbapi.dll
  141.     VERMAJOR_RTUSBAPI           =   $0001;
  142.     VERMINOR_RTUSBAPI           =   $0005;
  143.     CURRENT_VERSION_RTUSBAPI    =   ((VERMAJOR_RTUSBAPI shl 16) or VERMINOR_RTUSBAPI);
  144.  
  145. // объявление экспортируемых из Rtusbapi.dll функций
  146. Function RtGetDllVersion : DWORD; stdcall;
  147. Function RtCreateInstance(DeviceName : PChar) : Pointer; stdcall;
  148.  
  149. implementation
  150.     Function RtGetDllVersion : DWORD; External 'Rtusbapi.dll'
  151.     Function RtCreateInstance(DeviceName : PChar) : Pointer; External 'Rtusbapi.dll'
  152. end.
Вызываются эти функции так:
Листинг программы 
  1. var
  2.     // версия библиотеки Rtusbapi.dll
  3.     DllVersion : DWORD;
  4.  
  5.     // интерфейс модуля USB3000
  6.     pModule : IRTUSB3000;
  7. begin
  8.     // проверим версию используемой DLL библиотеки
  9.     DllVersion := RtGetDllVersion; // <-- тут всё понятно
  10.     if DllVersion <> CURRENT_VERSION_RTUSBAPI then
  11.         begin
  12.             ErrorString := 'Неверная версия DLL библиотеки Rtusbapi.dll! ' + #10#13 +
  13.                         '           Текущая: ' + IntToStr(DllVersion shr 16) +  '.' + IntToStr(DllVersion and $FFFF) + '.' +
  14.                         ' Требуется: ' + IntToStr(CURRENT_VERSION_RTUSBAPI shr 16) + '.' + IntToStr(CURRENT_VERSION_RTUSBAPI and $FFFF) + '.';
  15.             TerminateApplication(ErrorString);
  16.         end
  17.     else WriteLn(' DLL Version --> OK');
  18.  
  19.     // попробуем получить указатель на интерфейс для модуля USB3000
  20.     pModule := RtCreateInstance(pCHAR('usb3000')); // <-- а тут на Delphi тоже всё выглядит просто
  21.     if pModule = nil then TerminateApplication('Не могу найти интерфейс модуля USB3000!')
  22.     else WriteLn(' Module Interface --> OK');
  23.  
  24.     // попробуем обнаружить модуль USB3000 в первых 127 виртуальных слотах
  25.     for i := 0 to 126 do
  26.     if pModule.OpenDevice(i) then break; 
  27.  
  28. // и т.д.

Решение задачи: «Вызов функций, возвращающих указатель на структуру, из нативной dll»

textual
Листинг программы 
  1.     struct IRTUSB3000Test
  2.     {
  3.         public IntPtr vtable;
  4.         // поля...
  5.     }
  6.  
  7.     struct IRTUSB3000TestVTable
  8.     {
  9.         [UnmanagedFunctionPointer(CallingConvention.StdCall)]
  10.         public delegate bool Method1Delegate(IntPtr self, ushort VirtualSlot);
  11.         [UnmanagedFunctionPointer(CallingConvention.StdCall)]
  12.         public delegate bool Method2Delegate(IntPtr self);
  13.  
  14.         public Method1Delegate OpenDevice;
  15.         public Method2Delegate CloseDevice;
  16.         // ...
  17.     }
  18.  
  19.     IntPtr structPtr = Rtusbapi.RtCreateInstance("usb3000");
  20.  
  21.     IRTUSB3000Test pModule = (IRTUSB3000Test)Marshal.PtrToStructure(structPtr, typeof(IRTUSB3000Test));
  22.  
  23.     IRTUSB3000TestVTable vt = (IRTUSB3000TestVTable)Marshal.PtrToStructure(pModule.vtable, typeof(IRTUSB3000TestVTable));
  24.  
  25.     bool result = vt.OpenDevice(structPtr, 0);
  26.  
  27.     vt.CloseDevice(structPtr);

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.111 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут