急SOSActiveXForm 怎样接受自定意参数(50分)

hstod · 2003-05-21

[?]我用ActivexForm写了个东西现在需要接受从网页或是说地址栏内传过的参数
我看flash 接受是 flash.cox#veriso='1.2.3'什么的
那ActivexForm是否也可写成 aa.ocx#path='http;//www.zz.ha.cn'这样？？
然后 path这个参数就可以ActiveXForm内可用但怎么用
[red]请高手帮忙谢谢了[/red]

hstod · 2003-05-21

自己UP吧！！
都吃饭了吗？？

野蛮人 · 2003-05-21

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1749287
和http://www.delphibbs.com/delphibbs/dispq.asp?lid=1608982
自己去看看吧，看有什么启发？我相信你看了就会明白ACTIVE　FORM中的参数的传递。

hstod · 2003-05-21

谢谢
看懂了可是发现没有参数类型为字符串型的还是我眼捉？？

野蛮人 · 2003-06-02

不区分什么字符串的,在传递时一般都是variant类型的参数,要什么具体的类型在ACTIVE FORM里定义一个相应的类型直接将它赋值不就得了?

青檬檬 · 2003-06-02

我的页面文件如下
<HTML>
<OBJECT id="mobile"
classid="clsid:679E80B6-E8F0-49C9-AADD-FF9E9BDB4B69"
codebase="ActiveIvrProj1.cab"
width=510
height=252
align=center
hspace=0
vspace=0
>
<param name="MobNum" value="35354">
</OBJECT>
</HTML>

然后我在Type Library里增加了一个Property Mobnum
程序里出现了
procedure Set_MobNum(const Value: WideString)
safecall;
function Get_MobNum: WideString
safecall;

我在里面添加代码
procedure TActiveIvr.Set_MobNum(const Value: WideString);
begin
FMobNum := value;
end;

function TActiveIvr.Get_MobNum: WideString;
begin
Result := FMobNum
end;

然后申明变量
public
{ Public declarations }
FMobNum: widestring;

野蛮人 · 2003-06-02

楼上的代码没有问题！

hstod · 2003-06-03

多人接受答案了。

急SOSActiveXForm 怎样接受自定意参数(50分)

hstod

Unregistered / Unconfirmed

hstod

Unregistered / Unconfirmed

野蛮人

Unregistered / Unconfirmed

hstod

Unregistered / Unconfirmed

野蛮人

Unregistered / Unconfirmed

青檬檬

Unregistered / Unconfirmed

野蛮人

Unregistered / Unconfirmed

hstod

Unregistered / Unconfirmed

Similar threads