Question

我试图从testcomplete代码中调用c＃库函数。

我根据Helen下面的答案制作的c＃库的结构如下:(库的构建目标是3.5，带有通用强名称密钥，而regasm＆＃39; d代表32/64位）

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;

namespace TestCompleteTest
{
    [Guid("122FD1AB-839F-4A3A-8A08-973A3836216B")]
    [ClassInterface(ClassInterfaceType.None)]
    [ComVisible(true)]
    [ProgId("ArrayTest")]
    public class ArrayTest: IArrayTest
    {
        public void ArrayFunction(int[] arrayParameter)
        {
            using (StreamWriter writer = File.AppendText("C:\arraylog.txt"))
            {
                writer.Write("\r\nLog Entry : ");
                writer.WriteLine("{0} {1}", DateTime.Now.ToLongTimeString(),
                    DateTime.Now.ToLongDateString());
                writer.WriteLine("  :");
                writer.WriteLine("  :{0}", arrayParameter.Count());
                writer.WriteLine("-------------------------------");
            }
        }
    }

    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
    [Guid("00655BDE-A768-4EC0-9C9A-A903976195F2")]
    [ComVisible(true)]
    public interface IArrayTest
    {
        void ArrayFunction(int[] arrayParameter);
    }
}

我试图在TestComplete 10.40桌面客户端中调用此函数，如下所示：

procedure ArrayTest;
var arrayTest, arrType, arrayOfIntegers;
begin    
  arrayTest := Sys.OleObject('ArrayTest');  
  //Create array type
  arrType := dotNET.System.Type.GetType('System.Int32');
  //Create array
  arrayOfIntegers := dotNET.System.Array.CreateInstance(arrType, 5);
  //Fill array
  arrayOfIntegers.SetValue(1, 0);
  arrayOfIntegers.SetValue(2, 0);
  arrayOfIntegers.SetValue(3, 0);
  arrayOfIntegers.SetValue(4, 0);
  arrayOfIntegers.SetValue(5, 0);

  arrayTest.ArrayFunction(arrayOfIntegers);
end;

这仍然会导致消息出现异常＆＃34;参数不正确＆＃34;在testcomplete函数中的以下行：的 arrayTest.ArrayFunction（arrayOfIntegers）;

非常感谢任何进一步的帮助

Answer 1

TestComplete DelphiScript是一种基于ActiveScript的语言（如Windows Script Host的VBScript和JScript），并使用Variant数据类型。虽然数字，布尔值和字符串等简单值正确地编组到.NET中，但需要使用dotNET包装器在.NET端创建“复杂”值（如数组和枚举）：

...
var arrayOfIntegers, arrType, enumType, enumParameter;
begin
  // Create a .NET array, e.g. {5}
  arrType := dotNET.System.Type.GetType('System.Int32');
  arrayOfIntegers := dotNET.System.Array.CreateInstance(arrType, 1);
  arrayOfIntegers.SetValue(5, 0);

  // Create an enumeration value, e.g. DayOfWeek.Tuesday
  enumType := dotNET.System.Type.GetType('System.DayOfWeek');
  enumParameter := dotNET.System.Enum.Parse(enumType, 'Tuesday');

  functionResult := CSharpLibrary.CSharpFunction(arrayOfIntegers, enumParameter);
end;

UPD：没有必要让.NET程序集COM可见，以便在TestComplete中使用它们。您需要将程序集添加到项目属性＆gt;而CLR桥。然后你可以像这样调用函数：

arrayTest := dotNET.TestCompleteTest.ArrayTest.zctor();
arrayTest.ArrayFunction(arrayOfIntegers);

或ArrayFunction是静态方法：

dotNET.TestCompleteTest.ArrayTest.ArrayFunction(arrayOfIntegers);

文档中有更多详细信息：Calling Functions From .NET Assemblies。

此外，在SetValue方法中，第二个参数是元素索引，因此它应该是：

arrayOfIntegers.SetValue(1, 0); // value, index
arrayOfIntegers.SetValue(2, 1);
arrayOfIntegers.SetValue(3, 2);
arrayOfIntegers.SetValue(4, 3);
arrayOfIntegers.SetValue(5, 4);

使用int []参数从testcomplete调用c＃dll函数

1 个答案: