VPF::Сложная структура из DLL в VB ? - Форум программистов

maklin

Дата 5.5.2008, 14:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.5.2008

Репутация: нет
Всего: нет

Привет All.
Помогите кто сможет.
Есть dataserv.dll в которой объявлена ф-я:

Код


const TDataForOPCServer * PASCAL GetDataForOPCServer( void );

Возвращаемый тип это структура следующего формата :

Код


#pragma pack(push, 1) // Важно!!! Байтовое выравнивание

struct TAnTag 
{
  char *name;     // Динамический размер переменной
  float value; 
  unsigned int OpcQuality;
};

struct TDataForOPCServer
{
  unsigned char dataIsValid;   
  unsigned short anTagsQnty;   // количество эл-ов в anTagsArray
  const TAnTag *anTagsArray;   // указатель на массив TAnTag 

  unsigned short structVersionNumber;
  char DeviceName[64]; 
  char Reserved[128]; 
};
#pragma pack(pop)

Вопрос. Как в VB описать соответствующую структуру для приема данных возвращаемых функцией GetDataForOPCServer() ?
Попробовал следующий вариант типа, но вызов функции вываливается в ошибку:

Код


Option Explicit
 
Type TAnTag 
       namef As String
       value As Single
       OpcQuality As Long
End Type


Type TDataForOPCServer
   dataIsValid As Byte
   anTagsQnty As Integer
   anTagsArray() As TAnTag 
       
   structVersionNumber As Integer
   devicename(64) As Byte
   resrved(128) As Byte
   
End Type
 
Declare Function GetDataForOPCServer Lib "dataserv.dll" () As TDataForOPCServer

Sub MyMacro()
    Dim dOPC As TDataForOPCServer
    
    dOPC = GetDataForOPCServer()
    
End Sub

Naghual

Дата 5.5.2008, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

В какую ошибку?

--------------------

Я желаю всем Счастья!

maklin

Дата 5.5.2008, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.5.2008

Репутация: нет
Всего: нет

После вызова функции GetDataForOPCServer() переходит на ErrLine.

Код


Sub MyMacro()
    
    Dim dOPC As TDataForOPCServer
    
    On Error GoTo ErrLine
    
    dOPC = GetDataForOPCServer()
    
    Dim i As Integer
    i = i + 1
    
ErrLine:
    ShowError "Error !!!!!"
End Sub

dataserv.dll не зарегистрирована, расположена в C:\WINXP\system\.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »