如何将参数从传统ASP传递到com组件

Question

我正在开发一个需要许多参数的asp.net组件。它将从传统的ASP中调用。我当然可以传递10-20个参数，但是我希望能够更加整洁。

我很自信我可以传入一个数组，但理想情况下我希望能够传入一个对象。

这可能吗？

我决定做一个小测试。 经典ASP：

Dim objDictionary 
Set objDictionary = CreateObject("Scripting.Dictionary") 

objDictionary.Add "startDate", startDate 
objDictionary.Add "endDate", endDate 

MyComponent.checkObj(objDictionary) 

在我的ASP.net组件我有：

public string checkObj(object config) 
    { 
     return "StartDate is " + config.startDate; 
    } 

编辑：

我进步了这个问题，使我改变了这一点：我创建了一个 抽象类，现在它正在检查和完善。在运行时，我现在正在和错误 - Microsoft VBScript运行时错误：无效的过程调用或参数：'checkObj'。

是否可以将集合传递给com程序集？

也许问题是com组件正在接收Scripting.Dictionary类型的对象，而不是我创建的抽象类，但是.net中不存在这样的事情？

Answer 1

你可以尝试在你的ASP页面像System.Collections.ArrayList或System.Collections.Hashtable，而不是该字典使用.NET对象...

<%@ LANGUAGE="VBSCRIPT" %> 
<% 
dim netObj  
set netObj = server.createobject("System.Collections.Hashtable") 
' or: 
'set netObj = server.createobject("System.Collections.ArrayList") 
%> 

，应该让事情在你的更容易。网络组件

Answer 2

我想做类似的事情，因此为.NET DataRow创建了一个包装类。如果需要，可以使用HasTable/Dictionairy /其他自定义实现作为后备存储。

我暴露我的“属性”我的包装对象上使用索引属性，所以在ASP经典与属性的工作应该是这样的：

Dim lngCustomerId 
lngCustomerID = CLng(objectWrapper("CustomerId")) 

我使用COM注册.NET暴露我的包装部件。我的包装从DynamicObject继承和一个COM可视界面公开以下：

[ComVisible(true)] 
[Guid("XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX")] 
[InterfaceType(ComInterfaceType.InterfaceIsDual)] 
public interface IDynamicModel 
{ 
    dynamic this[string propertyName] { get; set; } 
    bool TryGetMember(GetMemberBinder binder, out object result); 
    bool TrySetMember(SetMemberBinder binder, object value); 
} 

我认为TryGetMember和TrySetMember不会为你的需求是必要的。

我的包装类的实现看起来是这样的：

[ComVisible(true)] 
[Guid("YYYYYYYY-YYYY-YYYY-YYYY-YYYYYYYYYYYY")] 
[ProgId("COMLIB.DynamicModel")] 
[ClassInterface(ClassInterfaceType.None)] 
public sealed class DynamicModel : DynamicObject, IDynamicModel 
{ 
    #region indexer 

    public dynamic this[string propertyName] 
    { 
     get 
     { 
      dynamic propertyValue; 
      if (TryGetMember(propertyName, out propertyValue) != true) 
      { 
       propertyValue = null; 
      } 
      return propertyValue; 
     } 
     set 
     { 
      if (TrySetMember(propertyName, value) != true) 
      { 
       throw new ArgumentException("Cannot set property value"); 
      } 
     } 
    } 

    #endregion indexer 


    #region Fields 

    private DataRow dataRow; 

    #endregion Fields 


    #region Properties 

    public dynamic GetAsDynamic { get { return this; } } 

    #endregion Properties 


    #region CTOR Methods 

    public DynamicModel() 
     : base() 
    { 
     DataTable dataTable = new DataTable(); 
     this.dataRow = dataTable.NewRow(); 
    } 

    public DynamicModel(DataRow dataRow) 
     : base() 
    { 
     this.dataRow = dataRow; 
    } 

    #endregion CTOR Methods 


    #region Dynamic Object Member Overrides 

    public override bool TryGetMember(GetMemberBinder binder, out object columnValue) 
    { 
     bool result = false; 
     columnValue = null; 
     result = TryGetMember(binder.Name, out columnValue); 
     return result; 
    } 

    public override bool TrySetMember(SetMemberBinder binder, object value) 
    { 
     bool result = false; 
     result = TrySetMember(binder.Name, value); 
     return result; 
    } 

    #endregion Dynamic Object Member Overrides 


    #region Operations 

    public bool TryGetMember(string columnName, out dynamic columnValue) 
    { 
     bool result = false; 
     columnValue = null; 
     if (dataRow != null && dataRow.Table.Columns.Contains(columnName)) 
     { 
      columnValue = dataRow[columnName]; 
      result = true; 
     } 
     return result; 
    } 

    public bool TrySetMember(string columnName, dynamic columnValue) 
    { 
     bool result = false; 
     if (dataRow != null && dataRow.Table.Columns.Contains(columnName) == true) 
     { 
      dataRow[columnName] = columnValue; 
      result = true; 
     } 
     else 
     { 
      Type type = columnValue.GetType(); 
      DataColumn dataColumn = new DataColumn(columnName, type); 
      result = TrySetDataColumn(dataColumn, type, columnValue); 
     } 
     return result; 
    } 

    private bool TrySetDataColumn(DataColumn dataColumn, Type type, object value) 
    { 
     bool result = false; 
     dataRow.Table.Columns.Add(dataColumn); 
     result = TrySetMember(dataColumn.ColumnName, value); 
     return result; 
    } 

    #endregion Operations 
} 

我希望这有助于。