Delphi Can

Orjinalini görmek için tıklayınız: Çerez temizleme
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
Merhaba,

Aşağıdaki TIdHTTP, TIdCookieManager ve TIdSSLIOHandlerSocketOpenSSL ile web siteden verileri alıyorum, 

Chrome, Edge vb. browserlarla test yaptım çerezleri temizleyince verileri tam alabiliyorum. Kendi kodlarımda çerezleri nasıl? temizlerim.


    IdHTTP := TIdHTTP.Create(Nil);
    IdCookieManager := TIdCookieManager.Create(Nil);
    IdSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(Nil);
    IdHTTP.IOHandler := IdSSLIOHandler;
    IdHTTP.AllowCookies := True;
    IdHTTP.CookieManager := IdCookieManager;
    IdHTTP.HandleRedirects := True;
    IdHTTP.Request.CustomHeaders.AddValue('X-Forwarded-For', Format('%d.%d.%d.%d', [Random(255), Random(255), Random(255), Random(255)]));
    IdHTTP.Request.UserAgent := Format('Mozilla/%d.0 (Windows NT %d.%d; rv:2.0.1) Gecko/20100101 Firefox/%d.%d.%d', [RandomRange(3, 5), Random(2), RandomRange(3, 5), Random(5), Random(5), Random(5)]);
    IdHTTP.Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    IdHTTP.Request.AcceptLanguage := 'en-GB,en;q=0.5';
    IdHTTP.Request.Connection := 'keep-alive';
    IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
    IdSSLIOHandler.SSLOptions.SSLVersions := [sslvTLSv1_2];
    IdHTTP.IOHandler := IdSSLIOHandler;
    IdHTTP.HandleRedirects := True;
IdCookieManager nesneniz var, bunun uzerinden temizleyebilir ya da kaydedilmesini engelleyebilirsiniz.