ValeriuЧтоб конкретно смотреть, в Cache 2015 можно включить API так:Спасибо, помню:
13620163 , клиентскую часть только забыли приложить:
13620745 . Без неё ведь никак.servit
Valeriu ,
Покажите пример с возвратом сразу двух значений.Я спросил это потому, что на VBS это не работает, хотя согласно документации - должно.
ActCOM.pdf
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Simple Do Call
When you write the Do entry point for use with MSM-Activate/COM, a function that
does not accept arrays or large strings can be written like a normal M function. If you
change the value of parameters that are passed by reference to the M code, the new
values are passed back to the client. For example, the following function takes one
parameter (passed by reference), increases the parameter by one, and returns a string
value.
MSM Code
TEST(VAR) ; Example entry point, simple variable
S VAR=VAR+1
Q "The result is "_VAR
Visual Basic Code [code=vbnet]
Dim M as MCommand
Dim scratch as String, param as Integer
Set M=GetObject("C:\EXAMPLE.MCO")
M.Login("Password")
param=10
scratch=M.Do("^TEST",param)
In this example, scratch contains “The result is 11”,
and param contains 11 . By
default, Visual Basic sends all parameters to ActiveX controls or COM objects by
reference, if possible.
To avoid sending param by reference, enclose it in parentheses. In Visual Basic, this
ensures that the parameter is treated as an expression:
1.
scratch=M.Do("^TEST",(param))
У меня param после вызова по прежнему равен 10; пробовал на 2010.1, код см. ниже.
________________________________________________
Alexey MaslovИзменился лишь формат ошибки в $zerror, но сама ошибка возникала и в более старых версиях.Действительно, при вызове функции, у которой забыли вернуть значение,
раньше (стр. 105)Цитата из документации v5.0.178.3.2 Functions
8.3.2.4 Return Value
If you specify a QUIT command without an expression, Caché issues an error.возникала ошибка
теперь
<COMMAND>... *Function must return a value at ...
Тем не менее на версии 2010.1 следующий пример отрабатывает без ошибок:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Set m = CreateObject("m.Command")
m.Server = "127.0.0.1"
m.Port = 1666
m.Login
m.Xecute ("ZN ""USER""")
'MsgBox m.Xecute("W $ZNSpace,!,$ZV") & vbCrLf & m.Version & vbCrLf & m.ServVersion
'm.ExplicitCallType=1
param=10
m.Do "Test^testh", param
MsgBox "param = " & param
'scratch = m.Do("Test^testh", param)
'MsgBox "param = " & param & vbCrLf & "scratch = " & scratch
^testh
1.
2.
3.
4.
5.
6.
7.
8.
9.
; код для проверки текста ошибки
s param=10
s r=$$Test(.param)
w r,!,param,!
q
Test(VAR)
s VAR=VAR+1
q
;q "The result is "_VAR
Связано ли изменение в 2015.1 с этим или нет более точно могут ответить только разработчики.
