Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Апр

Как получить captcha с сайта

Posted by Chas under Delphi

Кольша

HTTP:=THTTPSend.Create;

with HTTP do begin

Headers.Add('Referer: http://www.icq.com/join/en');

Headers.Add('Accept: application/json, text/javascript, */*');

MimeType:='application/x-www-form-urlencoded';

UserAgent:=GetRandomUserAgent;

Headers.Add('Origin: http://www.icq.com');

Headers.Add('Accept-Language: en-US,en;q=0.8,ru;q=0.6');

Headers.Add('Accept-Encoding: gzip,deflate,sdch');

Headers.Add('Connection: keep-alive');

end;

if http.HTTPMethod('GET', 'http://www.icq.com/join/en') then begin

html:=TStringList.Create;

html.LoadFromStream(http.Document);

captchaimg:=Pars('class="captcha_image captcha__image_new" src="', html.Text, '"');

HTTP.Headers.Clear;

http.Document.clear;

HTTP.HTTPMethod('GET', captchaimg);

http.Document.SaveToFile('captcha.jpeg');

HTTP.Headers.Clear;

http.Document.clear;