背景与简介

Delphi 作为一种强大的集成开发环境（IDE），广泛用于开发复杂的 Windows 应用程序，其可视化组件库（VCL）提供了丰富的预构建组件，简化了开发过程，WebBrowser 控件是其中一个非常实用的组件，它允许开发者在 Delphi 应用程序中嵌入网页浏览功能，通过该控件，开发者可以轻松地将 Internet Explorer 引擎集成到他们的应用程序中，从而实现网页的加载、浏览和交互。

Delphi WebBrowser 控件的基本使用

引入 WebBrowser 控件

要在 Delphi 项目中使用 WebBrowser 控件，首先确保你的 IDE 安装了相应的 ActiveX 控件，接着按照以下步骤操作：

1、打开 Delphi IDE，创建一个新的 VCL Forms 应用程序项目。

2、选择“Component”菜单中的“Install Packages...”。

3、在弹出的对话框中选择“Import Package”，点击“Next”。

4、在“Unit file name”文本框中输入 WebBrowser 控件的注册文件路径，通常位于 Delphi 的安装目录下。

5、点击“Install”按钮，根据提示完成组件的安装。

6、安装完成后，在工具箱的“Additional”选项卡中，可以看到新增的 WebBrowser 组件。

基本属性和方法

Navigate方法：用于加载指定的 URL。

  WebBrowser1.Navigate('https://www.example.com');

Stop方法：停止当前的页面加载。

Refresh方法：重新加载当前页面。

GoBack和GoForward方法：分别返回到上一个或下一个浏览过的页面。

事件处理

WebBrowser 控件提供了一些重要的事件，可以帮助开发者监控和控制网页加载过程：

OnDocumentComplete事件：当网页完全加载时触发，可以用来执行一些需要在页面加载完成后进行的操作。

OnProgressChange事件：当页面加载进度发生变化时触发。

OnStatusTextChange事件：当浏览器的状态栏文本发生变化时触发。

高级功能

截图技术

利用 WebBrowser 控件，可以实现对网页内容的完整截图，具体步骤如下：

1、确保页面已经完全加载完成，包括所有动态内容。

2、使用 Windows API 捕获图像，PrintWindow 函数，来捕获当前控件的渲染内容，或者，如果不需要跨进程捕获，也可以使用 BitBlt 函数进行图像拷贝。

3、将捕获到的图像数据保存为位图文件（BMP）或其他格式。

示例代码：

procedure CaptureWebPageImage(WebBrowser: TWebBrowser; const FileName: string);
var
  DC, MemDC: HDC;
  BMP: TBitmap;
begin
  if (WebBrowser.Document <> nil) then
  begin
    // 创建内存设备上下文
    MemDC := CreateCompatibleDC(WebBrowser.Canvas.Handle);
    try
      // 创建 TBitmap 对象来保存图像
      BMP := TBitmap.Create;
      try
        // 获取 WebBrowser 的设备上下文句柄
        DC := WebBrowser.Canvas.Handle;
        // 获取网页渲染区域大小
        GetClientRect(WebBrowser.Handle, BMP.Canvas.ClipRect);
        // 设置 TBitmap 的像素格式与 WebBrowser 一致
        BMP.PixelFormat := pf32bit;
        // 分配内存
        BMP.Handle := CreateCompatibleBitmap(DC, BMP.Canvas.ClipRect.Right, BMP.Canvas.ClipRect.Bottom);
        // 选中并保存原来的位图
        SelectObject(MemDC, BMP.Handle);
        // 复制图像
        BitBlt(MemDC, 0, 0, BMP.Canvas.ClipRect.Right, BMP.Canvas.ClipRect.Bottom, DC, 0, 0, SRCCOPY);
        // 保存图像文件
        BMP.SaveToFile(FileName);
      finally
        BMP.Free;
      end;
    finally
      DeleteDC(MemDC);
    end;
  end;
end;

打印功能

通过 WebBrowser 控件的打印功能，可以实现将网页内容打印出来，具体步骤如下：

1、调用ExecWB 函数发送OLECMDID_PRINT 命令，触发打印对话框。

2、如果需要更精细的控制，可以使用IWebBrowser2 接口提供的ExecWB 方法。

示例代码：

uses ComObj;
procedure PrintWebPage(WebBrowser: TWebBrowser);
var
  Exclk: IWebBrowser2;
begin
  if Supports(WebBrowser.DefaultInterface, IWebBrowser2, Exclk) then
  begin
    Exclk.Silent := True; // 静默模式，不显示打印对话框
    Exclk.Offline := False; // 在线模式，确保可以访问网络资源
    Exclk.BeforeNavigate2(nil, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, MSGCTLU_DISPFORU_NAVIGATE);
    Exclk.StayCurrent := True; // 保持当前页面不变
    Exclk.Navigate2(EmptyParam, EmptyParam); // 开始导航
    Exclk.PrintTemplateTeardown(False); // 打印完成后不关闭模板
  end;
end;

邮件发送功能

结合截图技术和 SMTP 协议，可以实现将网页内容作为附件发送邮件的功能，具体步骤如下：

1、使用 WebBrowser 控件加载目标网页并截图。

2、使用TIdMessage 组件创建邮件，并将截图作为附件添加到邮件中。

3、配置 SMTP 服务器信息，发送邮件。

示例代码：

uses IdMessage, IdSMTP;
procedure SendEmailWithScreenshot(const Recipient, Subject, Body, FileName: string);
var
  Email: TIdMessage;
  SMTP: TIdSMTP;
begin
  Email := TIdMessage.Create(nil);
  try
    Email.From.Address := 'your-email@example.com';
    Email.Recpients.EmailAddresses := Recipient;
    Email.Subject := Subject;
    Email.Body.Text := Body;
    Email.Attachments.Add(FileName); // 添加截图作为附件
    SMTP := TIdSMTP.Create(nil);
    try
      SMTP.Host := 'smtp.example.com';
      SMTP.Port := 25;
      SMTP.Username := 'your-username';
      SMTP.Password := 'your-password';
      SMTP.Connect;
      SMTP.Send(Email);
    finally
      SMTP.Disconnect;
      SMTP.Free;
    end;
  finally
    Email.Free;
  end;
end;

Delphi WebBrowser 控件是一个功能强大的工具，允许开发者在桌面应用程序中集成完整的网页浏览和交互功能，通过掌握 WebBrowser 控件的基本使用方法和高级技巧，如截图、打印和邮件发送，开发者可以创建更加丰富和实用的应用程序，本文介绍了如何安装和使用 WebBrowser 控件，以及如何实现一些高级功能，希望这些内容能帮助你更好地利用 Delphi WebBrowser 控件，开发出功能强大的应用程序。