Lazarus 上好用的WVbrowser控件

fjkk

Lazarus 2.2.4    2.2.6  3.0 上好用的WVbrowser控件




user
uWVWindowParent, uWVBrowser,uWVLoader,


窗体上放入 WVWindowParent1 和 WVbrowser1 控件



    if GlobalWebView2Loader.Initialized then
    begin
    WVBrowser1.CreateBrowser(WVWindowParent1.Handle);   

    end;

   WVBrowser1.Navigate(utf8decode(url));   




以下加入在文件尾部


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

fjkk

获取 Cookie


procedure TForm1.WVBrowser1GetCookiesCompleted(Sender: TObject;
  aResult: HRESULT; const aCookieList: ICoreWebView2CookieList);
var
tcl:TCoreWebView2CookieList;
tc:TCoreWebView2Cookie;
i:integer;
tem:string;
begin
  tcl:=nil;
  tc:=nil;
  memo1.Clear;
  tcl:=TCoreWebView2CookieList.Create(acookielist);
  tc:=TCoreWebView2Cookie.Create(nil);
  try
  if assigned(acookielist) then
  begin
    for i:=0 to tcl.Count do
    begin
      tc.BaseIntf :=tcl.Items[i];
      tem:=utf8encode(tc.Name)+':'+ utf8encode(tc.Value);
      memo1.Lines.Insert (0,tem);
    end;
    memo1.Lines.Insert (0,utf8encode(tc.Domain));
  end;

  finally
          if assigned(tcl) then
        FreeAndNil(tcl);

      if assigned(tc) then
        FreeAndNil(tc);
  end;
end;                                            



procedure TForm1.Button1Click(Sender: TObject);
begin
   WVBrowser1.GetCookies;
end;  

xcit

此控件超级好用！已经尝试使用，轻松解决问题。