ocx是微软的一个老技术，但是在网页方面的用户还是蛮不错，能给客户增加直观的界面
工具/原料
delphi2010
intraweb
方法/步骤
1、打开delphi2010，选择【file】→【new】→【other】
2、选择【activex】→【ActivexLibrary】→【OK】按钮
3、修改name为MyOcx.点击【SaveAll】按钮保存全部，保存文件名为PMyOcx.ridl。
4、选择【file】→【new】→【other】→【activex】→【ActivexForm】→【OK】按钮
5、设置coClassName:OcxForm，再【OK】按钮
6、【file】→【SaveAll】保存的文件名为UOcxForm
7、现在给OcxForm添加一个String和Integer属性。选择PMyOcx.ridl单元。右击IOcxForm→【New】→【Property】。进入添加属性界面
8、name改成Myint。Type改成Int。刷新下这个属性。同样的方法添加一个string的属性。name:MyString，Type：BSTR
9、打开UOCXFORM单元，给MyInt和MyString赋值和读取值。在private定义两个变量MyInt，MyString。
10、functio艘绒庳焰nTOcxForm.Get_MyInt:SYSINT;beginResult:=MyInt;end;p鸡堕樱陨rocedureTOcxForm.Set_MyInt(Value:SYSINT);beginMyInt:=Value;end;functionTOcxForm.Get_MyString:WideString;beginResult:=MyString;end;procedureTOcxForm.Set_MyString(constValue:WideString);beginMyString:=Value;end;设置以上属性。
11、接下来就给做intraweb做准备。打开PM鲻戟缒男yOcx_TLB。找到CLASS_OcxForm:TGUID='{736D170C-B4B潮贾篡绐C-4855-AA52-E725E285FA90}';保存下来。
12、选择【Run】→【RegisterActivexServer】，注册一下，正好在创建intraweb上使用。
13、新建一个intraweb程序。【f坡纠课柩ile】→【new】→【other】→【VCLfortheweb】→【VCL惺绅寨瞀forthewebapplicationwizard】把projectname设置成Myocx保存
14、在iwform1上添加一个iwactivex.在其中的IWAppFormRende筠续师诈r事件中加入这样的代码，就可以向里面传参数了。pro艘早祓胂cedureTIWForm1.IWAppFormRender(Sender:TObject);varMyint:Integer;MyString:string;beginMyint:=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';withIWActiveX1.Params.adddobeginName:='Myint';Value:=IntToStr(Myint);end;withIWActiveX1.Params.adddobeginName:='MyString';Value:=MyString;end;end;
