1.打开Delphi
2.File->New->Other->ActiveX->Active Form
3.弹出Active Form Wizard窗口,采用默认配置,单击“OK”
4.出现Form设计界面,这里添加一个Button和一个Edit控件
5.双击Button,添加事件处理代码
6.保存并编译程序
7.发布程序,Project->Web Deployment Options,弹出Web Deployment Options窗口,填写说明如下:
Target dir:C:\Inetpub\wwwroot(IIS目录,OCX发布的目录)
Target URL:http://localhost/(OCX发布的URL)
HTML dir:C:\Inetpub\wwwroot(IIS目录,HTML发布的目录)
8.调试Active Form,Run->Parameters,弹出Run Parameters窗口,填写说明如下:
Host Application:点击“Browser”找到IE
Parameters:填入自动生成的HTML文件地址,这里为“C:\Inetpub\wwwroot\ActiveFormProj1.htm”
9.注册ActiveX,Run->Register ActiveX Server
10.运行程序
注意:如果看不到控件,可能是IE限制了下载未签名的ActiveX控件,你需要修改IE的安全设置,我用的是IE6;另外FireFox需要安装插件才支持ActiveX。
2.File->New->Other->ActiveX->Active Form
3.弹出Active Form Wizard窗口,采用默认配置,单击“OK”
4.出现Form设计界面,这里添加一个Button和一个Edit控件
5.双击Button,添加事件处理代码
procedure TActiveFormX.Button1Click(Sender: TObject);
begin
Edit1.Text := 'Hello World!';
end;
begin
Edit1.Text := 'Hello World!';
end;
6.保存并编译程序
7.发布程序,Project->Web Deployment Options,弹出Web Deployment Options窗口,填写说明如下:
Target dir:C:\Inetpub\wwwroot(IIS目录,OCX发布的目录)
Target URL:http://localhost/(OCX发布的URL)
HTML dir:C:\Inetpub\wwwroot(IIS目录,HTML发布的目录)
8.调试Active Form,Run->Parameters,弹出Run Parameters窗口,填写说明如下:
Host Application:点击“Browser”找到IE
Parameters:填入自动生成的HTML文件地址,这里为“C:\Inetpub\wwwroot\ActiveFormProj1.htm”
9.注册ActiveX,Run->Register ActiveX Server
10.运行程序
注意:如果看不到控件,可能是IE限制了下载未签名的ActiveX控件,你需要修改IE的安全设置,我用的是IE6;另外FireFox需要安装插件才支持ActiveX。