用Delphi制作浏览器界面应用程序
很多人想把自己编写的应用程序做成以浏览器为界面,通过打开浏览器的方式来使用应用程序,其实在delphi中实现起来很简单,我们以用delphi6.0为例把实现的完整步骤写出如下:1、选择file\new\other于newitems对话框中选择activex选项,在其中选择建立activexform。此时会弹出一个对话框用于输入你所建立activex组件的名称、objectpascal程序单元名称、项目名称等。还有一些activex包含版本控制编号等可选项,可以按缺省的设置直接点击ok即可。
2、现在你可以在打开的工程中来设计你的程序了,这里和一般的应用程序的设计一样,可以根据自己的需要来创建不同的form来实现自己的功能。但需要注意一点的是各form之间的调用不能用form.showmodal来实现了,需要动态调用form来实现,如以下定义过程:
Procedure Tform1.ShowForm(AFormClass:TFormClass);
Begin
With AFormClass.Create(Self) do
try
ShowModal;
finally
Free;
end;
End;
调用form2可以用:showform(Tform2),程序设计完成后,保存单元文件和工程文件到相应的目录下。假设保存在c:\mydocuments。
3、程序设计完成之后,可以准备生成你所想要的应用程序了,但这里不是点击运行,而是首先选择project\webdeploymentoptions 在project选项中的Target dir中添入.\, TargetURL中添入./, HTMLdir中添入.\来设置一些文件存放路径。最后选择project\webdeploy,点击yes toall即可。
此时打开c:\mydocuments会看到已生成的htm文件,打开htm文件你会看到你所设计的应用程序已经可以在浏览器中使用了。你可以用网页编辑器来修改所生成的htm文件使它更符合你的要求。至此完整的实现过程结束。实际上Delphi是把编写的应用程序编译成了activex组件,在浏览器中调用activex组件,所以只适用于一些小的应用程序。