Get Content from Network request

[nanaksr]

Hello,

How to retrieve data from the network request response as shown below.



I've tried looking at the MiniBrowser demo, but it's only fetching the Key & Value headers, I want to fetch its contents.

[salvadordf]

Hi,

The MiniBrowser demo gets the contents of the HTML file that is used in the "Save resource as..." menu option. You can do the same to get that JSON data.

You need to be able to identify the request with the JSON contents.

You will need to call TWVBrowser.AddWebResourceRequestedFilter with a COREWEBVIEW2_WEB_RESOURCE_CONTEXT_XML_HTTP_REQUEST or COREWEBVIEW2_WEB_RESOURCE_CONTEXT_ALL parameter. See the WVBrowser1AfterCreated procedure in MiniBrowser.

Implement the TWVBrowser.OnWebResourceResponseReceived event like this :
https://github.com/salvadordf/WebView4Delphi/blob/3217ffe723e053b875e73d4dc34a3b4d0d24a126/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas#L878

Declare a "TempRequest" variable as TCoreWebView2WebResourceRequestRef and create it like this to compare the TempRequest.URI if necessary :

Code: Select all

TempRequest := TCoreWebView2WebResourceRequestRef.Create(TempArgs.Request);

Then call TempResponse.GetContent(TempHandler); and implement TWVBrowser.OnWebResourceResponseViewGetContentCompleted to get the contents like this :
https://github.com/salvadordf/WebView4Delphi/blob/3217ffe723e053b875e73d4dc34a3b4d0d24a126/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas#L898

[nanaksr]

I try with

Code: Select all

procedure TForm1.WVBrowser1AfterCreated(Sender: TObject);
begin
  WVWindowParent1.UpdateSize;
  WVBrowser1.AddWebResourceRequestedFilter('*', COREWEBVIEW2_WEB_RESOURCE_CONTEXT_ALL);
//  WVBrowser1.AddWebResourceRequestedFilter('*', COREWEBVIEW2_WEB_RESOURCE_CONTEXT_XML_HTTP_REQUEST);
end;

procedure TForm1.WVBrowser1WebResourceResponseReceived(Sender: TObject;
  const aWebView: ICoreWebView2;
  const aArgs: ICoreWebView2WebResourceResponseReceivedEventArgs);
var
  TempArgs     : TCoreWebView2WebResourceResponseReceivedEventArgs;
  TempResponse : TCoreWebView2WebResourceResponseView;
  TempRequest  : TCoreWebView2WebResourceRequestRef;
  TempHandler  : ICoreWebView2WebResourceResponseViewGetContentCompletedHandler;
begin
  try
    TempArgs     := TCoreWebView2WebResourceResponseReceivedEventArgs.Create(aArgs);
    TempRequest  := TCoreWebView2WebResourceRequestRef.Create(TempArgs.Request);
    TempHandler  := TCoreWebView2WebResourceResponseViewGetContentCompletedHandler.Create(WVBrowser1);

    Memo1.Lines.Add(TempRequest.URI);

    if TempRequest.URI = 'https://mcm2.bankmandiri.co.id/corporate/loginfo/getApmUrl' then
      TempResponse.GetContent(TempHandler);

  finally
    FreeAndNil(TempRequest);
    FreeAndNil(TempArgs);
    TempHandler := nil;
  end;
end;

procedure TForm1.WVBrowser1WebResourceResponseViewGetContentCompleted(
  Sender: TObject; aErrorCode: HRESULT; const aContents: IStream;
  aResourceID: Integer);
var
  TempOLEStream : TOLEStream;
begin
  TempOLEStream := nil;
  try
    if succeeded(aErrorCode) and assigned(aContents) then
      begin

        TempOLEStream          := TOLEStream.Create(aContents);
        TempOLEStream.Position := 0;

        if (TempOLEStream.Size > 0) then
          begin
            SetLength(FResourceContents, TempOLEStream.Size);
            TempOLEStream.Read(FResourceContents, TempOLEStream.Size);
          end;
      end;
  finally
    if assigned(TempOLEStream) then
      FreeAndNil(TempOLEStream);
  end;
end;

Error In

Code: Select all

function TCoreWebView2WebResourceResponseView.GetInitialized : boolean;
begin
  Result := assigned(FBaseIntf);
end;

[salvadordf]

TempResponse has to be created before getting TempResponse.URI. Add this line :

Code: Select all

TempResponse := TCoreWebView2WebResourceResponseView.Create(TempArgs.Response);

[nanaksr]

Many Thanks Perfect Working

[hamden]

Hi;
I modified the SimpleBrowser_D7 source to implement all necessary and required events in order to take that response (taken from token endpoint);
Delphi 7 version below;
First place a memo on the form;
It is working properly and the response will added in the memo line;

Code: Select all

unit uSimpleBrowser;

interface

{$I webview2.inc}

uses
  {$IFDEF DELPHI16_UP}
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.ComCtrls, Vcl.StdCtrls,
  {$ELSE}
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls, ComCtrls, StdCtrls,
  {$ENDIF}
  uWVBrowser, uWVWinControl, uWVWindowParent, uWVTypes, uWVConstants, uWVTypeLibrary,
  uWVLibFunctions, uWVLoader, uWVInterfaces, uWVCoreWebView2Args,
  uWVBrowserBase, uWVCoreWebView2WebResourceResponseView, uWVCoreWebView2WebResourceRequest,
  uWVCoreWebView2Delegates, ActiveX, AxCtrls;

type
  TMainForm = class(TForm)
    WVWindowParent1: TWVWindowParent;
    Timer1: TTimer;
    WVBrowser1: TWVBrowser;
    AddressPnl: TPanel;
    AddressCb: TComboBox;
    GoBtn: TButton;
    Memo1: TMemo;

    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure GoBtnClick(Sender: TObject);

    procedure WVBrowser1AfterCreated(Sender: TObject);
    procedure WVBrowser1DocumentTitleChanged(Sender: TObject);
    procedure WVBrowser1InitializationError(Sender: TObject; aErrorCode: HRESULT; const aErrorMessage: wvstring);
    procedure WVBrowser1WebResourceResponseReceived(Sender: TObject;
      const aWebView: ICoreWebView2;
      const aArgs: ICoreWebView2WebResourceResponseReceivedEventArgs);
    procedure WVBrowser1WebResourceResponseViewGetContentCompleted(
      Sender: TObject; aErrorCode: HRESULT; const aContents: IStream;
      aResourceID: Integer);

  protected
    // It's necessary to handle these messages to call NotifyParentWindowPositionChanged or some page elements will be misaligned.
    procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
    procedure WMMoving(var aMessage : TMessage); message WM_MOVING;
  public
    { Public declarations }
    function MemoryStreamToString(M: TMemoryStream): AnsiString;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

// This is a demo with the simplest web browser you can build using WebView4Delphi and
// it doesn't show any sign of progress like other web browsers do.

// Remember that it may take a few seconds to load if Windows update, your antivirus or
// any other windows service is using your hard drive.

// Depending on your internet connection it may take longer than expected.

// Please check that your firewall or antivirus are not blocking this application
// or the domain "bing.com".

// The "initialization" section in this unit loads GlobalWebView2Loader which will create
// the global environment asynchronously.

// The browser needs the global environment but the form might be created before that so we
// use a simple timer to create the browser in case the environment is not ready when
// TForm.OnShow is triggered.

// GlobalWebView2Loader will be destroyed automatically in the "finalization" section of
// uWVLoader.pas. All browsers should be already destroyed before GlobalWebView2Loader
// is destroyed.

procedure TMainForm.FormShow(Sender: TObject);
begin
  if GlobalWebView2Loader.InitializationError then
    showmessage(GlobalWebView2Loader.ErrorMessage)
   else
    if GlobalWebView2Loader.Initialized then
      WVBrowser1.CreateBrowser(WVWindowParent1.Handle)
     else
      Timer1.Enabled := True;
end;

procedure TMainForm.GoBtnClick(Sender: TObject);
begin
  WVBrowser1.Navigate(AddressCb.Text);
end;

procedure TMainForm.WVBrowser1AfterCreated(Sender: TObject);
begin
  WVWindowParent1.UpdateSize;
  WVWindowParent1.SetFocus;
  Caption := 'SimpleBrowser';
  AddressPnl.Enabled := True;
  WVBrowser1.AddWebResourceRequestedFilter('*', COREWEBVIEW2_WEB_RESOURCE_CONTEXT_ALL);
  //WVBrowser1.AddWebResourceRequestedFilter('*', COREWEBVIEW2_WEB_RESOURCE_CONTEXT_XML_HTTP_REQUEST);
end;

procedure TMainForm.WVBrowser1DocumentTitleChanged(Sender: TObject);
begin
  Caption := 'SimpleBrowser - ' + WVBrowser1.DocumentTitle;
end;

procedure TMainForm.WVBrowser1InitializationError(Sender: TObject;
  aErrorCode: HRESULT; const aErrorMessage: wvstring);
begin
  showmessage(aErrorMessage);
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;

  if GlobalWebView2Loader.Initialized then
    WVBrowser1.CreateBrowser(WVWindowParent1.Handle)
   else
    Timer1.Enabled := True;
end;

procedure TMainForm.WMMove(var aMessage : TWMMove);
begin
  inherited;

  if (WVBrowser1 <> nil) then
    WVBrowser1.NotifyParentWindowPositionChanged;
end;

procedure TMainForm.WMMoving(var aMessage : TMessage);
begin
  inherited;

  if (WVBrowser1 <> nil) then
    WVBrowser1.NotifyParentWindowPositionChanged;
end;

procedure TMainForm.WVBrowser1WebResourceResponseReceived(Sender: TObject;
  const aWebView: ICoreWebView2;
  const aArgs: ICoreWebView2WebResourceResponseReceivedEventArgs);
var
  TempArgs: TCoreWebView2WebResourceResponseReceivedEventArgs;
  TempResponse : TCoreWebView2WebResourceResponseView;
  TempRequest  : TCoreWebView2WebResourceRequestRef;
  TempHandler  : ICoreWebView2WebResourceResponseViewGetContentCompletedHandler;
  statusCode: integer;
begin
  try
    TempArgs     := TCoreWebView2WebResourceResponseReceivedEventArgs.Create(aArgs);
    TempRequest  := TCoreWebView2WebResourceRequestRef.Create(TempArgs.Request);
    TempHandler  := TCoreWebView2WebResourceResponseViewGetContentCompletedHandler.Create(WVBrowser1);
    TempResponse := TCoreWebView2WebResourceResponseView.Create(TempArgs.Response);

    Memo1.Lines.Add(TempRequest.URI);

    if TempRequest.URI = 'https://mywebsite/auth/token' then
    begin
      TempResponse.GetContent(TempHandler);
      statusCode := TempResponse.StatusCode;
      Memo1.Lines.Add('statusCode: ' + IntToStr(statusCode) + ' TempRequest.Method ' + TempRequest.Method)
    end;

  finally
    FreeAndNil(TempRequest);
    FreeAndNil(TempArgs);
    TempHandler := nil;
  end;
end;

procedure TMainForm.WVBrowser1WebResourceResponseViewGetContentCompleted(
  Sender: TObject; aErrorCode: HRESULT; const aContents: IStream;
  aResourceID: Integer);
var
  tempOLEStream : TOLEStream;
  temp: Largeint;
  memoryStream: TMemorystream;
  strContents: string;
begin
  TempOLEStream := nil;
  MemoryStream := TMemoryStream.Create;
  try
    if succeeded(aErrorCode) and assigned(aContents) then
      begin
        aContents.Seek(0, STREAM_SEEK_SET, Temp);
        tempOLEStream := TOLEStream.Create(aContents);
        tempOLEStream.Position := 0;

        if (TempOLEStream.Size > 0) then
          begin
            MemoryStream.CopyFrom(tempOLEStream, tempOLEStream.Size);
            strContents := MemoryStreamToString(memoryStream);
            Memo1.Lines.Add(strContents);
          end;
      end;
  finally
    if assigned(TempOLEStream) then
      FreeAndNil(TempOLEStream);
  end;
end;

function TMainForm.MemoryStreamToString(M: TMemoryStream): AnsiString;
begin
  SetString(Result, PAnsiChar(M.Memory), M.Size);
end;

initialization
  GlobalWebView2Loader                := TWVLoader.Create(nil);
  GlobalWebView2Loader.UserDataFolder := ExtractFileDir(Application.ExeName) + '\CustomCache';
  GlobalWebView2Loader.StartWebView2;

end.