如何在网页中向ActiveX控件传递参数?

[wjzhuang]

如何在网页中向ActiveX控件传递参数?ActiveX控件如何接收？最好给出例子代码。

另外，为何这俩句在ActiveForm中编译不过？
ByteSend[0] =StrToInt("0x" + (IntToHex(Edit1->Text.ToInt(), 4)).SubString(3, 2));

ByteSend[0] = IntToHex(a,2);

其中a 为int
ByteSend 为byte

[wjzhuang]

急~~~~~~~~~

[大大怪老张]

这个问题偶不懂喽，帮你up

[大大怪老张]

这个问题偶不懂喽，帮你up

[lining_cumt985]

关注

[gfh21cn]

AnsiStirng -> char *
是AnsiStirng.c_str();

[jimzj]

传递参数如下：(以前一个大哥写的)
如果你的工程属于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没什么两样了，虽然程序不
出错，但除了什么事和我无关。你要问为什么？我现在头有些大，要休息了。

[wjzhuang]

传参数的问题已经解决了，楼上的方法恐怕不行，还需要添加一些东西。（我也实在csdn上看到解决方法的），代码如下：
现在我用ActivexForm做了一个控件，发布到IE后，不能用IE向ActiveX传递参数，我该如何办。
属性代码如下：
STDMETHODIMP TfrmI3DImpl::get_Play(BSTR* Value)
{
try
{
*Value = WideString(m_VclCtl->fileName).Copy();
}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_Ii3d);
}
return S_OK;
};


STDMETHODIMP TfrmI3DImpl::set_Play(BSTR Value)
{
try
{
const DISPID dispid = 16;
if(FireOnRequestEdit(dispid) == S_FALSE)
{
return S_FALSE;
}
FireOnChanged(dispid);
m_VclCtl->fileName = Value;
m_VclCtl->ActiveFormCreate(NULL);
FireOnChanged(dispid);
}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_Ii3d);
}
return S_OK;
};

转：

步骤如下：
1。选中View->Type Library.
2.选中New Property下的Read|Write,创建新属性。如取名为caption,ID为16,Type为BSTR.
3.在实现库的头文件里的以下位置加入以下几条语句，不然你的属性不会被激活。
*****
a.如果你的ActiveXForm名为ActiveFormX,继承IPersistPropertyBagImpl摸板类，在
class ATL_NO_VTABLE TActiveFormXImpl:
VCLCONTROL_IMPL(TActiveFormXImpl, ActiveFormX, TActiveFormX, IActiveFormX, DIID_IActiveFormXEvents)
之后加上：",public IPersistPropertyBagImpl<TActiveFormXImpl>"。
b.加入接口映射。
BEGIN_COM_MAP(TActiveFormXImpl)
VCL_CONTROL_COM_INTERFACE_ENTRIES(IActiveFormX)
//加入这条语句：COM_INTERFACE_ENTRY_IMPL(IPersistPropertyBag)
END_COM_MAP()

c.加入属性映射。
BEGIN_PROPERTY_MAP(TActiveFormXImpl)
// PROP_PAGE(CLSID_ActiveFormXPage)
//加入你的属性如：PROP_ENTRY("caption",DISPID(16),CLSID_ActiveFormX)
END_PROPERTY_MAP()

然后在脚本里写入：<param name = "caption " value = "mycaption">
另外在IE的安全设置里对"对没有标记为安全的控件..."一项设为启用。OK,大功告成。
这样值就传入到ActiveXForm里了。

[dycdyc123]

另外，为何这俩句在ActiveForm中编译不过?????

为什么？

第一个问题我不是很熟

[wjzhuang]

错误是这样的。我写成application,那两句代码编译可以通过，运行也正常。
但是我把他们放到activeform中，则会提示：
[C++ Error] MyCommImpl1.cpp(719): E2034 Cannot convert 'AnsiString' to 'const char *'

为什么？

[wjzhuang]

第一个问题我已经解决了。
现在只第二个问题了，请大家帮帮忙。
谢谢！

[annkie]

csdn刷新不乐了

[wjzhuang]

StrToInt()不能在ActiveForm中使用。但是可以使用StrToInt64()
还有别的解决方法，各位有兴趣可以查询关键字：StrToInt

事实上，在ActiveX中不少函数用不了。

[wjzhuang]

现在的BCB版好像不如以前了，人少了~~~~~~~~~~

可惜~~~~~~~~~~~

[IT-司马青衫]

程序猪好久不见你好吗???
找到了比以前更好的工作了吗????

PostMessage(YourHandle,MeHandle,"Verygood", 外企,月薪3万);