OCX中得到IE传递的参数(2002/5/30 三金 版权所有)

OCX中得到IE传递的参数(2002/5/30 三金 版权所有)

    如果你的工程属于OCX工程,并且需要连接数据库服务器。那么,工程应该适
应不同的数据库连接参数,如数据服务器名、数据库名、用户名、密码等当它们发
生变化时,工程应不需修改。这就要求OCX工程能携带参数。怎么搞?往下看。

    在你看这篇文章之前,最好先看一下三金所写的另外一篇文章 “EXE工程和OCX
工程的转化“。否则,后果自负。别怕,only a joke!:),不过,三金还是劝你看
一下,本篇你就会明白得快一些。如果你的OCX工程主Form是普通Form,并且继承于
工程中的ActiveForm,then,let's go on!

    为了便于说明,假设工程中的ActiveForm的name为ActiveFormX,单元文件为
ActiveFormX.pas,工程主Form的name为frmMain,单元文件为MainForm.pas。总的说
来,就是在就是在TActiveFormX与TfrmMain之间加一个中间类,由此类完成参数的接
收。设此类为TActiveFormNewX,因为此类作为二者的中间类,就需要把TfrmMain的父
类由TActiveFormX改为该类。打开MainForm.pas,找到TfrmMain的声明:
TfrmMain=class(TActiveFormX)改为TfrmMain=class(TActiveFormNewX),并且,
TActiveFormNewX继承于TActiveFormX。TActiveFormNewX的声明和实现如下,你应该
把它拷到ActiveFormX.pas单元中TActiveFormX的后面。

  TActiveFormNewX = class(TActiveFormX,IPersistPropertyBag)
  public
    ServerName,DBName,UserName, UserPassword:String;
  protected
    function IPersistPropertyBag.InitNew=PersistPropertyBagInitNew;
    function IPersistPropertyBag.Load   =PersistPropertyBagLoad;
    function IPersistPropertyBag.Save   =PersistPropertyBagSave;
    function IPersistPropertyBag.GetClassID=PersistPropertyBagGetClassID;

    function PersistPropertyBagInitNew:HResult;stdcall;
    function PersistPropertyBagLoad(const pPropBag:IPropertyBag;Const pErrorLog:
    IErrorLog):HResult; stdcall;
    function PersistPropertyBagSave(const pPropBag:IPropertyBag;fClearDirty:BOOL;
    fSaveAllProperties:BOOL):HResult; stdcall;
    function PersistPropertyBagGetClassID(out classID:TCLSID):HResult; stdCall;
  end;

  function TActiveFormNewX.PersistPropertyBagInitNew:HResult;
  begin
    Result:=S_OK;
  end;

  function TActiveFormNewX.PersistPropertyBagLoad(const pPropBag:IPropertyBag;
  Const pErrorLog:IErrorLog):HResult;stdCall;
  var
  Str:OleVariant;
  begin
    if pPropBag.Read('ServerName', Str ,pErrorLog) = S_OK then
      ServerName :=Str;
    if pPropBag.Read('DBName', Str ,pErrorLog) = S_OK then
      DBName :=Str;
    if pPropBag.Read('UserName', Str ,pErrorLog) = S_OK then
      UserName :=Str;
    if pPropBag.Read('UserPassword', Str ,pErrorLog) = S_OK then
      UserPassword :=Str;
    Result:=S_OK;
  end;

  function TActiveFormNewX.PersistPropertyBagSave(const pPropBag:IPropertyBag;
  fClearDirty:BOOL;fSaveAllProperties:BOOL):HResult;
  begin
    Result:=S_OK;
  end;

  function TActiveFormNewX.PersistPropertyBagGetClassID(out classID:TCLSID):
  HResult; stdCall;
  begin
    Result:=S_OK;
  end;

     从代码不难看出,此类有四个public成员:ServerName,DBName,UserName,
UserPassword。参数就是传给了它们。既然是public成员,且TfrmMain是该类子
类,所以,就可以在TfrmMain中得到这四个值。注意,应该把代码写在TfrmMain
的OnShow中,而不是OnCreate。
    在IE中应这样书写:
  <OBJECT      
          classid="clsid:3E71BE48-9AE1-431D-BD68-B17AA355BF38"  
          codebase="ActiveFormProj1.ocx#version=1,0,0,0"  
          width=538
          height=350  
          align=center  
          hspace=0  
          vspace=0
  >
    <param name=ServerName value=sanjin>
    <param name=DBName value=tian>
    <param name=UserName value=user>
    <param name=UserPassword value=>
  </OBJECT>
    如果你想添加或减少参数,不用我多说了吧!ok,解决。

    有朋友要发表意见:“我的OCX工程主Form是TActiveForm,照你的办法,我
可以在让我的TActiveForm继承于此类,我在TActiveForm中按同样的办法接收不
就的了!“。那我告诉你,参数的确能得到,不过你如果重新打开以下你的工程,
按F11看一下,TActiveForm的说有属性的和普通Form没什么两样了,虽然程序不
出错,但除了什么事和我无关。你要问为什么?我现在头有些大,要休息了。
更多更好文章尽在三金主页-天铭心草堂 http://vip.6to23.com/tianmingxin
  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

sanjin

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值