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

  • 主题发起人 主题发起人 blueearth
  • 开始时间 开始时间
B

blueearth

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在DELPHI ACTIVE的OCX控件里写个响应事件来响应ASP或者ASP ，
就是希望在ASP里得到OCX里的一个变量值，用JAVASCRIPT得到也可以！
望各位大侠指导
 
在TYPT LIBRARY中加入一个Read|Write或Read Only的属性，定义好返回类型就可以了，然后单击刷新
并写入相应的代码。在ＡＳＰ中直接调用就可以了。
 
楼上的兄弟，刷新后代码写在哪里？TEXT里？
还有在ASP里如何调用？能写详细点吗？谢谢
 
你可以这么做
1、在ACTIVE Form里的TYPT LIBRARY增加一个参数Str_djh
2、在页面文件里写一个JavaScript函数
<script language="JavaScript">
function send(){
var djh;
djh=document.obj1.Str_djh;
}
 
FreeBit,你好
我怎么触发send(0这个函数呢？因为在OCX里我只有点击确定后才能得到Str_djh这个
参数值？
如何在我点击确定的时候响应JAVASCRIPT的send()函数？
 
你可以根据自己的需要呀，比如在按钮单击时，触发这个函数
上面发的是我原来的代码，就是在点击发送按钮(在页面中的
按钮)是得到ACTIVE Form中选择的登记号。
 
下面就是页面按钮调用的代码。这都是html和JAVASCRIPT的代码
<INPUT id=btn_bl_1 name=btn_bl type=button value=" 发 送 " onclick=send();>
 
你看我怎样给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了！
 
FreeBit,
可是我的单击是在控件里的，就是我单击后在控件里得到一个 变量，那我现在要做的
就是如何响应页面使页面得到控件里的这个变量？
你刚才的是点击页面的发送阿，如果是在控件呢？
 
据我所知ACTIVE Form不能主动发送变量到页面中，
它可以定义函数在页面中调用，也可以定义变量供
页面文件使用运算结果。
你的意思是不是，在ACTIVE Form中点击某个按钮
直接打开ie中的某一页？如果是这样的话，你还
可以尝试ACTIVE Form中
ShellExecute(0,'Open','IEXPLORE.EXE',<Url地址>,nil,SW_MAXIMIZE);
 
FreeBit,
在VC里是可以响应页面的，在DELPHI也应该可以吧？
如
<SCRIPT LANGUAGE=javascript FOR=map EVENT=create(PARA)>
create(PARA)
</SCRIPT>
然后在页面调用就可以了
我现在就是在控件里点击后就把变量显示到页面上
 
dcsdcs, 你好
譬如我的USER &amp
PASWORD都是在控件里输入的，确定后我能把这些显示在页面上吗？
 
响应页面当然没有问题，但我理解的响应是，在页面文件
里触发某个事件如单击调用ACTIVE Form中的函数。
ACTIVE Form主动发送变量到页面中，我个人认为是不太
可能的。不过你可以用一些变通的方法解决。比如，可以
用JAVASCRIPT写一个函数不断执行，直到得到你所需要的
值为止。别的我就没有什么好的办法了。
 
FreeBit,十分感谢你耐心回答
我现在如果能做到
譬如我的USER &amp
PASWORD都是在控件里输入的，
在控件里点击确定后我能把这些显示在页面上就可以了，不论用什么方法写JAVASCRIPT
什么的都可以
 
当然可以，这与delphi和vc没有一样，都是ocx
 
dcsdcs,你好
你能详细说一下吗？
就是我在控件单击后如何触发页面得到USER &amp
password?
delphi 里控件事件如何写？JAVASCRIPT里的函数如何写？
非常感谢
 
在控件中做两个属性，按钮方在控件的外面，点击时读这两个属性不就可以了吗！
 
kenmaj说的没错，
1、定义ocx里的一个事件
2、定义一个JavaScript的函数由此事件触发
3、此JavaScript函数访问ocx中的某个属性
 
你在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中要写的

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

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
5K
chlkuei
C
G
请问在ASP中调用Delphi写的Active form，怎样把ASP中的变量传到Active form(100分)
回复
5
查看
197
Gusn
G
T
用delphi写一个asp控件的简单问题(在线等待)(100分)
回复
10
查看
208
tristones
T
N
一个很简单的ocx控件，不会做。(0分)
回复
0
查看
179
Nadoto
N
Y
请写过ocx的FW们讨论一下这个问题 (200分)
回复
12
查看
257
yoking
Y
后退
顶部