rtti invoke - variant parameter with array inside

Author: mrcsms

Source/WrapDelphi.pas

@@ -1040,13 +1040,17 @@ function SimplePythonToValue(PyValue: PPyObject; TypeInfo: PTypeInfo;
  Value := V.Cast(TypeInfo);
  Result := True;
  end;
- tkInteger, tkFloat, tkInt64,
- tkVariant:
+ tkInteger, tkFloat, tkInt64:
  begin
  V := TValue.FromVariant(GetPythonEngine.PyObjectAsVariant(PyValue));
  Value := V.Cast(TypeInfo);
  Result := True;
  end;
+ tkVariant:
+ begin
+ Value := TValue.From<Variant>(GetPythonEngine.PyObjectAsVariant(PyValue));
+ Result := True;
+ end;
  tkEnumeration:
  begin
  S := GetPythonEngine.PyObjectAsString(PyValue);

Tests/WrapDelphiTest.pas

@@ -57,6 +57,7 @@ TTestRttiAccess = class
  property Fruits: TFruits read FFruits write FFruits;
  function SetStringField(var Value: Integer): string; overload;
  function SetStringField(const Value: string): string; overload;
+ procedure PassVariantArray(const Value: Variant);
  end;
 
  TTestInterfaceImpl = class(TInterfacedObject, ITestInterface)
@@ -118,7 +119,9 @@ TTestWrapDelphi = class(TObject)
  [Test]
  procedure TestMethodWithVarAndOverload;
  [Test]
- procedure FreeReturnedObject;
+ procedure TestFreeReturnedObject;
+ [Test]
+ procedure TestPassVariantArray;
  end;
 
 implementation
@@ -142,7 +145,7 @@ procedure TTestRttiAccess.BuyFruits(AFruits: TFruits);
 
 { TTestVarPyth }
 
-procedure TTestWrapDelphi.FreeReturnedObject;
+procedure TTestWrapDelphi.TestFreeReturnedObject;
 begin
  PythonEngine.ExecString(
  'from delphi import rtti_var' + sLineBreak +
@@ -333,6 +336,15 @@ procedure TTestWrapDelphi.TestObjectField;
  Assert.IsTrue(rtti_var.ObjectField = None);
 end;
 
+procedure TTestWrapDelphi.TestPassVariantArray;
+begin
+ PythonEngine.ExecString(
+ 'from delphi import rtti_var' + sLineBreak +
+ 'rtti_var.PassVariantArray([0, 1, 2, 3, 4, 5, 6, 7, 8, 9])'
+ );
+ Assert.Pass;
+end;
+
 procedure TTestWrapDelphi.TestRecord;
 begin
  Rtti_rec.StringField := 'abcd';
@@ -452,6 +464,11 @@ function TTestRttiAccess.GetStaticArray: TStaticArray;
  Result[I] := I;
 end;
 
+procedure TTestRttiAccess.PassVariantArray(const Value: Variant);
+begin
+ Assert.IsTrue(VarIsArray(Value) and (VarArrayHighBound(Value, 1) = 9));
+end;
+
 procedure TTestRttiAccess.SellFruits(const AFruits: TFruitDynArray);
 var
  Fruit: TFruit;