搞了一天还是没有解决,ASP文件向ActiveX Form中传递参数,帮帮小弟吧!(50分)

  • 主题发起人 主题发起人 由由(love)
  • 开始时间 开始时间

由由(love)

Unregistered / Unconfirmed
GUEST, unregistred user!
从网上找了好多这方面的资料,可是任无法解决这个问题,刚学不久,不要见笑,希望各位
能把ASP中的调用方法写出来,还有在DELPHI中如何定义一个属性,在属性中的begin与end之间
该如何写,希望能仔细一点帮助全部写出来,不甚感激!
我是这样处理的:
1、在ASP文件中
<object class=".." width=500 height=500 ... pre=123></object>
pre属性为ActiveX Form中定义的并要传递的参数。
2、在Delphi中
在ActiveX Form工程文件中通过View->Type Labrary,然后新建一个属性SFlag,系统会自动生成一个属性和方法,然后在begin与end
之间写入Result := SFlag与SFlag := Value,不知道对不对,结果是无法传递参数

各位高手请赐教!!!
 
看看这篇吧
我刚刚解决传参数的问题的

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1916949
 
下面以读取并显示一个IP地址为例,来展示Delphi的ActiveForm如何编写代码读取网址参数:

一、新建一个ActiveForm。
二、菜单View->Type Library,以显示类型库。右击IActiveFormX->New->Property新建属性,并将属性名称改为MyIP,再在右边的type值选WideString,即修改属性的类型为字符串。
三、回到ActiveFormX窗口的代码页,可以看到已自动加入以下代码:
function TActiveFormX.Get_MyIP: WideString;
begin

end;

procedure TActiveFormX.Set_MyIP(const Value: WideString);
begin

end;
四、自定义一个全局变量v:string,并修改Set_MyIP过程:
procedure TActiveFormX.Set_MyIP(const Value: WideString);
begin //将网址传来的参数赋给全局变量v
v:=Value;
end;
五、往窗体加入一个按钮Button1,在其OnClick事件加入:
ShowMessage('传入的网址是:'+v);
六、菜单Project->Web Deployment Option...填写有关发布参数。
七、菜单Project->Web Deploy发布,可得*.htm和*.ocx两个文件。然后修改*.htm,在<object ...>和</object>之间加入<param name="MyIP" value="192.168.0.3">。
八、执行该网页,点击ActiveFormX中的Button1,显示信息:“传入的网址是:192.168.0.3”。成功!
九、总结:人们总是习惯于“对象.属性”来取MyIP的值,如TActiveFormX.MyIP,结果自然无法通过。殊不知是通过全局变量来保存网址参数。我想具体执行流程是:客户访问网页->网页带有参数MyIP->激发procedure TActiveFormX.Set_MyIP(const Value: WideString)过程->此刻的Value值为“192.168.0.3”->将此值赋给全局变量v。不知道对不对,还请各位高手赐教。
 
后退
顶部