在TISAPIRequest (Delphi10.1 Datasnap Server)上添加自定义标头

procedure TMyISAPIRequestHandler.HandleRequest(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  ISAPIRequest: TISAPIRequest;
  RawRequest: string;
  ISAPIECB: PEXTENSION_CONTROL_BLOCK;
begin
  // 获取TISAPIRequest对象
  ISAPIRequest := TISAPIRequest(Sender);

  // 获取原始HTTP请求
  RawRequest := ISAPIRequest.RawWebRequest;

  // 获取ISAPI扩展控制块
  ISAPIECB := ISAPIRequest.ECB;

  // 添加自定义标头
  ISAPIECB^.cbAvailable := ISAPIECB^.cbAvailable + Length('CustomHeader: CustomValue'#13#10);

  // 发送修改后的HTTP响应头
  ISAPIRequest.SendResponseHeader('CustomHeader: CustomValue');

  // 处理其他请求逻辑...

  Handled := True;
end;