pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-12-13 21:45:55 +02:00
Code Issues Actions Releases Activity

PostDataInspector demo

Browse Source
This commit is contained in:
Salvador Díaz Fau
2017-08-22 18:35:04 +02:00
parent 8611789f26
commit 7f75c50c0b
41 changed files with 3451 additions and 1235 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
demos/MiniBrowser/uMiniBrowser.pas
View File

@@ -416,9 +416,14 @@ begin
Result := False;
if (frame <> nil) and frame.IsMain and (response <> nil) and (request <> nil) then
FResponse := 'URL : ' + request.Url + #13 + #10 +
'Status : ' + inttostr(response.Status) + #13 + #10 +
'MimeType : ' + response.MimeType;
begin
FResponse := 'URL : ' + request.Url + #13 + #10 +
'Status : ' + inttostr(response.Status) + #13 + #10 +
'MimeType : ' + response.MimeType;
if (request.postdata <> nil) then
FResponse := FResponse + #13 + #10 + 'Post data elements : ' + inttostr(request.postdata.GetCount);
end;
end;
procedure TMiniBrowserFrm.ShowStatusText(const aText : string);