Блог

Привет, товарищ stackoverflow,

Я повозился с delhi CEF4, фильтром ответов и попытался перехватить ответы load resource json. с демонстрационной версией, включенной здесь:

Но проблема выглядит так, как будто она может сработать только один раз.

Есть ли в любом случае способ заставить его срабатывать снова и снова. или каждый раз без перезагрузки страницы?

     procedure TResponseFilterBrowserFrm.Filter_OnFilter(Sender: TObject;
  data_in: Pointer; data_in_size: NativeUInt; var data_in_read: NativeUInt;
  data_out: Pointer; data_out_size: NativeUInt;
  var data_out_written: NativeUInt; var aResult: TCefResponseFilterStatus);
 

Я не понимаю, как это произошло.

Я попытался изменить:

 function TResponseFilterBrowserFrm.IsMyResource(const aRequest
  : ICefRequest): Boolean;
var
  TempName: string;
begin

  Result := True;

end;
 

но, похоже, его можно запустить только один раз.

Мне просто нужно добавить FRscCompleted := False; в конце этой процедуры.

процедура TResponseFilterBrowserFrm.StreamCopyCompleteMsg (переменная aMessage: TMessage);