Включение javascript и Cookies в IdHTTP

@Hardalternative · Регистрация: 30.01.2018

Author24 — интернет-сервис помощи студентам

На форме расположены Button1 и Memo1.
При нажатии на кнопку получаю Html код страницы и записываю его в Memo1.
Код работает идеально на всех сайтах, но вот на том что мне нужно место Html кода я получаю вот такое сообщения:

Код

<!doctype html><html><head><script src="/process-qv9ypsgmv9.js"></script></head><body><script>window.onload=function(){process();}</script><noscript><p>Please enable JavaScript and Cookies in your browser.</p></noscript></body></html>

Как включить javascript и Cookies в IdHTTP ?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP : TIdHTTP;
  Id_HandlerSocket : TIdSSLIOHandlerSocketOpenSSL;
begin
  IdHTTP := TIdHTTP.Create(Nil);
  Id_HandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
  try
    IdHTTP.Request.BasicAuthentication := False;
    IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
 
    Id_HandlerSocket.SSLOptions.Mode := sslmClient;
    Id_HandlerSocket.SSLOptions.Method := sslvSSLv23;
    IdHTTP.IOHandler := Id_HandlerSocket;
 
   memo1.lines.text := IdHTTP.Get('Тут URL сайта');
  Finally
    Id_HandlerSocket.Free;
    IdHTTP.Free;
  end;
end;

@mr-Crocodile · 25.01.2021, 10:21

Сообщение от Hardalternative

Как включить javascript и Cookies в IdHTTP ?

я не спец, но думаю, что тут тебе IdHTTP не помощник.
бери компонент на основе браузера - например, Chromium для делфи

@Hardalternative · 25.01.2021, 16:21 **[ТС]**

mr-Crocodile, Благодарен за наставление. Раз вариантов других нет то буду пробовать работать используя Chromium.

@Arcor · 17.01.2023, 02:02

Напишу в старую тему! Простите, нашел ответ, ка кэто сделать, ибо час назад поймал анлогичную ошибку и нашел эту тему, ну естественно, а так же нашел в ютубе https://www.youtube.com/watch?... dAsadullah

у Hardalternative там надо найти функцию javascript process() и докопаться до нее, что она выплюнет

мне дало такой код... размотав его, удалось в инете найти по функции "slowAES" целый модуль, прикрутив его к тестовому проекту, вывел в общем ключ

Кликните здесь для просмотра всего текста

Javascript

<html>
<header>
 
<script type="text/javascript" src="aes.js" >
</script>
 
<script>
 
function toNumbers(d)
{
    var e=[];
    d.replace(/(..)/g,
        function(d)
        {
            e.push(parseInt(d,16))
        });
return e
}
 
function toHex()
{
for(var d=[],d=1==arguments.length&&arguments[0].constructor==Array?arguments[0]:arguments,e="",f=0;f<d.length;f++)e+=(16>d[f]?"0":"")+d[f].toString(16);return e.toLowerCase()
}
 
var 
    a=toNumbers("f655ba9d09a112d4968c63579db590b4"),
    b=toNumbers("98344c2eee86c3994890592585b49f80"), 
    c=toNumbers("3f8b8fa4738e5a067436fc1949017268");
 
 
document.cookie="__test=" + toHex(slowAES.decrypt(c,2,a,b)) + "; expires=Thu, 31-Dec-37 23:55:55 GMT; path=/"; 
//location.href="тут ссылка...";
alert(document.cookie);
 
</script>
</header>
 
 
<noscript>This site requires Javascript to work, please enable Javascript in your browser or use a browser with Javascript support</noscript>
<body>  
</body>
 
</html>

но все это можно было сделать коротким путем... Но я до него уже позже додумался. когда понял что происходит..
это в мозиле на F12, там во вкладке типа веб-хранилище или как-то так по русски))

далее вот примерно так создать куки уже в дельфи

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var SL: TStringList;
    R: String;
    U: String;
    URI: TIdURI;
begin
 
  SL := TStringList.Create;
  SL.Add('Name=kakalaka');
  SL.Add('Age=123');
 
  U := 'тут ссылка ...';
  URI := TIdURI.Create(U);
 
  IdHTTP1.CookieManager := TIdCookieManager.Create(Self);
  IdHTTP1.CookieManager.AddServerCookie('__test=fb8fa4d293b119ab5552abaadbb5fced; expires=Thu, 31-Dec-37 23:55:55 GMT; path=/', URI);
 
  R := IdHTTP1.Post(U, SL);
 
  FreeAndNil(URI);
  FreeAndNil(SL);
 
  Memo1.Lines.Add(R);
end;

Если будет что-то аналогичное, боритесь до конца и у вас все получится

@mr-Crocodile 3017 / 1642 / 649 Регистрация: 19.03.2019 Сообщений: 5,315
	25.01.2021, 10:21	2
	Сообщение от Hardalternative Как включить javascript и Cookies в IdHTTP ? я не спец, но думаю, что тут тебе IdHTTP не помощник. бери компонент на основе браузера - например, Chromium для делфи 1

@Hardalternative 3 / 3 / 0 Регистрация: 30.01.2018 Сообщений: 409
	25.01.2021, 16:21 [ТС]	3
	mr-Crocodile, Благодарен за наставление. Раз вариантов других нет то буду пробовать работать используя Chromium. 0

	17.01.2023, 02:02

Включение javascript и Cookies в IdHTTP

Решение