如何在DELPHI ACTIVE的OCX控件里写个响应事件来响应ASP ，就是希望在ASP里得到OCX里的一个变量值！(100分)

blueearth · 2003-02-13

如何在DELPHI ACTIVE的OCX控件里写个响应事件来响应ASP或者ASP ，
就是希望在ASP里得到OCX里的一个变量值，用JAVASCRIPT得到也可以！
望各位大侠指导

yxz123 · 2003-02-13

在TYPT LIBRARY中加入一个Read|Write或Read Only的属性，定义好返回类型就可以了，然后单击刷新
并写入相应的代码。在ＡＳＰ中直接调用就可以了。

blueearth · 2003-02-13

楼上的兄弟，刷新后代码写在哪里？TEXT里？
还有在ASP里如何调用？能写详细点吗？谢谢

FreeBit · 2003-02-13

你可以这么做
1、在ACTIVE Form里的TYPT LIBRARY增加一个参数Str_djh
2、在页面文件里写一个JavaScript函数
<script language="JavaScript">
function send(){
var djh;
djh=document.obj1.Str_djh;
}

blueearth · 2003-02-13

FreeBit,你好
我怎么触发send(0这个函数呢？因为在OCX里我只有点击确定后才能得到Str_djh这个
参数值？
如何在我点击确定的时候响应JAVASCRIPT的send()函数？

FreeBit · 2003-02-13

你可以根据自己的需要呀，比如在按钮单击时，触发这个函数
上面发的是我原来的代码，就是在点击发送按钮(在页面中的
按钮)是得到ACTIVE Form中选择的登记号。

FreeBit · 2003-02-13

下面就是页面按钮调用的代码。这都是html和JAVASCRIPT的代码
<INPUT id=btn_bl_1 name=btn_bl type=button value=" 发送 " onclick=send();>

dcsdcs · 2003-02-13

你看我怎样给password加密：
htm里面有这个
<input type="hidden" name="host_n" value="11">

<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,117
form1.host_n.value=str
</SCRIPT>
pasword输入是在ocx里面，随表单提交到asp了！

blueearth · 2003-02-13

FreeBit,
可是我的单击是在控件里的，就是我单击后在控件里得到一个变量，那我现在要做的
就是如何响应页面使页面得到控件里的这个变量？
你刚才的是点击页面的发送阿，如果是在控件呢？

FreeBit · 2003-02-13

据我所知ACTIVE Form不能主动发送变量到页面中，
它可以定义函数在页面中调用，也可以定义变量供
页面文件使用运算结果。
你的意思是不是，在ACTIVE Form中点击某个按钮
直接打开ie中的某一页？如果是这样的话，你还
可以尝试ACTIVE Form中
ShellExecute(0,'Open','IEXPLORE.EXE',<Url地址>,nil,SW_MAXIMIZE);

blueearth · 2003-02-13

FreeBit,
在VC里是可以响应页面的，在DELPHI也应该可以吧？
如
<SCRIPT LANGUAGE=javascript FOR=map EVENT=create(PARA)>
create(PARA)
</SCRIPT>
然后在页面调用就可以了
我现在就是在控件里点击后就把变量显示到页面上

blueearth · 2003-02-13

dcsdcs, 你好
譬如我的USER &amp
PASWORD都是在控件里输入的，确定后我能把这些显示在页面上吗？

FreeBit · 2003-02-13

响应页面当然没有问题，但我理解的响应是，在页面文件
里触发某个事件如单击调用ACTIVE Form中的函数。
ACTIVE Form主动发送变量到页面中，我个人认为是不太
可能的。不过你可以用一些变通的方法解决。比如，可以
用JAVASCRIPT写一个函数不断执行，直到得到你所需要的
值为止。别的我就没有什么好的办法了。

blueearth · 2003-02-13

FreeBit,十分感谢你耐心回答
我现在如果能做到
譬如我的USER &amp
PASWORD都是在控件里输入的，
在控件里点击确定后我能把这些显示在页面上就可以了，不论用什么方法写JAVASCRIPT
什么的都可以

dcsdcs · 2003-02-13

当然可以，这与delphi和vc没有一样，都是ocx

blueearth · 2003-02-13

dcsdcs,你好
你能详细说一下吗？
就是我在控件单击后如何触发页面得到USER &amp
password?
delphi 里控件事件如何写？JAVASCRIPT里的函数如何写？
非常感谢

kenmaj · 2003-02-13

在控件中做两个属性，按钮方在控件的外面，点击时读这两个属性不就可以了吗！

yunye · 2003-02-13

kenmaj说的没错，
1、定义ocx里的一个事件
2、定义一个JavaScript的函数由此事件触发
3、此JavaScript函数访问ocx中的某个属性

rgxrose · 2003-02-13

你在activefrom 的view菜单中的TYPT LIBRARY中加一个Read|Write,产成二个过程，然后
给过程参数类型。然后refresh implemention，这时在就自动在程序中添了过程和数，你就
可写代码，不过先定义一个变量。uid是在private 中定义的变量
function activeform.get_param: OleVariant;
begin
result:=uid
end;

procedure activeform.Set_param(Value: OleVariant);
begin
uid:=value;
end;
这样能通就可以把了。

”params name=你定义的过程名 values=你所传的值“ 这是在ocx中要写的

blueearth · 2003-02-13

yunye,
3、此JavaScript函数访问ocx中的某个属性
现在的问题就是如何在点击控件的[red]确定[/red]按钮来触发这个JAVASCRIPT呢？
我现在所以操作都是在OCX控件里的，在控件里操作如何触发页面或JAVASCRIPT？

如何在DELPHI ACTIVE的OCX控件里写个响应事件来响应ASP ，就是希望在ASP里得到OCX里的一个变量值！(100分)

blueearth

Unregistered / Unconfirmed

yxz123

Unregistered / Unconfirmed

blueearth

Unregistered / Unconfirmed

FreeBit

Unregistered / Unconfirmed

blueearth

Unregistered / Unconfirmed

FreeBit

Unregistered / Unconfirmed

FreeBit

Unregistered / Unconfirmed

dcsdcs

Unregistered / Unconfirmed

blueearth

Unregistered / Unconfirmed

FreeBit

Unregistered / Unconfirmed

blueearth

Unregistered / Unconfirmed

blueearth

Unregistered / Unconfirmed

FreeBit

Unregistered / Unconfirmed

blueearth

Unregistered / Unconfirmed

dcsdcs

Unregistered / Unconfirmed

blueearth

Unregistered / Unconfirmed

kenmaj

Unregistered / Unconfirmed

yunye

Unregistered / Unconfirmed

rgxrose

Unregistered / Unconfirmed

blueearth

Unregistered / Unconfirmed

Similar threads