1

これまでのところ、C# .NET 4 でコンポーネントを作成し、System.EnterpriseServices を使用して COM で表示できるようにしました。ビジネス メソッドを C# で開発したいのですが、従来の ASP (vbscript) からアクセスする必要があります。

これまでのところ、すべて正常に動作します (関数のオーバーロードを除く:))。ここで、戻りコードでより多くの経験を得るためにテストクラスを作成しました。

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.EnterpriseServices;
using System.Management;

namespace iController
{
  /// <summary>
  /// The tools class provides additional functions for general use in out of context to other classes of the iController.
  /// </summary>
  public class tools :ServicedComponent
  {

    #region publich methods

    public bool TestBoolean()
    {
      return true;
    }

    public string TestString()
    {
      return "this is a string";
    }

    public int TestInteger()
    {
      return 32;
    }

    public double TestDouble()
    {
      return 32.32;
    }

    public float TestFloat()
    {
      float ret = 2 ^ 16;
      return ret;
    }

    public string[] TestArray()
    {
      string[] ret = {"0","1"};
      return ret;
    }

    public int[][] TestJaggedArray()
    {
      int[][] jaggedArray = new int[3][];
      jaggedArray[0] = new int[] { 1, 3, 5, 7, 9 };
      jaggedArray[1] = new int[] { 0, 2, 4, 6 };
      jaggedArray[2] = new int[] { 11, 22 };
      return jaggedArray;
    }

    public Dictionary<string, string> TestDictionary()
    {
      Dictionary<string, string> ret = new Dictionary<string,string>();
      ret.Add("test1","val1");
      ret.Add("test2","val2");
      return ret;
    }

    #endregion

  }
}

次に、porpuse をテストするために cscript.exe で実行する単純な vbscript ファイルを作成しました。

Dim oTools : Set oTools = CreateObject("iController.tools")

WScript.StdOut.WriteLine TypeName(oTools.TestBoolean()) & " - " & oTools.TestBoolean()
WScript.StdOut.WriteLine TypeName(oTools.TestString()) & " - " & oTools.TestString()
WScript.StdOut.WriteLine TypeName(oTools.TestInteger()) & " - " & oTools.TestInteger()
WScript.StdOut.WriteLine TypeName(oTools.TestDouble()) & " - " & oTools.TestDouble()
WScript.StdOut.WriteLine TypeName(oTools.TestFloat()) & " - " & oTools.TestFloat()

test = oTools.TestArray()
WScript.StdOut.WriteLine TypeName(test)
WScript.StdOut.WriteLine UBound(test)

For i = 0 To UBound(test)
  WScript.StdOut.WriteLine test(i)
Next

For Each item IN test
  WScript.StdOut.WriteLine item
Next

test = oTools.TestJaggedArray()
WScript.StdOut.WriteLine TypeName(test)
For Each item IN test
  WScript.StdOut.WriteLine test & " - " & test.Item(item)
Next

test = oTools.TestDictionary()
WScript.StdOut.WriteLine TypeName(test)
For Each item IN test
  WScript.StdOut.WriteLine test & " - " & test.Item(item)
Next

うまくいくもの：

string, int, foat, double

配列、jaggedarray、または辞書に関しては、型の不一致が発生します。VarType は辞書の 13 オブジェクトです。たとえば、この dict は Scripting.Dictionary とは異なるようです。

私は一日中 codeproject.com と stackoverflow をチェックしましたが、誰かが IDispatch インターフェイスを作成する必要があると述べた stackoverflow のいくつかのスレッドを除いて、ヒントは見つかりませんでした。

誰かが同じ問題を抱えていて、私を助けたり、私が続けることができるヒントを教えてくれますか?

4

2 に答える 2

1

  1. レッスン: .NET に MarshalAs を処理させます :)

    public object[] Read()    {      var retVal = new object[] {1,2,3};      return retVal;    }

これは、vbscript からアクセスできる配列です。手がかりは、オブジェクト[]でなければならないということです。

今、私はギザギザの配列と辞書の解決策に取り組んでいます...

于 2011-01-05T15:34:14.320 に答える
0

COM への配列の受け渡し: すべてのマネージド配列型は、マネージド コードからアンマネージド コードに渡すことができます。マネージド型とそれに適用される属性に応じて、配列はセーフ配列または C スタイルの配列としてアクセスできます。

この記事をご覧ください: http://msdn.microsoft.com/en-us/library/z6cfh6e6(v=vs.80).aspx

于 2011-01-04T13:05:15.980 に答える