как мне подключить ActiveX - DLL ? VB6

[salvequick]

привет всем!

как мне подключить ActiveX - DLL содержащую набор функций процедур и переменных?

при обращении любом обращении к объектам из dll вылетает
runtime error '424'. object not found.

я так понял что никакой интерфейсной части в dll на VB нету чтоли вообще?

я подключая просто указываю reference в меню project->references
VB6

[jangle]

А код привести? Как функции объекта вызываешь.

[salvequick]

допустим какая то функция и переменная объявлены в DLL так

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

Public V1 As String
Sub F1(A As Integer, B As Integer)


вызываю их так

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

V1= "string"
Call F1(1,2)


при выполнении или второй (если закомментировать первую) или первой строки вылетает "object not found"

вот вопрос как такое подключить

[Денис]

вот вопрос как такое подключить

В ActiveX dll нет функций, процедур и переменных (они имеются в т.н. native-dll)
Здесь же есть классы и их методы.

В библиотеке:

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

'код класса clsA1
Public V1 As String
PUBLIC Sub F1(A As Integer, B As Integer)

В проекте с подключенной библиотекой:

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

dim cA1 as clsA1
cA1.V1= "string"
Call cA1.F1(1,2)

[salvequick]

В ActiveX dll нет функций, процедур и переменных (они имеются в т.н. native-dll)
Здесь же есть классы и их методы.

В библиотеке:

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

'код класса clsA1
Public V1 As String
PUBLIC Sub F1(A As Integer, B As Integer)

В проекте с подключенной библиотекой:

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

dim cA1 as clsA1
cA1.V1= "string"
Call cA1.F1(1,2)

а как же объявить классы в VB6 ? он же не объектный язык
почему объявляем так?

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

dim cA1 as clsA1

где видно что мы объявили какой то класс в DLL ?

есть какая то статья на эту тему?

[jangle]

В ActiveX dll нет функций, процедур и переменных (они имеются в т.н. native-dll)
Здесь же есть классы и их методы.

В библиотеке:

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

'код класса clsA1
Public V1 As String
PUBLIC Sub F1(A As Integer, B As Integer)

В проекте с подключенной библиотекой:

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

dim cA1 as clsA1
cA1.V1= "string"
Call cA1.F1(1,2)

а как же объявить классы в VB6 ? он же не объектный язык
почему объявляем так?

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

dim cA1 as clsA1

где видно что мы объявили какой то класс в DLL ?

есть какая то статья на эту тему?

Cначала скажи, как ты умудрился создать ActiveX DLL без единого класса?
А вообще читай книжки по VB6, тогда подобные смешные вопросы не возникнут

[salvequick]

у меня нет книжек

была уже библиотека написанная
я поменял там одну функцию
изменил прототип , добавил параметр

интерфейсной части никакой я не нашел, поэтому изменил только функцию

теперь измененная библиотека не работает

вот и пытаюсь разобраться как это должно работать

[jangle]

у меня нет книжек

Скачай в сети.


По поводу кода, создай экземпляр класса и вызывай его методы

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

dim cA1 as New clsA1

[salvequick]

мне понятно что надо создать класс и вызывать его метода

непонятно откдуда взято clsA1
откуда взято clsA1??
я нигде не виду строчек в описании библиотеки

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

class  clsA1
{



};

[jangle]

мне понятно что надо создать класс и вызывать его метода

непонятно откдуда взято clsA1
откуда взято clsA1??
я нигде не виду строчек в описании библиотеки

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

class  clsA1
{



};

Ну все ясно... Покупай книгу по VB6 и начинай изучение с азов. Что-то объяснять человеку с нулевыми знаниями - бесполезно.

[salvequick]

господа ))) какие книги по VB

мне надо просто подправить было библиотеку и все
ну не буду я ради этого читать книгу а VB, все равно не моя специальность

неужели так вот так сложно объяснить или дать ссылку на нормальную статью

to jangle
ЧСЗ overflow у вас похоже случился ))

[jangle]

господа ))) какие книги по VB

мне надо просто подправить было библиотеку и все
ну не буду я ради этого читать книгу а VB, все равно не моя специальность

неужели так вот так сложно объяснить или дать ссылку на нормальную статью

to jangle
ЧСЗ overflow у вас похоже случился ))

Ответ был дан выше. Создать экземпляр класса перед вызовом метода из ActiveX Dll.
Но проблема в том, что ты не понимаешь о чем тебе говорят, из-за отсуствия элементарных знаний по-программированию.
Поэтому просто выложи код в форум, и его тебе исправят. Ссылки на статьи в данном случае бесполезны.

[salvequick]

элементарных знаний по программированию ну и ладно )

неужели нельзя было просто сказать что имя класса соответствует имени файла модуля класса?

это в модуле класса Dll. Class1.cls

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

Public V1 As String
Public Sub F1(A As Integer, B As Integer)

End Sub

это в программе использующей -dll

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

Private Sub Command1_Click()
Dim c As New Class1
c.V1 = "aaaaaaffffffff"   'здесь возникает ошибка     object required
End Sub


вот получается как ... вроде все верно сделано

получившуюся dllname.dll зарегистрировал c помощью regsrv32
ссылку в project->reference сделал

[jangle]

Нифига неверно сделал. Знаний всетаки - нет.

1ая ошибка, параметры в F1 должны быть две константы Integer, а ты передаешь одну строку.
2ая ошибка,

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

c.V1 =

бред у тебя же Sub. Поэтому

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

Call c.V1 (1,2)

вот так верно

[ANDLL]

Жангл, ты там бухаешь когда сидишь на форуме?
V1 - это property

[jangle]

Жангл, ты там бухаешь когда сидишь на форуме?
V1 - это property

У него это Sub, смотри код

[ANDLL]

Dim c As New Class1
c.V1 = "aaaaaaffffffff" 'здесь возникает ошибка object required

Мож ты в одном месте написал с, а в другом c?

[salvequick]

Жангл, ты там бухаешь когда сидишь на форуме?
V1 - это property

))))
ну да именно так

я хочу объявить один Sub и один property V1

в примере потом я показал именно обращение к property V1
а не Call c.F1(1,2)

[salvequick]

Dim c As New Class1
c.V1 = "aaaaaaffffffff" 'здесь возникает ошибка object required

Мож ты в одном месте написал с, а в другом c?

в одном русское в другом английское?
да неее

проверил еще раз

[salvequick]

Нифига неверно сделал. Знаний всетаки - нет.

не рано на форум то вылез советы давать?
может самому чего почитать?

[salvequick]

Ситуация сейчас такая

вот это работает правильно
я написал эти две кототкие программы

В модуле сlass1.cls в библиотеке

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

Public V1 As String
Public Sub F1(A As Integer, B As Integer)

End Sub

В программе вызывающей

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

Private Sub Command1_Click()
Dim kls As New Class1
kls.V1 = "3433434"
Call kls.F1(1, 2)
End Sub

но самый главный вопрос остался....
почему у меня не работает большая либа???
вылетает object not found ...
там все тоже самое ...просто поменяли одну функцию перестало работать

все пересобирал, и библиотеку и приложение, библиотеку регистрировал

[Денис]

но самый главный вопрос остался....
почему у меня не работает большая либа???

Боюсь, что действительно надо код смотреть. Кем написана та либа? Может она юзает сабклассинг? (или что-нибудь еще термоядерное)

[jangle]

Жангл, ты там бухаешь когда сидишь на форуме?
V1 - это property

))))
ну да именно так

я хочу объявить один Sub и один property V1

в примере потом я показал именно обращение к property V1
а не Call c.F1(1,2)

Для начала научись правильно выкладывать код.

[jangle]

Нифига неверно сделал. Знаний всетаки - нет.

не рано на форум то вылез советы давать?
может самому чего почитать?

Ты тратишь вторые сутки, на решение вопроса который займет несколько минут у ученика средней школы,
на уроке информатики. Это какбы характерезует тебя...

[salvequick]

все решилось .......

оказывается помимо меня в dll вносили еще изменения ....
и их никто не проверял.

ну и когда нашли что еще меняли все стало ясно.

[salvequick]

Нифига неверно сделал. Знаний всетаки - нет.

не рано на форум то вылез советы давать?
может самому чего почитать?

Ты тратишь вторые сутки, на решение вопроса который займет несколько минут у ученика средней школы,
на уроке информатики. Это какбы характерезует тебя...

ты как бы эта... чего злой то такой?

[Денис]

ты как бы эта... чего злой то такой?

Наверное в баню хочет... попариться.

[jangle]

ты как бы эта... чего злой то такой?

Меня невозможно разозлить. Выше дал объективную оценку твоим знаниям в области программирования на VB.