VBNet - Форум - Declare DLL ActiveX

Вопрос: Declare DLL ActiveX Добавлено: 28.04.04 18:18

Автор вопроса: SHDZ | ICQ: 209382104

Есть длл, активХ

но в броузере пишет:

Function RegistrItem(Name As String, ulSum As , ulPrice As , ulQnty As , iWeight As Long, iRound As Long, iTaxA As Long, iTaxB As Long, iTaxV As Long, iTaxG As Long, iTaxD As Long, iTaxE As Long, iTaxJ As Long, iTaxZ As Long, ulCode As , DisName As String, lDiscount As Long) As Long

Member of Maria301MTM.CoMaria

- как его можно использовать, или если через

Private Declare Function RegistrItem Lib "C:\WINDOWS\System32\Maria301MTM.dll"

(ByVal Name As String, ...

как вытянуть функцию из .CoMaria.RegistrItem (...)??????????

Ответить

Ответы Всего ответов: 6

Номер ответа: 1
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #1

Добавлено: 29.04.04 08:38

Во замутил то... Ты чего, хочешь объявить функцию из ActiveX как из классической dll? Не догнал я чего то. Почему не подключищь её к проекту через References?

Ответить

Номер ответа: 2
Автор ответа:

SHDZ

ICQ: 209382104

Вопросов: 39
Ответов: 244

Профиль | | #2

Добавлено: 29.04.04 09:49

Да, именно!!!!!!!!!!!!!!!!!

Я ее и подключил, но как написал - у функции не определенный тип данных,

хотя по описанию должен был быть или лонг или интеджер а когда подключил, то

в броузере объектов пишет:

Function RegistrItem(Name As String, ulSum As , ulPrice As ...

И не получается использовать данную функцию.

Поэтому хочу ее объявить через

Private Declare Function RegistrItem Lib "Maria301MTM.dll" _

(ByVal Name As String, ByVal ulSum As Long, ByVal ulPrice As Long, ByVal ulQnty As Integer, _

ByVal iWeight As Long, ByVal iRound As Long, ByVal iTaxA As Long, ByVal iTaxB As Long, _

ByVal iTaxV As Long, ByVal iTaxG As Long, ByVal iTaxD As Long, ByVal iTaxE As Long, _

ByVal iTaxJ As Long, ByVal iTaxZ As Long, ByVal ulCode As Integer, ByVal DisName As String, _

ByVal lDiscount As Long) As Long

Подскажите как ее можно использовать. Если так объявляю, пишет не найдена точка входа, я думал потому что в коде она вызывается в следующем виде:

Public Mariya As Maria301MTM.CoMaria

Kod_Error = RegistrItem(m_Recordset1.Fields(0).Value, ...

Т.е. думаю, то из-за .CoMaria.

КАК ЕЕ ПРАВИЛЬНО ОБЪЯВИТЬ?

Ответить

Номер ответа: 3
Автор ответа:

SHDZ

ICQ: 209382104

Вопросов: 39
Ответов: 244

Профиль | | #3

Добавлено: 29.04.04 10:06

Так спешил, обрадовался что кто-то ответил,

в броузере выдает:

Function RegistrItem(Name As String, ulSum As

!!!!!!!!!!!!!!!!

Вот связи с этим и трабла...

Ответить

Номер ответа: 4
Автор ответа:

SHDZ

ICQ: 209382104

Вопросов: 39
Ответов: 244

Профиль | | #4

Добавлено: 29.04.04 10:41

Unsupported variant type

Все ввожу, а он не выдает на экран

Ответить

Номер ответа: 5
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #5

Добавлено: 29.04.04 11:17

Да не объявишь ты ActiveX как классику!

Ну хоть намыль что ли...

gerasimov.alpha.tula.net

Ответить

Номер ответа: 6
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #6

Добавлено: 30.04.04 08:43

Не уверен что письмо дошло, сервак сбоит жутко. В общем цитирую письмо:

> Может получиться? подключи длл и глянь функцию RegistrItem он ее не сможет

использовать...

Угу, получил. Проглядел дллку. Скажу - дело дрянь. Вот в чем фишка:

[id(0x60020013)]

int RegistrItem(

[in] BSTR Name,

[in] unsigned long ulSum,

[in] unsigned long ulPrice,

[in] unsigned long ulQnty,

[in] int iWeight,

[in] int iRound,

[in] int iTaxA,

[in] int iTaxB,

[in] int iTaxV,

[in] int iTaxG,

[in] int iTaxD,

[in] int iTaxE,

[in] int iTaxJ,

[in] int iTaxZ,

[in] unsigned long ulCode,

[in] BSTR DisName,

[in] long lDiscount);

Тип данных Unsigned не поддерживается VB. Попытаюсь что-нибудь сделать, но

боюсь - придется писать ocx на C++.

Может поможет tlb, но я в этом не особо

Ответить

Страница: 1 |