Question

我正在尝试拥有一个包含数组的类，并在某些COM调用中使用该类（我使用C＃）。

所以，我的课程是这样的：

DEFINE CLASS Logistics_Columns AS Session OLEPUBLIC
 DIMENSION COLUMNS_ARRAY[1]

 DIMENSION COLUMNS_ARRAY_COMATTRIB(4)
 COLUMNS_ARRAY_COMATTRIB(1) = 0 
 COLUMNS_ARRAY_COMATTRIB(2) = "COLUMNS_ARRAY"
 COLUMNS_ARRAY_COMATTRIB(3) = "COLUMNS_ARRAY"
 COLUMNS_ARRAY_COMATTRIB(4) = "Array"
ENDDEFINE 

DEFINE CLASS Logistics_Column AS Session OLEPUBLIC
 COLUMN_NAME = .NULL.
 DIMENSION COLUMN_NAME_COMATTRIB(4)
 COLUMN_NAME_COMATTRIB(1) = 0 
 COLUMN_NAME_COMATTRIB(2) = "COLUMN_NAME"
 COLUMN_NAME_COMATTRIB(3) = "COLUMN_NAME"
 COLUMN_NAME_COMATTRIB(4) = "Character"

 COLUMN_TYPE = .NULL.
 DIMENSION COLUMN_TYPE_COMATTRIB(4)
 COLUMN_TYPE_COMATTRIB(1) = 0 
 COLUMN_TYPE_COMATTRIB(2) = "COLUMN_TYPE"
 COLUMN_TYPE_COMATTRIB(3) = "COLUMN_TYPE"
 COLUMN_TYPE_COMATTRIB(4) = "Character"

 COLUMN_WIDTH = .NULL.
 DIMENSION COLUMN_WIDTH_COMATTRIB(4)
 COLUMN_WIDTH_COMATTRIB(1) = 0 
 COLUMN_WIDTH_COMATTRIB(2) = "COLUMN_WIDTH"
 COLUMN_WIDTH_COMATTRIB(3) = "COLUMN_WIDTH"
 COLUMN_WIDTH_COMATTRIB(4) = "Integer" 

 COLUMN_PRECISION = .NULL.
 DIMENSION COLUMN_PRECISION_COMATTRIB(4)
 COLUMN_PRECISION_COMATTRIB(1) = 0 
 COLUMN_PRECISION_COMATTRIB(2) = "COLUMN_PRECISION"
 COLUMN_PRECISION_COMATTRIB(3) = "COLUMN_PRECISION"
 COLUMN_PRECISION_COMATTRIB(4) = "Integer" 
ENDDEFINE

在C＃中，对于Logistics_Column s 类，COLUMNS_ARRAY不会被视为数组。

然而，或者物流_Column类的所有4个属性都被正确地视为字符串或整数。

我猜“数组”（COLUMNS_ARRAY_COMATTRIB(4) = "Array"）不是指示数组的正确文字值。
但是，那是什么？

Answer 1

按计划我创建了一个自定义集合包装器。

它基本上是Session OLEPUBLIC类型的foxpro类，它存储Collection并包装其方法。

关于性能，我认为它会增加一些明显的开销，但这是我最终可能带来的最佳方法。

pass数组有来自foxpro的对象属性（到c＃）

1 个答案: