View Request.PostData to str

[dilfich]

Hi!
Please, show an example of how to do it?

[salvadordf]

Hi,

Take a look at the PostDataInspector demo.

[dilfich]

There not showing PostData
These data are how to see?

[salvadordf]

Hi,

The OnBeforeNavigation is handled in the GlobalCEFApp_OnBeforeNavigation procedure, inside the DPR file.

In that procedure you have the request with all the information you asked.

request.PostData.GetElements will give you a list of ICefPostDataElement interfaces which have the posted data.

Then you can use ICefPostDataElement.GetBytesCount and ICefPostDataElement.GetBytes to get the information from that element.

[dilfich]

Correctly?

Code: Select all

  if (request = nil) then
    TempString := 'no request'
   else
    if (request.postdata = nil) then
      TempString := 'no postdata'
     else begin
      Plist := Request.postData.GetElements(Request.postData.GetCount);
      for i:=0 to Plist.Count-1 do
            PElement:= Plist[i] as ICefPostDataElement;
      TempString := 'postdata elements : ' + inttostr(PElement.GetBytesCount);
     end;

But as for the string, I just don't understand..?

[salvadordf]

Use the TStringStream class with the TStringStream.WriteBuffer function.

I haven't tested this but you might have to set the right encoding when you create the TStringStream instance.

[mike2k]

Correctly?

Code: Select all

  if (request = nil) then
    TempString := 'no request'
   else
    if (request.postdata = nil) then
      TempString := 'no postdata'
     else begin
      Plist := Request.postData.GetElements(Request.postData.GetCount);
      for i:=0 to Plist.Count-1 do
            PElement:= Plist[i] as ICefPostDataElement;
      TempString := 'postdata elements : ' + inttostr(PElement.GetBytesCount);
     end;

But as for the string, I just don't understand..?

Hi dilfich,

Did you managed to get the POST as strings ?


EDIT:
I've found the solution

Code: Select all

SetLength(myAnsiString, PElement.GetBytesCount);
PElement.GetBytes(PElement.GetBytesCount, PAnsiChar(myAnsiString));

myAnsiString will have the POST data in it

[dilfich]

TShowPostDataInfo(const aPostData : ICefPostData);

Chromium1BeforeResourceLoad....
if request.Method = 'POST' then TShowPostDataInfo(Request.PostData);

Your design from the examples works fine! But how to see the response of POST request?

[dilfich]

To clarify, the POST request was made through JS or JONS of the page itself and in the browser itself through RetrieveText or RetrieveHTML response can not be obtained.
For example in procedure Chromium1ResourceResponse perhaps can be as the get the answer?

[salvadordf]

Try the TChromium.OnResourceResponse event.

The MiniBrowser has the code that reads the response in TMiniBrowserFrm.Chromium1ResourceResponse which calls TMiniBrowserFrm.InspectResponse

I'm not 100% sure it will work with requests made from JavaScript.