有谁知道网页能不能接收ActiveForm传出的数据，如何做？(200分)

现在我已经知道ActiveForm如何接收传入的参数（设置属性或接口），但不知ActiveForm
如何把数据返回到网页中[]，请大家帮我。

ActiveForm如何接收传入的参数我也不知道，详细情况能不能指点一下？

答案是肯定的，做几个属性或方法，在网页调用不就可以了

打开Type Library在IActiveFormX中New一个方法，Delphi会自动完成它的声明工作，
你只要完成其中的实现就可以了。如：增加一个SaveFile方法，Delphi自动完成
procedure TActiveFormX.SaveFile;
begin
//你自己在这里完成需要的功能
end;
在网页上调用就可以直接 objID.SaveFile();就可以直接调用方法了

如果需要从ActiveObje通知网页返回参数的话，可以使用Event
在IActiveFormXEvents中加入一个方法OnSaveFile(name : widestring);
在代码中需要产生这个事件的情况就可以
procedure TActiveFormX.SaveFile;
begin
//你自己在这里完成需要的功能
if FEvents <> Nil then
FEvents.OnSaveFile('文件名称');//这样网页就能得到'文件名称'的值了
end;

网页中只要
<SCRIPT LANGUAGE=javascript FOR=objID EVENT=OnSaveFile>
<!--
alert(arguments[0]);//这样表示取得第一个参数的值
//-->
</SCRIPT>


这样就可以完成从网页调用ActiveX的方法，和ActiveX返回参数给网页的方法

to ChDw:
谢谢！！！

CSDN - 技术频道 - 文档中心 - Delphi

标题 OCX中得到IE传递的参数(2002/5/30 三金 版权所有) sanjin（原作）

关键字 ocx,ie


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没什么两样了，虽然程序不
出错，但除了什么事和我无关。你要问为什么？我现在头有些大，要休息了。

还有一个待答问题，自己解决问题后都忘了，还好今天看了一下，放分吧。总结一下
实际上这个问题有三种解决方法：
1、利用PersistPropertyBag接口，优点是加参数较方便，缺点是对事件的处理力不从心。
2、利用属性，优点是最简单，缺点是当ActiveForm是从多个（三个以上）接口继承则会
接收不到参数。
3、利用事件，这是最可靠的一种方法，结合脚本语言你可以做任何你想做的事情，推荐使用。

第三条应该是利用方法。