在Visual FoxPro 5.0中激活Internet Explorer
目前,Internet/ Intranet技术已日趋成熟,构造企业级Intranet已被越来越多的
企业所采纳。Intranet是采用Internet技术构造企业内联网络,它既可以实现企业
内部的信息共享,也可以通过Internet与外部世界交流信息,具有很大的灵活性。
当前,很多应用系统的开发建构在Intranet/Web结构上,这使得客户端的用户能够
通过浏览器查询或访问Web服务器端的数据库、浏览HTML页面。浏览器是与用户相
关的界面,虽然Web服务器后端应用程序与浏览器没有直接的交互,应用程序却通
过回送一个完整的HTML页面进行显示,以一种非交互的方式提供了界面。
Microsoft正在将Web浏览器界面直接并入将来的Windows操作系统版本中。在
Internet Explorer 4.0中,Web浏览器与其它用于文件浏览及显示桌面应用程序的
界面部件之间没有什么差别。浏览器正在成为无所不在的应用程序,它提供了漫游
Web、局域网、甚至是用户自己的计算机和应用程序所需的全部功能。
Visual FoxPro 使组织数据、定义数据库规则和建立应用程序等工作变得简单易行。
Visual FoxPro的集成化的开发环境不但拥有功能强大的面向对象程序设计工具以
及客户/服务器能力,而且支持 OLE 及 ActiveX。如果你在系统中安装了Internet
Explorer,而且它是缺省的浏览器,用下面的方法,就能通过Visual Foxpro控制
Web浏览器访问Web站点。
建立一个Visual Foxpro表单,其中,启动Internet Explorer的代码为:
oie = CreateObject("InternetExplorer.Application"),
CreateObject函数从一个OLE应用中创建一个对象。关闭Internet Explorer
的代码为:
If Type(@#oie@#) = "O"
oie.Quit Release oie EndIf
Oie类的主要成员函数为:oie.Navigate(String URL)联向URL指定的某个接点;
oie.GoHome与Internet Explorer的主页对应;oie.GoSearch与Internet Explorer
的搜索对应;oie.GoBack与Internet Explorer的后退对应;oie.GoForward与Internet
Explorer的前进对应。
Oie类的主要成员变量为:oie.Top,oie.Left窗口左上角坐标;oie.Height窗口高度;
oie.Width窗口宽度;oie.StatusText窗口状态条显示信息;oie.StatusBar窗口是否
有状态条;oie.FullScreen窗口是否全屏显示;oie.ToolBar窗口是否有工具条;
oie.Visible窗口是否可见;oie.MenuBar窗口是否有菜单。通过设置这些成员变量,
可以控制Internet Explorer的窗口大小、位置及各种状态。
这样,我们就可以生成一个在Visual FoxPro中激活并控制Internet Explorer的程序,
该程序可以作浏览器用。在Visual Foxpro 5.0及Internet Explorer 4.0环境下实现。
目前,Internet/ Intranet技术已日趋成熟,构造企业级Intranet已被越来越多的
企业所采纳。Intranet是采用Internet技术构造企业内联网络,它既可以实现企业
内部的信息共享,也可以通过Internet与外部世界交流信息,具有很大的灵活性。
当前,很多应用系统的开发建构在Intranet/Web结构上,这使得客户端的用户能够
通过浏览器查询或访问Web服务器端的数据库、浏览HTML页面。浏览器是与用户相
关的界面,虽然Web服务器后端应用程序与浏览器没有直接的交互,应用程序却通
过回送一个完整的HTML页面进行显示,以一种非交互的方式提供了界面。
Microsoft正在将Web浏览器界面直接并入将来的Windows操作系统版本中。在
Internet Explorer 4.0中,Web浏览器与其它用于文件浏览及显示桌面应用程序的
界面部件之间没有什么差别。浏览器正在成为无所不在的应用程序,它提供了漫游
Web、局域网、甚至是用户自己的计算机和应用程序所需的全部功能。
Visual FoxPro 使组织数据、定义数据库规则和建立应用程序等工作变得简单易行。
Visual FoxPro的集成化的开发环境不但拥有功能强大的面向对象程序设计工具以
及客户/服务器能力,而且支持 OLE 及 ActiveX。如果你在系统中安装了Internet
Explorer,而且它是缺省的浏览器,用下面的方法,就能通过Visual Foxpro控制
Web浏览器访问Web站点。
建立一个Visual Foxpro表单,其中,启动Internet Explorer的代码为:
oie = CreateObject("InternetExplorer.Application"),
CreateObject函数从一个OLE应用中创建一个对象。关闭Internet Explorer
的代码为:
If Type(@#oie@#) = "O"
oie.Quit Release oie EndIf
Oie类的主要成员函数为:oie.Navigate(String URL)联向URL指定的某个接点;
oie.GoHome与Internet Explorer的主页对应;oie.GoSearch与Internet Explorer
的搜索对应;oie.GoBack与Internet Explorer的后退对应;oie.GoForward与Internet
Explorer的前进对应。
Oie类的主要成员变量为:oie.Top,oie.Left窗口左上角坐标;oie.Height窗口高度;
oie.Width窗口宽度;oie.StatusText窗口状态条显示信息;oie.StatusBar窗口是否
有状态条;oie.FullScreen窗口是否全屏显示;oie.ToolBar窗口是否有工具条;
oie.Visible窗口是否可见;oie.MenuBar窗口是否有菜单。通过设置这些成员变量,
可以控制Internet Explorer的窗口大小、位置及各种状态。
这样,我们就可以生成一个在Visual FoxPro中激活并控制Internet Explorer的程序,
该程序可以作浏览器用。在Visual Foxpro 5.0及Internet Explorer 4.0环境下实现。