BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

  ///
  // Initialize the response filter. Will only be called a single time. The
  // filter will not be installed if this function returns false (0).
  ///
  int(CEF_CALLBACK* init_filter)(struct _cef_response_filter_t* self);

  ///
  // Called to filter a chunk of data. Expected usage is as follows:
  //
  //  A. Read input data from |data_in| and set |data_in_read| to the number of
  //     bytes that were read up to a maximum of |data_in_size|. |data_in| will
  //     be NULL if |data_in_size| is zero.
  //  B. Write filtered output data to |data_out| and set |data_out_written| to
  //     the number of bytes that were written up to a maximum of
  //     |data_out_size|. If no output data was written then all data must be
  //     read from |data_in| (user must set |data_in_read| = |data_in_size|).
  //  C. Return RESPONSE_FILTER_DONE if all output data was written or
  //     RESPONSE_FILTER_NEED_MORE_DATA if output data is still pending.
  //
  // This function will be called repeatedly until the input buffer has been
  // fully read (user sets |data_in_read| = |data_in_size|) and there is no more
  // input data to filter (the resource response is complete). This function may
  // then be called an additional time with an NULL input buffer if the user
  // filled the output buffer (set |data_out_written| = |data_out_size|) and
  // returned RESPONSE_FILTER_NEED_MORE_DATA to indicate that output data is
  // still pending.
  //
  // Calls to this function will stop when one of the following conditions is
  // met:
  //
  //  A. There is no more input data to filter (the resource response is
  //     complete) and the user sets |data_out_written| = 0 or returns
  //     RESPONSE_FILTER_DONE to indicate that all data has been written, or;
  //  B. The user returns RESPONSE_FILTER_ERROR to indicate an error.
  //
  // Do not keep a reference to the buffers passed to this function.
  ///
  cef_response_filter_status_t(CEF_CALLBACK* filter)(
      struct _cef_response_filter_t* self,
      void* data_in,
      size_t data_in_size,
      size_t* data_in_read,
      void* data_out,
      size_t data_out_size,
      size_t* data_out_written);

Code: Select all

type
 TCefResponseFilter = class(TCefResponseFilterOwn)
  protected
    function InitFilter: Boolean; override;
    function Filter(dataIn: Pointer; dataInSize, dataInRead: NativeUInt; dataOut: Pointer;
     dataOutSize, dataOutWritten: NativeUInt): TCefResponseFilterStatus; override;
  public
    constructor Create;
  end;

constructor TCefResponseFilter.Create;
begin
  inherited Create;
end;

function TCefResponseFilter.InitFilter: Boolean;
begin
  result:=true;
end;

function TCefResponseFilter.Filter(dataIn: Pointer; dataInSize, dataInRead: NativeUInt; dataOut: Pointer;
      dataOutSize, dataOutWritten: NativeUInt): TCefResponseFilterStatus;
var test:ansistring;
begin
  if(dataIn = nil)then
   begin
     dataInRead := 0;
     dataOutWritten := 0;
     result:=RESPONSE_FILTER_DONE;
     exit;
   end;

//           I'm stuck here....

//          dataInRead = dataIn.Length;
//          dataOutWritten = Math.Min(dataInRead, dataOut.Length);
//          dataIn.CopyTo(dataOut);

    result:=RESPONSE_FILTER_DONE;
end;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

procedure Form1.OnGetResourceResponseFilter(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame;
  const request: ICefRequest; const response: ICefResponse; out Result: ICefResponseFilter);
begin
  result:=TCefResponseFilter.Create;
end;