delphi - Clear Cookies in TChromium -

-

how clear cookies in cef3.1547 have tried following solution nothing. cookies still present. there better solution this?

procedure tform1.button1click(sender: tobject); var   cookiemanager: icefcookiemanager; begin   // login site   cookiemanager := tcefcookiemanagerref.getglobalmanager;   cookiemanager.visitallcookiesproc(     function(const name, value, domain, path: ustring; secure, httponly,       hasexpires: boolean; const creation, lastaccess, expires: tdatetime;       count, total: integer; out deletecookie: boolean): boolean     begin       deletecookie := true;       showmessage('a cookie domain ' + domain + ' unmercifully ' +         'deleted!');     end   );   // visit site again see if cookies cleared.. end;

use code delete cookies chromium version cef3:

use c_wb_clearcookies deleating cookies

use c_wb_clear_url_cookies deleating cookies 1 speceally url -> c_wb_clear_url_cookies('http://google.com','cookie_name');

type   ceftask = class(tceftaskown)     procedure execute; override;      public     var url,cookiename: ustring;     constructor create; virtual;   end;  constructor ceftask.create; begin   inherited create;   url := '';   cookiename := ''; end;  procedure ceftask.execute; var cookiemanager: icefcookiemanager; begin   cookiemanager := tcefcookiemanagerref.global;   cookiemanager.deletecookies(url,cookiename); end;  procedure c_wb_clearcookies; var task: ceftask; begin   task := ceftask.create;   cefposttask(tid_io, task); end;  // c_wb_clear_url_cookies('http://google.com','cookie_name'); procedure c_wb_clear_url_cookies(c_url,c_cookiename: ustring); var task: ceftask; begin   task := ceftask.create;   task.url := c_url;   task.cookiename := c_cookiename;   cefposttask(tid_io, task); end;

for list cookies cookiename use procedure list_all_cookies

procedure pausek; var m: tmsg; begin   while peekmessage(m, 0, 0, 0, pm_remove)     begin       translatemessage(m);       dispatchmessage(m);     end; end;  procedure pause(i:longint); var j : nativeint; begin   j := 1     begin       pausek;       sleep(100);     end; end;    procedure list_all_cookies; var cookiemanager: icefcookiemanager;     cookie_list : string; const lf = chr(13) + chr(10);  begin    cookie_list := '';    cookiemanager := tcefcookiemanagerref.global;    cookiemanager.visitallcookiesproc(      function(const name, value, domain, path: ustring; secure, httponly,        hasexpires: boolean; const creation, lastaccess, expires: tdatetime;        count, total: integer; out deletecookie: boolean): boolean      begin        cookie_list := cookie_list + inttostr(count) + ': ' +  domain + ' - ' + name + ' - ' + value + ' - ' + path + lf;       if (count<total) result := true;      end    );    pause(10);    showmessage(cookie_list); end;

Comments

Post a Comment

Popular posts from this blog

wordpress - (T_ENDFOREACH) php error -

-
creating wordpress website , i'm getting following php error: parse error: syntax error, unexpected 'endforeach' (t_endforeach) in /home/soralmedia/public_html/wp-content/themes/soral media/woocommerce/myaccount/my-orders.php on line 98 here's code file: <?php /** * orders * * shows recent orders on account page. * * template can overridden copying yourtheme/woocommerce/myaccount/my-orders.php. * * however, on occasion woocommerce need update template files , (the theme developer). * need copy new files theme maintain compatibility. try this. * little possible, happen. when occurs version of template file will. * bumped , readme list important changes. * * @see http://docs.woothemes.com/document/template-structure/ * @author woothemes * @package woocommerce/templates * @version 2.5.0 */ if ( ! defined( 'abspath' ) ) { exit; } $my_orders_columns = apply_filters( 'woocommerce_my_account_my_orders_columns', array( ...
Read more

Export Excel workseet into txt file using vba - (text and numbers with formulas) -

-
i new vba have developed code use in excel move text/numbers txt file. issue have 3 functions need go same txt file. when run first function has set fs = createobject("scripting.filesystemobject") set = fs.createtextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the other 2 functions had save. set fs = createobject("scripting.filesystemobject") set = fs.savetextfile(module1.nys45uploadfilename, true) a.writeline (str) a.close. the first function go txt file, other 2 error object doesn't support property or method. when changed 3 create last function goes txt file. can not figure out word use in order make other 2 functions follow txt file in order keyed. the entire code follows private sub addrecord_click() on error goto errhandler module1.nys45uploadfilename = application.getsaveasfilename(filefilter:="textfiles (*.txt), *.txt") if module1.nys45uploadfilename = "false" exit sub ...
Read more

Using django-mptt to get only the categories that have items -

-
sample structure: all uppercase: category mixed case: item root ├── books │   ├── fiction │   │   └── classics │   └── non-fiction ├── clothing └── electronics ├── laptops ├── phones │   ├── apple │   │   ├── iphone 6 │   │   ├── iphone 6 plus │   │   ├── iphone 6s │   │   └── iphone 6s plus │   ├── motorola │   │   ├── moto g4 │   │   ├── moto g4 play │   │   ├── moto g4 plus │   │   └── moto x │   └── samsung └── tablets └── apple i'm trying have index page show "electronics" category. "clothing" category shouldn't show since it's empty , "books" category shouldn't show either since, although has child categories, child categories don't have items. similarly, "electronics" page should show "phones" category. "laptops" category shouldn't show since it's empty , "tablets" category shouldn't show either since...
Read more