1、打开delphi2010，选择【file】→【new】→【other】
3、修改name为MyOcx.点击【SaveAll】按钮保存全部，保存文件名为PMyOcx.ridl。
5、设置 coClass Name: OcxForm，再【OK】按钮
7、现在给OcxForm 添加一个String 和Integer属性。选择PMyOcx.ridl单元。右击IOcxForm→【New】→【Property】。进入添加属性界面
9、打开UOCXFORM单元，给MyInt和MyString赋值和读取值。在private定义两个变量 MyInt，MyString。
12、选择【Run】→【Register Activex Server】，注册一下，正好在创建intraweb上使用。
14、在iwform1上添加一个iwactivex.在其中的IWAppFormRender事件中加入这样的代码，就可以向里面传参数了。pro艘早祓胂cedure TIWForm1.IWAppFormRender(Sender: TObject);var Myint: Integer; MyString: string;begin Myint :=8888; MyString := '8888'; IWActiveX1.ClassID :='clsid:736D170C-B4BC-4855-AA52-E725E285FA90'; IWActiveX1.CodeBase :='http://192.168.0.56:8888'+'/files/PMyOcx.ocx#version=1,0,2,1'; with IWActiveX1.Params.add do begin Name :='Myint'; Value := IntToStr(Myint); end; with IWActiveX1.Params.add do begin Name :='MyString'; Value := MyString; end;end;
