OCX中得到IE传递的参数(2002/5/30 三金版权所有)_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

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

作者：闵涛文章来源：闵涛的学习笔记点击数：792 更新时间：2009/4/23 18:38:39

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

教程录入：mintao 责任编辑：mintao

上一篇教程：界面(FORM)自动生成工具

下一篇教程： DLL 應用 - 設計可抽換的模組

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]