Resource Response
Posted: Mon May 04, 2020 5:25 pm
Hi Guys, my site call a .js file and return to me a JSON, exist some way to get this JSON in OnResourceResponse event. MiniBrowser can get the headers with this code, but i need get the JSON result, exist some way to do that?
Thanks from some help.
procedure TMiniBrowserFrm.Chromium1ResourceResponse(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame;
const request: ICefRequest; const response: ICefResponse;
out Result: Boolean);
begin
Result := False;
if Chromium1.IsSameBrowser(browser) and (frame <> nil) and frame.IsMain and
frame.IsValid then
InspectResponse(response);
end;
procedure TMiniBrowserFrm.InspectResponse(const aResponse: ICefResponse);
var
TempHeaderMap: ICefStringMultimap;
i, j: Integer;
begin
if (aResponse <> nil) then
begin
FResponse.Clear;
TempHeaderMap := TCefStringMultimapOwn.Create;
aResponse.GetHeaderMap(TempHeaderMap);
i := 0;
j := TempHeaderMap.Size;
while (i < j) do
begin
FResponse.Add(TempHeaderMap.Key + '=' + TempHeaderMap.value);
inc(i);
end;
end;
end;
Thanks from some help.
procedure TMiniBrowserFrm.Chromium1ResourceResponse(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame;
const request: ICefRequest; const response: ICefResponse;
out Result: Boolean);
begin
Result := False;
if Chromium1.IsSameBrowser(browser) and (frame <> nil) and frame.IsMain and
frame.IsValid then
InspectResponse(response);
end;
procedure TMiniBrowserFrm.InspectResponse(const aResponse: ICefResponse);
var
TempHeaderMap: ICefStringMultimap;
i, j: Integer;
begin
if (aResponse <> nil) then
begin
FResponse.Clear;
TempHeaderMap := TCefStringMultimapOwn.Create;
aResponse.GetHeaderMap(TempHeaderMap);
i := 0;
j := TempHeaderMap.Size;
while (i < j) do
begin
FResponse.Add(TempHeaderMap.Key + '=' + TempHeaderMap.value);
inc(i);
end;
end;
end;