⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 在delphi程序中应用ie浏览器控件.htm

📁 对于学习很有帮助
💻 HTM
字号:
🔍 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Welcome to Delphi Tips !</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" href="../tips.css"></head>

<body bgcolor="#D8D0C8" text="#675350">
<div align="left"> 
  <table border="1" cellpadding="0" cellspacing="0" width="579" height="63" bordercolorlight="#784400" bordercolordark="#D8D0C8">
    <tr>
      <td width="194" height="86"><img src="../images/title.gif" width="340" height="85"></td>
      <td width="377" height="86" valign="top"><img src="../images/dong.jpg" width="251" height="85"> 
	&nbsp;&nbsp;</td>
  </tr>
</table>
  <br>
</div>
<div align="left">

  <table border="1" cellpadding="0" cellspacing="0" width="578" height="18" bordercolorlight="#784400" bordercolordark="#CCCCCC" class="p2">
    <tr bgcolor="#B0A498"> 
      <td width="574" height="18"> &gt;<a href="../index.htm">DelphiTips首页</a> 
	&gt; <a href="main.htm">控件应用</a></td>
  </tr>
</table>
  <br>
  <table width="96%" border="1" bordercolorlight="#784400" cellspacing="0" bordercolordark="#D8D0C8">
    <tr bgcolor="#B0A498" class="p1"> 
      <td colspan="3"> 
	<div align="center">在Delphi程序中应用IE浏览器控件</div>
      </td>
      <td width="12%" class="p2">&lt;&lt;<a href="001.htm">上一篇</a></td>
      <td width="13%" class="p2"><a href="003.htm">下一篇</a>&gt;&gt;</td>
    </tr>
    <tr class="p2"> 
      <td colspan="5">
	<table width="100%" border="0" class="p2">
	  <tr>
	    <td width="3%">&nbsp;</td>
	    <td width="94%"><span style="font-size: 9pt"><font color="#ffffff">----</font> 
	      如果你的软件的外部环境是WIN95+IE或WIN98(这样的软件使用率还很高的)，那样在系统中就已经有了一个IE浏览器控件可以使用了，也许是你长时间没有发觉吧，别浪费资源了，拿来使用吧。当系统中已经安装了IE3.X或IE4.X时，IE浏览器控件已经注册到系统中了，请运行Regedit，用“编辑”菜单下的“查找”功能，查找“Shell.Explorer”键名，你会发现 
	      IE控件已经作为ActiveX控件注册在系统中了，这样就我们可以在Delphi中使用该控件了。 </span>
	      <p></p>
	      <h3><span style="font-size: 9pt">一、 在Delphi中引入IE浏览器控件</span></h3>
	      <p><font color="#ffffff"><span style="font-size: 9pt">　</span></font></p>
	      <p> <font color="#ffffff"><span style="font-size: 9pt">----</span></font><span style="font-size: 9pt"> 
		由于IE浏览器控件需要提供显示功能才能使用，所以不能在程序中用CreateOleObject取得一个实例后直接使用其属性和方法，否则程序在运行时会引起错误；这时需要用Delphi中提供的 
		“Import ActiveX Control”功能，操作方法见下所述。 </span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		在“Components”菜单中，调用“Import ActiveX Control”功能，在Registered Controls 
		(注册控件)列表中选择“Microsoft Internet Controls(Version1.1)”，下方的提示栏中显示出其路径为C:\PWin98\System\SHDOCVW.DLL，在Class 
		Names(类型列表)中列出了可注册的三个控件： TWebBrowser_V1、TWebBrowser和TShellFolderViewOC，分别为IE3浏览器控件、IE4浏览器控件和 
		“Microsoft外壳文件夹查看路由器”控件。单击Install进行安装。安装完成后，在“ActiveX” 控件栏中，将增加三个控件，分别为TWebBrowser_V1、TWebBrowser和TShellFolderViewOC；在 
		Delphi的Imports目录下，将创建一个文件SHDocVw_TLB.PAS，其中有这三个控件的包装细节，当然含控件的属性和方法说明了，它可以作为我们使用控件的参考资料。 
		</span></p>
	      <h3><span style="font-size: 9pt">二、 在Delphi程序中使用IE浏览器控件</span></h3>
	      <p><font color="#ffffff"><span style="font-size: 9pt">　</span></font></p>
	      <font color="#ffffff"> 
	      <p><span style="font-size: 9pt">----</span></p>
	      </font> 
	      <pre><span style="font-size: 9pt">以TWebBrowser(IE4浏览器控件)为例子。
TWebBrowser的常见属性和方法主要有：
GoBack：方法，后退到上一个页面。
GoForward：方法，前进到下一个页面。
GoHome：方法，调用默认的主页页面，
该页面在IE的选项中设定。
GoSearch：方法，调用默认的搜索页面，
该页面在IE的选项中设定。
Navigate(const URL: WideString; 
var Flags, TargetFrameName, PostData, 
Headers: OleVariant)：方法，
调用指定页面，具体参数如下：
URL：指定页面的URL。Flags：
   Word类型，作用还不清楚，可设为0。
TargetFrameName：WideString，
打开页面所在的Frame，为空字符串时在当前的
Frame中打开；TargetFrameName
指定的Frame存在时在Frame中打开；
TargetFrameName指定的Frame
不存在时则新建一个窗口打开，此时就相当
于调用外部的IE浏览器了。
PostData：boolean，是否允许发送数据。
Headers：WideString，
要发送的URL请求的头部数据。
Refresh：方法，刷新当前页面。
Stop：方法，停止调用或打开当前页面。
LocationName：属性(WideString)，当前位置的名称。
LocationURL：属性(WideString)，当前位置的URL。
Busy: 属性(Boolean)，是否正忙。
Visible: 属性(Boolean)，浏览器窗口是否可见。
(以下属性为在TWebBrowser新增，
TWebBrowser_V1中没有，其作用有待探索)
StatusBar: 属性(Boolean)，是否显示状态栏。
StatusText: 属性(WideString)，状态栏内容。
ToolBar: 属性(SYSINT)，工具栏中的内容。
MenuBar: 属性(Boolean)，是否显示菜单条。
FullScreen: 属性(Boolean)，是否全屏显示。
Offline: 属性(Boolean)，是否脱机浏览。
AddressBar: 属性(Boolean)，是否显示地址栏。

TWebBrowser的常见事件主要有：
OnStatusTextChange = procedure
(Sender: TObject; const Text: WideString) 
of object;</span></pre>
	      <p><font color="#ffffff"><span style="font-size: 9pt">　</span></font></p>
	      <p> <font color="#ffffff"><span style="font-size: 9pt">----</span></font><span style="font-size: 9pt"> 
		在状态栏提示信息变化时发生，参数Text为当前状态栏提示信息，我们可以根据该信息来更新我们自己的状态栏提示信息或处理其它的事务． 
		</span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		OnProgressChange = procedure(Sender: TObject; Progress, ProgressMax: 
		Integer) of object; </span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		在打开页面的进度变化时发生，参数Progress为当前进度，ProgressMax为总进度，我们可以根据这两个参数来更新我们自己的状态栏提示信息或处理其它的事务． 
		</span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		OnCommandStateChange = procedure(Sender: TObject; Command: Integer; 
		Enable: WordBool) of object; </span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		当执行新的命令时发生，Command为命令标识，Enable为是否允许执行该命令． OnTitleChange = procedure(Sender: 
		TObject; const Text: WideString) of object; </span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		在页面的标题发生变化时发生，Text为当前标题． </span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		OnPropertyChange = procedure(Sender: TObject; const Property_: 
		WideString) of object; </span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		在页面的属性发生变化时发生，Property_为属性名称 OnDownloadComplete: TNotifyEvent 
		</span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		在下载页面完成后发生． </span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		OnDownloadBegin: TNotifyEvent </span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		在下载页面开始前发生． </span></p>
	      <h3><span style="font-size: 9pt">三、 在Delphi程序中应用IE浏览器控件的两个例子 </span></h3>
	      <p><font color="#ffffff"><span style="font-size: 9pt">　</span></font></p>
	      <p> <font color="#ffffff"><span style="font-size: 9pt">----</span></font><span style="font-size: 9pt"> 
		（１）制作自己的帮助系统 </span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		我们利用IE浏览器控件为用户制作了一个帮助系统，帮助文件由多个HTML文件组成，一个主题对应一个 HTML文件(Topic.HTM)，每个主题下的项目对应HTML文件中的一个标签(#Item)。这样在我们的系统中，就不必再调用IE浏览器或WinHelp程序来为用户提供帮助了。相信大家知道HTML帮助文件与传统的HLP帮助文件相比的优势所在吧。 
		</span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		在下面例子中，演示了TWebBrowser(IE4浏览器控件)的Navigate方法的使用方法。请注意程序中的注释。(下面为程序的主要片段)。 
		</span></p>
	      <pre><span style="font-size: 9pt">{根据主题和项目调用帮助文件}
procedure ShowHelp
( HelpTopic,HelpItem : String );
var
   TargetFrameName,PostData,
Heads,Flags : OleVariant;
   URL : widestring;
begin
 TargetFrameName := '';{指定Frame的空字符串时,
则在当前Frame中打开帮助文件}
 PostData := false;{不发送数据}
 Heads := '';{Header信息为空}
 Flags := 0;{Flags设为0}
 URL := HelpTopic + '.HTM#'+HelpItem;
{帮助信息的URL}
 with formHelp.webbrowser do{在帮助窗口
中的IE浏览器控件中显示帮助信息}
  begin
   navigate(URL,Flags,TargetFrameName,
PostData,Heads);{显示帮助信息}
  end;
end;</span></pre>
	      <p><font color="#ffffff"><span style="font-size: 9pt">　</span></font></p>
	      <p> <font color="#ffffff"><span style="font-size: 9pt">----</span></font><span style="font-size: 9pt"> 
		（２）显示一个GIF动画 </span></p>
	      <p><span style="font-size: 9pt"><font color="#ffffff">----</font> 
		假如你还没有一个适合的动画显示控件，不妨试用一下下面方法． </span></p>
	      <pre><span style="font-size: 9pt">procedure ShowGIF( GIFFileName : String );
var
   TargetFrameName,PostData,Heads,Flags : OleVariant;
   URL : widestring;
begin
 TargetFrameName := '';{指定Frame的空字符串时,
则在当前Frame中打开动画文件}
 PostData := false;{不发送数据}
 Heads := '';{Header信息为空}
 Flags := 0;{Flags设为0}
 URL := GIFFileName;
 with formGIF.webbrowser do{在指定窗口中的
IE浏览器控件中显示动画}
  begin
   navigate(URL,Flags,TargetFrameName
,PostData,Heads);{显示动画文件}
  end;
end;</span></pre>
	      <p><font color="#ffffff"><span style="font-size: 9pt">　</span></font></p>
	      <p> <font color="#ffffff"><span style="font-size: 9pt">----</span></font><span style="font-size: 9pt"> 
		以上程序在PWIN98+Delphi3.0下调试通过。 </span></p>
	    </td>
	    <td width="3%">&nbsp;</td>
	  </tr>
	</table>
      </td>
    </tr>
    <tr bgcolor="#B0A498" class="p2"> 
      <td height="22" width="61%" colspan="2">&nbsp; <marquee behavior="alternate">如果你有什么好的资料，可以寄给我哟:)</marquee></td>
      <td height="22" width="14%"><a href="../index.htm">&lt;&lt;回到首页</a></td>
      <td height="22" width="12%">&lt;&lt;<a href="001.htm">上一篇</a></td>
      <td height="22" width="13%"><a href="003.htm">下一篇</a>&gt;&gt;</td>
    </tr>
  </table>
  <br>
  <br>
  <hr size=1 noshade width=500>
  <table width="75%" border="0" align="center" class="p2">
    <tr> 
      <td colspan="2">&nbsp;</td>
      <td width="24%">
	<table width="95%" border="1" bordercolorlight="#663300" bordercolordark="#CCCCCC" cellspacing="0" class="p2">
	  <tr>
	    <td>
	      <div align="center">Delphi 技巧集</div>
	    </td>
	  </tr>
	</table>
      </td>
      <td width="38%">&nbsp;</td>
    </tr>
    <tr> 
      <td width="16%">&nbsp;</td>
      <td colspan="2">Copyright 1999.11 by 东子</td>
      <td width="38%"><a href="../jintongbao@188.net">Mail to me!</a></td>
    </tr>
    <tr> 
      <td colspan="4"> 
	<div align="center">感谢广州视窗提供主页空间</div>
      </td>
    </tr>
  </table>
  <br>
</div><div align="center"><center>
  </center></div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -