I can’t get the HTML code from this page: http://brutezone.ru/srv/freshproxy/ it opens quite a long time in a regular browser, which is why I tried to increase the timeout but this did not help

I use this code: (user agent and referrer are specified as in a normal browser)

idhttp1.ConnectTimeout:=99999999999999; idhttp1.readTimeout:=9999999999999999; page:=idhttp1.Get('http://brutezone.ru/srv/freshproxy/');

    3 answers 3

    Here is a working code for your page.

    IdHttp, Button, Memo

    in OnButton1Click write

     var sl:TstringList; s:string; coc:string; begin IdHTTp1.Request.UserAgent:='Opera/9.80 (Windows NT 6.1) Presto/2.12.388 Version/12.12'; IdHTTp1.Request.Host:='http://brutezone.ru/'; sl:=TstringList.Create; sl.Text:=IdHTTp1.Get('http://brutezone.ru/srv/freshproxy/'); s:=sl.Text; delete(s,Lastdelimiter('"',s),Length(s)); delete(s,1,Lastdelimiter('"',s)); coc:=sl.Text; delete(coc,1,Ansipos('"',coc)); delete(coc,AnsiPos('"',coc),Length(coc)); IdHTTP1.Request.CustomHeaders.Text:='Cookie: '+coc; sl.Clear; sl.Text:=IdHTTp1.Get(s); s:=sl.Text; delete(s,1,AnsiPos('<textarea>',s)); delete(s,1,AnsiPos('>',s)); delete(s,AnsiPos('<',s),Length(s)); memo1.Text:=s; end;

    Compile and click on the button you will receive in the memo list of ball proxies :)

    but those of their games with intervals will not help, there are placed cookies, there is a redirection.

    • Yes indeed it answers very long before the minute reaches. - vdk company

    Well, the page is not available because.

    Another new Delphi can, so only in Delphi 7 works in 2009, it’s not the case where you need to write a function with an encoding.

    • Everything is available there, just a large list is dynamically generated. The code that I posted works in D7 and DHE - vdk company
     uses IdCompressorZLib, IdHTTP; //... function GetPageSource(AURL: string): string; var AIdHTTP: TIdHTTP; begin AIdHTTP := TIdHTTP.Create(nil); try AIdHTTP.Compressor := TIdCompressorZLib.Create(AIdHTTP); Result := AIdHTTP.Get(AURL); finally AIdHTTP.Free; end; end; var PageSource: string; begin PageSource := GetPageSource('http://brutezone.ru/srv/freshproxy/'); //... end;
    • And here ZLib? Have you ever watched the page? - vdk company
    • It mixes the size of the page. Of course it is not necessary. - ADR
    • I looked through the sniffer (HTTPFox under FireFox). This code is sufficient. - ADR