Серый форум — AHK: Передача массива как типа данных VARIANT

Re: AHK: Передача массива как типа данных VARIANT

null@example.com (YMP) — Thu, 09 Feb 2017 03:15:33 +0000

Скорее, чтобы компиляторы могли отлавливать ошибки программистов.

Re: AHK: Передача массива как типа данных VARIANT

null@example.com (serzh82saratov) — Wed, 08 Feb 2017 22:30:15 +0000

Спасибо, после АНК конечно все эти типы кажутся чем то лишним. Это вообще нужно только для повышения производительности?

Re: AHK: Передача массива как типа данных VARIANT

null@example.com (YMP) — Wed, 08 Feb 2017 12:14:00 +0000

Сами массивы передаются оба в Вариантах, но у gpCode члены имеют тип Integer, а у dataValue они тоже Варианты. Возможно, в этом массиве нужна возможность передавать разные типы, поэтому члены массива и обернули в Варианты. Т.е. формально все элементы массива имеют один тип, Вариант, один размер, как и положено. Но внутри Вариантов уже могут быть данные разных типов и размеров. Для этого, наверно, тип Вариант и был когда-то выдуман.

Re: AHK: Передача массива как типа данных VARIANT

null@example.com (serzh82saratov) — Wed, 08 Feb 2017 11:07:34 +0000

YMP
Спасибо огромное, работает!

Следующий параметр FilterData почему то надо передавать как VT_VARIANT := 12, не подскажете почему так, ведь в справке тип такой же указан. VBA это непонятно.

Re: AHK: Передача массива как типа данных VARIANT

null@example.com (YMP) — Wed, 08 Feb 2017 03:28:30 +0000

Массив будет завёрнут в Вариант при передаче методу, АНК сам это сделает. А члены массива заворачивать не надо, судя по этому:


Dim gpCode(0) As Integer
Dim dataValue(0) As Variant

Если члены тоже Варианты, то это объявляется явным образом. Значит, они просто целые числа. Но Integer в VBA, как я нагулил, это 16-битные числа, а не 32-битные. Так что, наверно, надо так:


arr := ComObjArray(VT_I2 := 2, 1)
arr[0] := 62
ComObj.Method(arr)

Re: AHK: Передача массива как типа данных VARIANT

null@example.com (serzh82saratov) — Tue, 07 Feb 2017 17:27:17 +0000

Ругается всё равно.

Error: 0x80070057 - Параметр задан неверно.
Source: AutoCAD
Description: Недопустимый аргумент FilterType в Select

Не пойму из справки (параметр FilterType) что ему надо.

VBA программист пишет:

В таком виде 62 и 3 задавать нельзя. Это же массивы "завернутые" в Variant, а не просто целые числа.

Re: AHK: Передача массива как типа данных VARIANT

null@example.com (YMP) — Tue, 07 Feb 2017 12:32:08 +0000

Вот так передаётся массив 32-битных целых:


arr := ComObjArray(VT_I4 := 3, 1)
arr[0] := 62
ComObj.Method(arr)

Re: AHK: Передача массива как типа данных VARIANT

null@example.com (YMP) — Tue, 07 Feb 2017 12:29:32 +0000

Проверил на своём объекте код из первого поста — методу передаётся тип VT_ARRAY | VT_VARIANT. Т.е. массив вариантов. Может, вашему объекту надо массив целых чисел? Т.е. VT_ARRAY | VT_I4, например. Сам массив, конечно, в варианте передаётся, но его члены, возможно, в варианты упаковывать не надо.

Код из второго поста передаёт тип VT_DISPATCH, т.е. объект.

Код от Malcev'a — ссылку на пустой вариант.

Re: AHK: Передача массива как типа данных VARIANT

null@example.com (serzh82saratov) — Tue, 07 Feb 2017 11:04:52 +0000

Так тоже пробовал, но это вроде аналог byref.

Re: AHK: Передача массива как типа данных VARIANT

null@example.com (Malcev) — Tue, 07 Feb 2017 10:19:54 +0000

Опечатка:

ComObj.Method(arr.ref)

Re: AHK: Передача массива как типа данных VARIANT

null@example.com (serzh82saratov) — Tue, 07 Feb 2017 00:32:57 +0000

В справке такой пример нашёл, тоже не получается.


arr := ComVar()
arr[0] := 62 
ComObj.Method(arr)



; ComVar: Creates an object which can be used to pass a value ByRef.
;   ComVar[] retrieves the value.
;   ComVar[] := Val sets the value.
;   ComVar.ref retrieves a ByRef object for passing to a COM function.
ComVar(Type=0xC)
{
    static base := { __Get: "ComVarGet", __Set: "ComVarSet", __Delete: "ComVarDel" }
    ; Create an array of 1 VARIANT.  This method allows built-in code to take
    ; care of all conversions between VARIANT and AutoHotkey internal types.
    arr := ComObjArray(Type, 1)
    ; Lock the array and retrieve a pointer to the VARIANT.
    DllCall("oleaut32\SafeArrayAccessData", "ptr", ComObjValue(arr), "ptr*", arr_data)
    ; Store the array and an object which can be used to pass the VARIANT ByRef.
    return { ref: ComObject(0x4000|Type, arr_data), _: arr, base: base }
}

ComVarGet(cv, p*) { ; Called when script accesses an unknown field.
    if p.MaxIndex() = "" ; No name/parameters, i.e. cv[]
        return cv._[0]
}

ComVarSet(cv, v, p*) { ; Called when script sets an unknown field.
    if p.MaxIndex() = "" ; No name/parameters, i.e. cv[]:=v
        return cv._[0] := v
}

ComVarDel(cv) { ; Called when the object is being freed.
    ; This must be done to allow the internal array to be freed.
    DllCall("oleaut32\SafeArrayUnaccessData", "ptr", ComObjValue(cv._))
}

AHK: Передача массива как типа данных VARIANT

null@example.com (serzh82saratov) — Tue, 07 Feb 2017 00:08:20 +0000

Пытаюсь методу сом объекта передать массив в типе данных VARIANT:

arr := ComObjArray(VT_VARIANT := 12, 1)
arr[0] := 62
ComObj.Method(arr)

Который ему требуется, судя по коду VBA.

Dim gpCode(0) As Integer 
gpCode(0) = 62
Dim groupCode As Variant
groupCode = gpCode
' указываю groupCode как передаваемый параметр

Может вообще не туда копаю?