Lazarus中文社区

 找回密码
 立即注册(注册审核可向QQ群索取)

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 1376|回复: 5

[界面] Lazarus 上好用的WVbrowser控件

[复制链接]

该用户从未签到

发表于 2023-7-12 00:54:57 | 显示全部楼层 |阅读模式
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;
                                             


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册(注册审核可向QQ群索取)

x
回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2023-7-12 01:00:44 | 显示全部楼层
获取 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;  

点评

海!外直播 bitly.net/gggii 禁闻视频 bitly.net/55pppp 医院成了屠宰场;学校成了洗脑班;酒店成了办公处;道德成了奢侈品;人民成了提款机;新闻成了编故事;官员成了奴隶主;国家成了大监狱…中国真实现状  发表于 2024-4-5 02:32
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2023-7-30 08:54:55 | 显示全部楼层
此控件超级好用!已经尝试使用,轻松解决问题。
回复 支持 反对

使用道具 举报

*滑块验证:

本版积分规则

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1 )

GMT+8, 2024-4-20 14:30 , Processed in 0.065578 second(s), 10 queries , Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表