Delphi TEdgeBrowser捕获标签页内容HTTP中继优化方案咨询

你的现有实现性能瓶颈主要来自三个方面：重复磁盘读写开销、无缓存的重复资源加载、无节流的固定截图逻辑，按下面的方式改造可以把性能提升一个量级：

1. 彻底移除磁盘IO，全内存缓存截图 #

TEdgeBrowser.CapturePreview 本身支持直接输出到流，不需要先存文件再读文件：

• 全局维护一个带临界区保护的内存缓存（直接存PNG的二进制字节数组TBytes即可，比流更轻量），记录最后一次截图的时间戳
• 截图时直接把输出写到内存，完全不碰磁盘，磁盘IO是当前方案最大的性能开销来源
• 注意TEdgeBrowser是UI控件，所有调用必须在主线程执行，工作线程触发截图时要同步到主线程

2. 增加截图节流逻辑，避免无效计算 #

不要固定每秒无脑截图：

• 每次收到/image请求时先判断：如果距离上次截图时间不足1秒，直接返回缓存的截图，不重复触发捕获
• 如果没有任何客户端请求图片，完全不需要执行截图操作，空跑的截图开销直接清零
• 如果业务要求必须每秒生成截图、不管有没有人访问，把截图逻辑放到单独和UI同步的后台任务里，不要阻塞HTTP请求线程

3. 优化HTTP传输逻辑，减少冗余带宽 #

• 给截图响应增加缓存标识：每次生成新截图时更新版本号/时间戳，响应头带上ETag和Last-Modified，客户端下次请求带匹配的缓存标识时直接返回304 Not Modified，不需要重复传输整张PNG图片
• 不要每次请求都重新从磁盘加载文件，直接从内存缓存复制数据返回即可
• 原来的前端meta刷新逻辑可以替换为轻量的JS轮询，避免整页重载，体验更流畅

核心参考代码 #

// 窗体私有成员定义
private
  ShotLock: TCriticalSection;
  LastShotTick: Cardinal;
  CachedShot: TBytes;
  const SHOT_INTERVAL = 1000; // 1秒更新间隔
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
  procedure CaptureToCache;
end;

constructor TMainForm.Create(AOwner: TComponent);
begin
  inherited;
  ShotLock := TCriticalSection.Create;
  LastShotTick := 0;
  CachedShot := nil;
end;

destructor TMainForm.Destroy;
begin
  ShotLock.Free;
  inherited;
end;

procedure TMainForm.CaptureToCache;
var
  Ms: TMemoryStream;
  Adapter: TStreamAdapter;
begin
  // TEdgeBrowser是UI控件，必须在主线程执行截图
  if GetCurrentThreadId <> MainThreadID then
    raise Exception.Create('截图操作需在主线程执行');

  Ms := TMemoryStream.Create;
  try
    Adapter := TStreamAdapter.Create(Ms, soReference);
    // 直接截图到内存流，完全不写磁盘
    EdgeBrowser1.CapturePreview(Adapter);
    Ms.Position := 0;
    ShotLock.Enter;
    try
      SetLength(CachedShot, Ms.Size);
      Ms.ReadBuffer(CachedShot[0], Ms.Size);
      LastShotTick := GetTickCount;
    finally
      ShotLock.Leave;
    end;
  finally
    Ms.Free;
  end;
end;

// IdHTTPServer1CommandGet事件中/image分支改造代码
else if ARequestInfo.Document = '/image' then
begin
  // 缓存过期才重新截图
  if GetTickCount - LastShotTick > SHOT_INTERVAL then
  begin
    // 同步到主线程更新截图缓存
    TThread.Synchronize(nil, CaptureToCache);
  end;

  ShotLock.Enter;
  try
    AResponseInfo.ResponseNo := 200;
    AResponseInfo.ContentType := 'image/png';
    AResponseInfo.LastModified := Now;
    AResponseInfo.ETag := '"' + IntToStr(LastShotTick) + '"';
    // 命中缓存直接返回304，不传输图片内容
    if ARequestInfo.IfNoneMatch = AResponseInfo.ETag then
    begin
      AResponseInfo.ResponseNo := 304;
      Exit;
    end;
    // 从内存缓存创建响应流，TIdHTTPServer会自动释放该流
    AResponseInfo.ContentStream := TIdBytesStream.Create(CachedShot);
  finally
    ShotLock.Leave;
  end;
end;

额外优化点 #

• 你原来定义的EOL = #13不符合HTTP规范，标准行尾是#13#10，虽然Indy大部分场景会自动兼容，但最好修正
• 如果需要更低延迟的画面传输，可以把meta刷新换成SSE（Server-Sent Events）或者MJPEG流，不用每次请求新建连接，实时性更好
• 多客户端并发请求时，临界区只会占用极短的内存复制时间，不会出现原方案里的文件锁冲突问题

内容的提问来源于stack exchange，提问作者stackman