22-11-2022, Saat: 18:25
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.
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;

