下面以读取并显示一个IP地址为例，来展示Delphi的ActiveForm如何编写代码读取网址参数：
一、新建一个ActiveForm。
二、菜单View->Type Library，以显示类型库。右击IActiveFormX->New->Property新建属性，并将属性名称改为MyIP，再在右边的type值选WideString，即修改属性的类型为字符串。
三、回到ActiveFormX窗口的代码页，可以看到已自动加入以下代码：
function TActiveFormX.Get_MyIP: WideString;
begin
end;
procedure TActiveFormX.Set_MyIP(const Value: WideString);
begin
end;
四、自定义一个全局变量v:string，并修改Set_MyIP过程：
procedure TActiveFormX.Set_MyIP(const Value: WideString);
begin //将网址传来的参数赋给全局变量v
v:=Value;
end;
五、往窗体加入一个按钮Button1，在其OnClick事件加入：
ShowMessage('传入的网址是：'+v);
六、菜单Project->Web Deployment Option...填写有关发布参数。
七、菜单Project->Web Deploy发布，可得*.htm和*.ocx两个文件。然后修改*.htm，在<object ...>和</object>之间加入<param name="MyIP" value="192.168.0.3">。如下所示：
<html>
<head>
<title>Active接收网址参数测试</title>
<OBJECT
classid="clsid:CC721C00-9C4B-42DC-B3F6-4C78DDFD4A1E"
codebase="GetIP.ocx"
>
<param name="MyIP" value="192.168.0.3">
</OBJECT>
</head>
<body>
</body>
</html>
八、执行该网页，点击ActiveFormX中的Button1，显示信息：“传入的网址是：192.168.0.3”。成功！
九、总结：人们总是习惯于“对象.属性”来取MyIP的值，如TActiveFormX.MyIP，结果自然无法通过。殊不知是通过全局变量来保存网址参数。我想具体执行流程是：客户访问网页->网页带有参数MyIP->激发procedure TActiveFormX.Set_MyIP(const Value: WideString)过程->此刻的Value值为“192.168.0.3”->将此值赋给全局变量v。不知道对不对，还请各位高手赐教。
