Передача Variant Из Lotusscript В Dll

[lmed]

Добрый день, уважаемые форумчане. Помогите, пжл, разобраться в ситуации:
есть простенькая функция в DLL (на с++)

long __stdcall SendVar( VARIANT* v) 
{
return v->lVal;
}

По логике, должна возвращать значение, переданное в параметре.
Подключаю и запускаю эту функцию в action на ls

Declare Function SendVar Lib "c:\cvv.dll" ( v As Variant) As Long
Sub Click(Source As Button)
Dim k As Long
Dim v As Variant

v = 300	
k = SendVar(v)	
Messagebox(Cstr(k))		
End Sub

Функция упорно возвращает - 2. При отладке на с++ видно, что передаваемое из LS значение (в данном случае 300) помещается в поле типа (vt) а не в поля данных.

Собственно вопрос, а почему так происходит? Есть корректный способ передачи Variant из LS в dll?

 

[ToxaRat]

Declare Function SendVar Lib "c:\cvv.dll" (b v As string) As Long
Declare Function SendVar Lib "c:\cvv.dll" (byval v As Variant) As Long
попробуй одну из

а что на с++ появился тип VARIANT? - это что за тип такой

 

[lmed]

Declare Function SendVar Lib "c:\cvv.dll" (b v As string) As Long
Declare Function SendVar Lib "c:\cvv.dll" (byval v As Variant) As Long
попробуй одну из

а что на с++ появился тип VARIANT? - это что за тип такой

Что значит "появился"? Он уже давным давно есть :lol: Как раз и предназначен для взаимодействия с VB..


Если объявить
Declare Function SendVar Lib "c:\cvv.dll" (byval v As Variant) As Long

при вышеуказанном прототипе в DLL, то lotus вылетает.

Если поправить в dll

long __stdcall SendVar( VARIANT v)

То отрабатывает нормально, только возвращает 32770. При этом пересылаемое значение (300) по преднему попадает в поле типа (vt) но никак не в поля с данными..

 

[FixeR]

В Лотусе если писать так:

Declare Function SendVar Lib "c:\cvv.dll" (byval v As Variant) As Long

То будет передаваться значение v.

А сли так:

Declare Function SendVar Lib "c:\cvv.dll" (v As Variant) As Long

То будет передаваться указатель на v.
Учтите это в коде библиотеки.

Variant - опасный тип :lol:
Он сам определяет чем ему быть - строкой, числом, объектом...

Ссылка скрыта от гостей

.
В Лотусе это почти всегда массив из varDouble, varDate или varOleStr.
Например, вот тут

Dim v As Variant
v = 300

Получается Variant-массив из одного значения типа varDouble.

return v->lVal;

Я не уверен, что это, но совсем не похоже на то, чтобы оно возвращало значение первого элемента из variant-массива.

 

[lmed]

Меня как раз устраивает если в функцию будет передаваться указатель.
Соответственно на LS

Declare Function SendVar Lib "c:\cvv.dll" (v As Variant) As Long

а в dll
long __stdcall SendVar( VARIANT* v)

Понятно что хитрый тип, поэтому и вожусь с ним :lol:

Код на Ls передает внутрь не массив, а одно значение типа Long, для наглядности можно сделать явно, вот так:

Dim k As Long
Dim v As Variant

k = 300
v = k
k = SendVar(v)

В таком случае, Переменная vt внутри варианта (на с++) должна быть VT_I4 (тип long), но вместо этого в ней оказывается значение 300 - неизвестный тип.