BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

type
  TWebInterceptHandler = class(TCefResourceHandlerOwn)
  private
    FDataStream: TMemoryStream;
    FResponseHeadersReadyCallback: ICefCallback;
    FOffsetRead: NativeUInt;
    FResponse: ICefResponse;
  protected
    function ProcessRequest(const Request: ICefRequest;
      const Callback: ICefCallback): Boolean; override;
    procedure GetResponseHeaders(const Response: ICefResponse;
      out ResponseLength: Int64; out RedirectUrl: ustring); override;
    function ReadResponse(const DataOut: Pointer; BytesToRead: Integer;
      var BytesRead: Integer; const Callback: ICefCallback): Boolean; override;
  public
    constructor Create(const Browser: ICefBrowser; const Frame: ICefFrame;
      const SchemeName: ustring; const Request: ICefRequest); override;
    destructor Destroy; override;
  end;
  
  type
  TWebInterceptHandlerClient = class(TCefUrlRequestClientOwn)
  private
    FResourceHandler: TWebInterceptHandler;
  protected
    procedure OnDownloadData(const Request: ICefUrlRequest; Data: Pointer;
      DataLength: NativeUInt); override;
    procedure OnRequestComplete(const Request: ICefUrlRequest); override;
  end;
  
 procedure TWebInterceptHandlerClient.OnDownloadData(const Request
  : ICefUrlRequest;  Data: Pointer; DataLength: NativeUInt);
begin
  inherited;
    if (Request.GetRequest.ResourceType = RT_IMAGE) then
    begin
      if Request.GetRequest.Url='http://site.com/1.gif' then
      FDataStream.LoadFromFile(pathtofile + '1.gif') else
      FDataStream.Write(Data^, DataLength);
    end else
      FDataStream.Write(Data^, DataLength);
end; 

Code: Select all

		if (data_out <> nil) then
                begin
                  data_out_written := min(data_in_size, data_out_size);
                  if FStream.Position<FRscSize then
                  FStream.ReadData(data_out,data_out_written);
                end;

                if not(FRscCompleted) and (FRscSize <> -1) and (FRscSize = FStream.Position) then
                  begin
                    FRscCompleted := PostMessage(Handle, STREAM_COPY_COMPLETE, 0, 0);
                    aResult       := RESPONSE_FILTER_DONE;
                  end
                 else
                  aResult := RESPONSE_FILTER_NEED_MORE_DATA;

Code: Select all

    chromium1.CustomHeaderName := 'Cache-Control';
    chromium1.CustomHeaderValue := 'no-cache';

Code: Select all

 chromium1.CustomHeaderName := 'Cache-Control';
 chromium1.CustomHeaderValue := 'no-cache';