activex怎么从网页取得参数？？(50分)

怎么才能够取得<PARAM NAME="" VALUE="">里面的变量和值？？

然后让activex能取得使用这些变量和值？？？

我要具体的代码，或实例也可以。(因为本人实在菜……)

1 uses SHDocVw
2 add interface IPersistPropertyBag
3 add function to private
{ IPersistPropertyBag }
function IPersistPropertyBag.InitNew = PersistPropertyBagInitNew;
function IPersistPropertyBag.Load = PersistPropertyBagLoad;
function IPersistPropertyBag.Save = PersistPropertyBagSave;
function PersistPropertyBagLoad(const pPropBag: IPropertyBag
const pErrorLog: IErrorLog): HResult
stdcall;
function PersistPropertyBagSave(const pPropBag: IPropertyBag
fClearDirty: BOOL
fSaveAllProperties: BOOL): HResult
stdcall;
function PersistPropertyBagInitNew: HResult
stdcall;
function GetClassID(out classID: TCLSID): HResult
stdcall;
4 implementation
function TafxLogin.GetClassID(out classID: TCLSID): HResult;
begin
Result := S_OK;
end;

function TafxLogin.PersistPropertyBagInitNew: HResult;
begin
Result := S_OK;
end;

function TafxLogin.PersistPropertyBagLoad(const pPropBag: IPropertyBag;
const pErrorLog: IErrorLog): HResult;
var
param: olevariant;
aa:string;
begin
if pPropBag.Read( 'ParamName', param, pErrorLog) = S_OK then
aa:=param;
Result := S_OK;
end;
function TafxLogin.PersistPropertyBagSave(const pPropBag: IPropertyBag;
fClearDirty, fSaveAllProperties: BOOL): HResult;
begin
Result := S_OK;
end;

什么意思？请详解！谢谢！

打开工程文件，在IDE中选择察看type library,(类型库),在其中新建一个方法或者属性，
假设我们新建一个属性,名字是edit，然后选择该属性的数据类型为bstr(字符串),然后点
击注册类型库，在文件中查找属性设置方法(set_edit(value:bstr),该方法自动在类型库
被注册时建立，在其中我们进行接收，比如定义一个全局变量merry,这样就可以写:merry:=value)
我们就得到了网页中传过来的值并保存在merry里了，网页中直接这样写:<param name="edit" value="nice to meet you">
就行了，try it!

谢谢！

接受答案了.