Откритие html странички на делфи через прокси!!

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Chakir, 26 Aug 2007.

  1. Chakir

    Chakir Elder - Старейшина

    Joined:
    17 Apr 2006
    Messages:
    34
    Likes Received:
    7
    Reputations:
    0
    Собственно есть ссылка Тима
    http://tets.ru/1.html нужно открыть её средствами делфи через прокси…
    почитал я статейк и даже сорец 1 нашло http://www.ishodniki.ru/base/users/7366.zip
    и узнал что это можно сделать с помощью TClientSocket
    [​IMG]

    Но у меня в делфи 7 этого компонента нет! И вроде он есть только в старых версиях пипа 4 и пт…

    Ну дак вот вопрос как реализовать то что я задумал???
     
  2. Ch3ck

    Ch3ck Elder - Старейшина

    Joined:
    9 Jun 2006
    Messages:
    1,362
    Likes Received:
    1,157
    Reputations:
    430
    Может ты путаешь? У тебя 4-й стоит.
     
  3. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    TClientSocket\TServerSocket
    InstallPackages->Add->"bin\dclsockets70.bpl"->OK
     
  4. Chakir

    Chakir Elder - Старейшина

    Joined:
    17 Apr 2006
    Messages:
    34
    Likes Received:
    7
    Reputations:
    0
    к соңелению я не путаю у меня стоит 7
    а этот скрин я нашол в рунете!!!
     
  5. slesh

    slesh Elder - Старейшина

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    2 Chakir..
    лучше юзать всё чере wininet. Потому что тогда запросто сможешь юзать и http прокси и даже ssl
     
  6. Ni0x

    Ni0x Elder - Старейшина

    Joined:
    27 Aug 2006
    Messages:
    338
    Likes Received:
    157
    Reputations:
    37
    тогда уж лучше юзать винсок, тогда ты сможешь юзать все что захочешь.
     
    #6 Ni0x, 28 Aug 2007
    Last edited: 28 Aug 2007
  7. kair

    kair Elder - Старейшина

    Joined:
    12 Oct 2006
    Messages:
    146
    Likes Received:
    83
    Reputations:
    -4
    http://delphiworld.narod.ru/base/open_url_new_win2.html может это?
    только там без прокси
     
    #7 kair, 28 Aug 2007
    Last edited: 28 Aug 2007
  8. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    Indy не в счет?
    и что париться?!??! о_О
    многопоточность+прокси...
     
  9. begin_end

    begin_end Green member

    Joined:
    4 Jan 2007
    Messages:
    259
    Likes Received:
    596
    Reputations:
    476
    Chakir, если подходит Indy, то обрати внимание на компонент idHttp, где встроена работа с прокси. О построении простого браузера посредством idHttp можно почитать здесь.
     
    _________________________
  10. slesh

    slesh Elder - Старейшина

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    не indy - грузовая вешь. Как никак а компонент.
    Лучше уж или winsock или wininet. Там запросто можно сделать и много паточность и еще много и при этом хорошо с экономить на размере.
     
  11. slesh

    slesh Elder - Старейшина

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    вот маленький отрывок кода с использованием WinInet
    Code:
    h_open:=InternetOpen('Mozilla/5.0 (compatible; MSIE 6.0; SV1; MRA 4.8 (build 01705))',
                 INTERNET_OPEN_TYPE_PROXY,'192.168.2.1:8080',nil,0);
    if h_open=nil then exit;
    h_connect:=InternetConnect(h_open,'ya.ru',INTERNET_DEFAULT_HTTP_PORT,nil,nil,INTERNET_SERVICE_HTTP,0,0);
    if h_connect=nil then exit;
    h_request:=HttpOpenRequest(h_connect,'GET','/','HTTP/1.0','ya.ru',nil,INTERNET_FLAG_KEEP_CONNECTION,0);
    if h_request=nil then exit;
    HttpSendRequest(h_request,nil,0,nil,0);
    setlength(mas,1024);
    outs:='';
    repeat
    InternetReadFile(h_request,mas,1024,cardinal(l));
    s:=copy(Pchar(mas),1,l);
    outs:=outs+s;
    until l<=0;
    
     
  12. Knight_of_Darkness

    Knight_of_Darkness Elder - Старейшина

    Joined:
    3 Feb 2007
    Messages:
    69
    Likes Received:
    68
    Reputations:
    24
    а многопоточность как организовать? мб кто подскажет - я бьюсь головой об стену. Желательно через Indy, т.к. он по-любому используется в программе.
     
  13. GlOFF

    GlOFF Elder - Старейшина

    Joined:
    8 May 2006
    Messages:
    689
    Likes Received:
    484
    Reputations:
    4
    Цитируя W!z@rD
    Chakir Эти компоненты есть в Delphi7.0, но их нет на вкладках, их нужно в ручную установить, как описал W!z@rD. Компонент искать в папке "bin\dclsockets70.bpl" ;)
     
  14. Krey

    Krey Member

    Joined:
    8 Sep 2007
    Messages:
    0
    Likes Received:
    16
    Reputations:
    -20
    Knight_of_Darkness про многопоточность почитай тут по моему все оч хорошо расписано.

    _http://forum.vingrad.ru/forum/topic-60076.html