CEF4Delphi中获取HTTP请求与响应内容的方法详解

CEF4Delphi中获取HTTP请求与响应内容的方法详解

【免费下载链接】CEF4Delphi CEF4Delphi is an open source project to embed Chromium-based browsers in applications made with Delphi or Lazarus/FPC for Windows, Linux and MacOS. 项目地址: https://gitcode.com/gh_mirrors/ce/CEF4Delphi

在CEF4Delphi开发中，处理HTTP请求和响应内容是一个常见需求。本文将详细介绍几种在CEF4Delphi中获取请求和响应内容的技术方案。

1. 使用TChromiumCore.RetrieveHTML方法

这是最简单直接的方式，适用于获取当前页面HTML内容的情况。该方法会异步获取页面HTML源码，并通过事件回调返回结果。

典型实现步骤：

1. 在窗体上放置TChromiumCore组件
2. 实现OnTextResultAvailable事件处理程序
3. 调用RetrieveHTML方法

procedure TForm1.Chromium1TextResultAvailable(Sender: TObject; const aText: string);
begin
  // 在这里处理获取到的HTML内容
  Memo1.Lines.Text := aText;
end;

// 调用获取HTML
Chromium1.RetrieveHTML;

2. 使用TCEFUrlRequestClientComponent组件

这种方法提供了更精细的控制，适用于需要拦截和处理特定网络请求的场景。它允许你创建自定义的URL请求并处理响应数据。

实现要点：

1. 添加TCEFUrlRequestClientComponent到窗体
2. 设置请求URL和其他参数
3. 实现OnDownloadData事件接收响应数据
4. 调用CreateURLRequest启动请求

procedure TForm1.CEFUrlRequestClientComponent1DownloadData(Sender: TObject;
  const data: Pointer; size: NativeUInt);
var
  strData: string;
begin
  // 将二进制数据转换为字符串
  SetString(strData, PAnsiChar(data), size);
  // 处理响应数据
  Memo1.Lines.Text := strData;
end;

// 创建并执行请求
CEFUrlRequestClientComponent1.CreateURLRequest('https://example.com');

3. 使用响应过滤器(Response Filter)

这是最灵活的方式，适用于需要实时处理网络数据流的场景。通过实现自定义过滤器，可以拦截和修改所有网络响应数据。

实现步骤：

1. 创建自定义过滤器类继承TCefResponseFilterOwn
2. 重写Filter方法处理数据流
3. 在TChromiumCore的OnGetResourceResponseFilter事件中返回过滤器实例

type
  TCustomResponseFilter = class(TCefResponseFilterOwn)
  protected
    function Filter(data_in: Pointer; data_in_size: NativeUInt; 
      var data_in_read: NativeUInt; data_out: Pointer; 
      data_out_size: NativeUInt; var data_out_written: NativeUInt): Boolean; override;
  end;

function TCustomResponseFilter.Filter(data_in: Pointer; data_in_size: NativeUInt;
  var data_in_read: NativeUInt; data_out: Pointer; data_out_size: NativeUInt;
  var data_out_written: NativeUInt): Boolean;
begin
  // 处理输入数据
  data_in_read := data_in_size;
  // 可以在这里分析或修改数据
  Move(data_in^, data_out^, data_in_size);
  data_out_written := data_in_size;
  Result := True;
end;

procedure TForm1.Chromium1GetResourceResponseFilter(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame; 
  const request: ICefRequest; const response: ICefResponse; 
  out Result: ICefResponseFilter);
begin
  // 为特定请求创建过滤器
  if Pos('example.com', request.Url) > 0 then
    Result := TCustomResponseFilter.Create;
end;

方案对比与选择建议

1. 简单内容获取：如果只需要当前页面HTML，使用RetrieveHTML最简单
2. 特定请求处理：需要拦截特定URL时，TCEFUrlRequestClientComponent更合适
3. 高级数据流处理：需要实时处理或修改响应数据时，应使用响应过滤器

每种方法各有优劣，开发者应根据具体需求选择最合适的方案。对于复杂项目，可能需要组合使用多种技术来实现完整的网络请求监控和处理功能。

【免费下载链接】CEF4Delphi CEF4Delphi is an open source project to embed Chromium-based browsers in applications made with Delphi or Lazarus/FPC for Windows, Linux and MacOS. 项目地址: https://gitcode.com/gh_mirrors/ce/CEF4Delphi