Fixed a bug of 0 arguments on variant function call.

hprose · Jun 7, 2015 · ac2657c · ac2657c
1 parent 85fa7ae
commit ac2657c
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/Source/HproseCommon.pas b/Source/HproseCommon.pas
@@ -3130,7 +3130,16 @@ function TVarObjectType.DoFunction(var Dest: TVarData; const V: TVarData;
 var
   Obj: TObject;
   Intf: IInvokeableVarObject;
-begin
+  Args: TVarDataArray;
+begin
+  if (Length(Arguments) = 1) and
+     (Arguments[0].VType = varError) and
+     (Arguments[0].VError = -2147352572) // Parameter not found.
+  then begin
+    SetLength(Args, 0);
+    Result := DoFunction(Dest, V, Name, Args);
+    Exit;
+  end;
   Obj := GetInstance(V);
   Result := True;
   if AnsiSameText(Name, 'Free') and (Length(Arguments) = 0) then