I can get header information for Response object.
- Code: Select all
procedure TForm_Main.Chromium1ResourceResponse(Sender: TObject;
browser: ICefBrowser; frame: ICefFrame; request: ICefRequest;
response: ICefResponse; out Result: Boolean);
var
i:integer;
headerMap:ICefStringMultimap;
begin
headerMap := TCefStringMultimapOwn.Create;
response.GetHeaderMap(headerMap);
if headerMap.Size <> 0 then for i := 0 to headerMap.Size - 1 do memo1.lines.add(PWideChar(headerMap.Key[i] + ': ' + headerMap.Value[i]));
Result:=false;
end;
But;
I couldn't reach the body text. Is there an easier way to do this ?