fix #1331 параметры ком-объектов

Author: EvilBeaver

src/ScriptEngine/Machine/Contexts/UnmanagedCOMWrapperContext.cs

@@ -193,8 +193,10 @@ public override void CallAsProcedure(int methodNumber, IValue[] arguments)
                 try
                 {
                     var argsData = MarshalArguments(arguments);
+                    var initialValues = new object[argsData.values.Length]; 
+                    Array.Copy(argsData.values, initialValues, initialValues.Length);
                     DispatchUtility.Invoke(Instance, dispId, argsData.values, argsData.flags);
-                    RemapOutputParams(arguments, argsData.values, argsData.flags[0]);
+                    RemapOutputParams(arguments, argsData.values, argsData.flags[0], initialValues);
                 }
                 catch (System.Reflection.TargetInvocationException e)
                 {
@@ -221,8 +223,10 @@ public override void CallAsFunction(int methodNumber, IValue[] arguments, out IV
                 try
                 {
                     var argsData = MarshalArguments(arguments);
+                    var initialValues = new object[argsData.values.Length]; 
+                    Array.Copy(argsData.values, initialValues, initialValues.Length);
                     var result = DispatchUtility.Invoke(Instance, dispId, argsData.values, argsData.flags);
-                    RemapOutputParams(arguments, argsData.values, argsData.flags[0]);
+                    RemapOutputParams(arguments, argsData.values, argsData.flags[0], initialValues);
                     retValue = CreateIValue(result);
                 }
                 catch (System.Reflection.TargetInvocationException e)
@@ -236,11 +240,12 @@ public override void CallAsFunction(int methodNumber, IValue[] arguments, out IV
             }
         }
 
-        private void RemapOutputParams(IValue[] arguments, object[] values, ParameterModifier flags)
+        private void RemapOutputParams(IValue[] arguments, object[] values, ParameterModifier flags,
+            object[] initialValues)
         {
             for (int i = 0; i < arguments.Length; i++)
             {
-                if (flags[i])
+                if (flags[i] && !initialValues[i].Equals(values[i]))
                 {
                     var variable = (IVariable)arguments[i];
                     variable.Value = CreateIValue(values[i]);

tests/managed-com.os

@@ -14,6 +14,7 @@
 	Если (Найти(СИ.ВерсияОС, "Windows") > 0) И Не (ПеременныеСреды().Получить("APPVEYOR") = "True") Тогда
 		ВсеТесты.Добавить("ТестДолжен_ПроверитьУстановкуЧисловыхСвойств");
 		ВсеТесты.Добавить("ТестДолжен_ПроверитьВызовСОпциональнымиПараметрами");
+		ВсеТесты.Добавить("ПроверитьВыходныеПараметрыComОбъекта");
 	КонецЕсли;
 
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСозданиеClrОбъекта");
@@ -24,7 +25,7 @@
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьРаботуGetTypeДляЭлементовСписка");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьРаботуGetTypeДляCLRКоллекции");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьРаботуТипаНеИзЯдра");
-
+	
 	Возврат ВсеТесты;
 КонецФункции
 
@@ -176,3 +177,16 @@
 	ПроверитьРаботуGetTypeДляОдногоТипа(Ури, "System", "Uri");
 
 КонецПроцедуры
+
+Процедура ПроверитьВыходныеПараметрыComОбъекта() Экспорт
+    // Проверяем, что выходной параметр установился, а также то, что попытки записи во входной параметр не было.
+    
+    Рег = Новый ФиксированнаяСтруктура("HKEY_LOCAL_MACHINE", "2147483650"); 
+    ИмяФайлаКласса = "";
+    РеестрОС = ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv");
+    Рез=РеестрОС.GetStringValue(Рег.HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion","DevicePath", ИмяФайлаКласса);
+    
+    юТест.ПроверитьРавенство(0, Рез);
+    юТест.ПроверитьНеравенство("", ИмяФайлаКласса);
+    
+КонецПроцедуры