1、新建工程首先,打开delphi 7可视化编辑软件,默认已经新建好一个应用程序,如果没有新建工程,则可以点击菜单栏“文件”——“新建”——“应用程序”,新建一个工程。
2、添加控件依次在工具栏中切换到:“标准”选项卡,在其中双击“button”、“memo”控制,在窗口中增加3个按钮、2个富文本框。
3、切换到:“Internet”选项卡,双击“Web幞洼踉残Browser”控件,在窗口中添加该控件,并修改该控件visible属性为false,即运行状态下隐藏该控件,不显示在窗口内。
4、排版美化然后,可以如下图所示,对窗口的控件排版适当进行美化,其中button1至button3分别对应“打开网页”、“提取网页源代码”、“提取网页文本”。
5、编写代码在uses中,加入对mshtml单元的引用。
6、然后双击打开button1,输入以下代码,用于在WebBrowser1控件中打开要获取信息的网页。
7、然后双击打开button2,输入以下代码,用于获取WebBrowser1控件中打开网页的源代码,并将其放入memo1中。
8、然后双击打开button3,同样输入如图代码,获取打开网页的文本内容,并将获得的内容放置在memo2文本框中。