青
青檬檬
Unregistered / Unconfirmed
GUEST, unregistred user!
我在以往的帖子里找到不少的相关内容
但是我的ActiveX无法得到页面传过去的数据
我的页面文件如下
<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;
最后在
procedure TActiveIvr.ActiveFormCreate(Sender: TObject);
begin
showmessage('test'+FMobNum);
end;
可是运行页面文件
弹出的对话框里只有Test
FMobNum没有得到页面传过去的参数
谢谢大家 急用
一共215 愿奉上200分求救
但是我的ActiveX无法得到页面传过去的数据
我的页面文件如下
<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;
最后在
procedure TActiveIvr.ActiveFormCreate(Sender: TObject);
begin
showmessage('test'+FMobNum);
end;
可是运行页面文件
弹出的对话框里只有Test
FMobNum没有得到页面传过去的参数
谢谢大家 急用
一共215 愿奉上200分求救
]