怎样向ActiveForm传递【对象】参数? (100分)

清

清嘴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #21

[xx(]

 

C

conanbos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-28

• #22

你把地方写下来，我才做的项目，有现在成的例子

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-28

• #23

<OBJECT name=obj1
classid="clsid:AECC5C95-70F7-4ACE-AD2C-B6259BA95149"
codebase="/sypPr.cab#version=1,0,94,5"
style="VISIBILITY: hidden"
width=136
height=53
align=center
hspace=0
vspace=0
>
</OBJECT>
<SCRIPT LANGUAGE="VBScript">

obj1.host_n str,83
form1.host_n.value=str
</SCRIPT></html>
就是这样传递的

 

F

FreeBit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-28

• #24

这样也可以
<OBJECT
classid="clsid:C93CD944-224C-42FD-A4AD-34B66F4C60F8"
codebase="../ocx/AF_OpList_P.ocx#version=1,0,22,0"
width=758
height=399
align=center
hspace=0
vspace=0
id="FM1"
VIEWASTEXT>
<param name="Str_conn" value="<%=Str_conn%>">
<param name="Str_UserId" value="<%=session("userid")%>">
<param name="Str_UserName" value="<%=session("username")%>">
</object>

 

F

FreeBit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-28

• #25

哦，我忘记说明了，还有几点：
1、在type library中增加相应的参数，上面的例子是Str_conn...
2、增加过之后，delphi会自动的增加两个函数，分别用于读写该参数
3、你需要做的是填写这两个函数的代码。FStr_conn是私有变量
function Taf_xylb.Get_Str_conn: OleVariant;
begin
Result:=FStr_conn;
end;

procedure Taf_xylb.Set_Str_conn(Value: OleVariant);
begin
FStr_conn:=value;
end;

 

清

清嘴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-28

• #26

to conanbos
zjhnwlh@163.net

 

清

清嘴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-29

• #27

传过去的RecordSet对象怎样转换到Delphi中
我用IDipatch(Value) as _RecordSet不能通过

 

清

清嘴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-12

• #28

多人接受答案了。