создание dll

[optimizm]

Пытаюсь создать dll в VB.
Есть модуль содержащий такое поисание структуры

Код: Выделить всё


Type upol_l_struct
   nls_u As Long
   fio_u As String * 61
   seria_u As String * 11
   ndok_u As String * 10
   kemv_u As String * 40
   adrs_u As String * 70
   post_u As String * 70
   dover_u As String * 10
   vid_u As Long
   datbeg_u As Long
   datend_u As Long
   prizn_u As Long
   grag_u As Long
   viddok_u As Long
   datav_u As Long
   prava As Long
   null_upol As Long
End Type


Если собирать dll то в любой функции, где есть параметр этого типа выходит ошибка. Если делать эту функцию private то все работает нормально. Что же делать чтоб работало и при public?[/syntax]

[alibek]

Публичные типы могут быть только в ActiveX EXE (если память не подводит). Выполняется ли это условие?
Если нет, то можно вместо типов использовать классы.

[tyomitch]

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

[optimizm]

Т.е. нельзя создать dll использующее такие типы данных?

[tyomitch]

Нужно перенести объявление этого типа в какой-нибудь класс.

[optimizm]

Я пытался, но в классе он обьявляется только как private иначе тоже пояляется ошибка
Cannot define a public user-defined type within an object module

[tyomitch]

Класс, в который ты должен перенести это объявление, сам должен быть публичным.

[optimizm]

А каким образом в VB можно класс сдлеать таковым. Здесь вроде как вообще никакого описания класса в принципе не идет?

[Ennor]

В свойствах класса (которые по F4 появляются) см. свойство Instancing. Тебе нужен любой Public... , но лучше конечно почитать, что какой значит, ибо от этого многое зависит.

[GSerg]

В принципе, имеет смысл выделить класс в дереве и потом в редактор свойств посмотреть.

[optimizm]

У меня VB5 может поэтому что не то?
Есть только один PublicNotCreatable. Но я там все перебробовал. Никакого результата это не дало.

[tyomitch]

optimizm, ты чего-то путаешь.
Если ты создаёшь ActiveX DLL, значит по крайней мере один публичный класс у тебя есть. Иначе VB откажется компилировать твой проект.

Вот в этот публичный класс и засунь своё объявление.

[optimizm]

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

Код: Выделить всё


Type upol_l_struct
   nls_u As Long
   fio_u As String ' * 61
   seria_u As String ' * 11
   ndok_u As String ' * 10
   kemv_u As String ' * 40
   adrs_u As String '* 70
   post_u As String '* 70
   dover_u As String '* 10
   vid_u As Long
   datbeg_u As Long
   datend_u As Long
   prizn_u As Long
   grag_u As Long
   viddok_u As Long
   datav_u As Long
   prava As Long
   null_upol As Long
End Type


Выдает ошибку Cannot define a public user-defined type within an object module.

[tyomitch]

класс должен быть публичным!!

[optimizm]

Так он публичный. Иначе, как вы сказали, он бы у меня не компилировался. Но нет, если убрать этот Type. То все нормально компилируется, а класс единственный. Вывод он публичный. Так что его публичность в данном вопросе никак не помогает.

[tyomitch]

Так он публичный. Иначе, как вы сказали, он бы у меня не компилировался. Но нет, если убрать этот Type. То все нормально компилируется, а класс единственный. Вывод он публичный.

Ну, значит в VB5 такое не поддерживалось.
Он у меня больше не стоит, так что проверить не могу.
Вывод: переходи на VB6

[CORBA]

Ну, значит в VB5 такое не поддерживалось.
Он у меня больше не стоит, так что проверить не могу.
Вывод: переходи на VB6

Чего уж тогда мелочится лучше на VB .Net

[optimizm]

Уже подумываю:-)
А скажите есть ли замена типа Any в VB6 и Vb.NET?
Скажем есть у меня такое обьявление
Declare Function d_crwrite Lib "CRDM32.dll" (ByVal field As Long, ByRef fDATA As Any, ByVal hDB As Long) As Integer
Как его реализовать там?

[alibek]

В VB6 есть Any, применимо только в декларациях (Declare).

[hCORe]

В VB.NET

Код: Выделить всё

<MarshalAs(UnManagedType.AsAny)>

[optimizm]

Всем спасибо, будем переходить:-)

[Smert]

А насчет класса:как-то ВБ его компилирует но переведи на русский язык PublicNotCreatable
(Это значит ПУБЛИЧНЫЙ НЕ СОЗДАВАЕМ !!!)

...или НЕ СОЗДАЁТСЯ! но смысл не меняется!!!

[tyomitch]

Smert, чем тебе не давал покоя топик месячной давности?