请教如何使用第二层属性？(100分)

N

nkiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #1

我在写一个 ASP 用的控件，我可以用
Set MyObj = Server.CreateObject("MyPrj.MyClass") 创建组件
然后就可以用 MyObj.Name = "MyName" 来设置它的属性，当然，
这用 D6 非常容易就实现了，但是，我现在想使用例如 MyObj.SubObj.Name 这样
的属性，怎样实现呢？用什么方法实现呢？请高手赐教，尽量提供源码供学习，
或者做成像 Scripting.FileSystemObject 那样的设置方法？

 

O

OopsWare

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-16

• #2

TSubObj = class
public
Name: string;
end;

TMyObj = class
public
SubObj: TSubObj;
end;

编译得到的 COM 注册,就可以在 ASP 中已 MyObj.SubObj.Name 形式引用了。

 

N

nkiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-16

• #3

最近忽然发现 ADODB 有这样的例子，但搞了半天还是没弄明白，烦死人了。
例子（ASP）：
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Errors.Clear
以上就是我要达到的目的。
ADODB 的 文件在 C:/Program Files/Common Files/System/ADO/MSADO15.DLL
哪位高手能帮忙解决问题，必有高分奉送。
要全部源码，最简单的就可以，尽量使用 D6 自动生成的代码。
也就是先 New 一个 ActiveX Library，再 New 一个 Active Server Object，
在这个框架之下继续增加其它的代码。

 

K

kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-16

• #4

在Delphi中，中间那一个属于对象型属性，你就创建一个对象型属性就行了。第二层的就是这个对象的属性或方法。

 

N

nkiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-16

• #5

Delphi 中实现第二层甚至第N层属性都是非常容易的，但在 ActiveX 的 TypeLibrary 中
可就是两回事了，仔细研究一下 ADODB 的 TypeLibrary 然后再说出你的意见吧。不过还
是很感谢你。

 

W

wfzha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #6

我来了，可惜最近时间不多，要忙别的了，有空再研究!

 

N

nkiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #7

此贴已结束，相关讨论转移至
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1104064