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

[Chakir]

Собственно есть ссылка Тима
http://tets.ru/1.html нужно открыть её средствами делфи через прокси…
почитал я статейк и даже сорец 1 нашло http://www.ishodniki.ru/base/users/7366.zip
и узнал что это можно сделать с помощью TClientSocket
http://www.progs.biz/delphi/vcl/lessons/images/037_01.gif

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

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

[Ch3ck]

Может ты путаешь? У тебя 4-й стоит.

[W!z@rD]

TClientSocket\TServerSocket
InstallPackages->Add->"bin\dclsockets70.bpl"->OK

[Chakir]

к соңелению я не путаю у меня стоит 7
а этот скрин я нашол в рунете!!!

[slesh]

2 Chakir..
лучше юзать всё чере wininet. Потому что тогда запросто сможешь юзать и http прокси и даже ssl

[Ni0x]

тогда уж лучше юзать винсок, тогда ты сможешь юзать все что захочешь.

[kair]

http://delphiworld.narod.ru/base/open_url_new_win2.html может это?
только там без прокси

[W!z@rD]

Indy не в счет?
и что париться?!??! о_О
многопоточность+прокси...

[begin_end]

Chakir, если подходит Indy, то обрати внимание на компонент idHttp, где встроена работа с прокси. О построении простого браузера посредством idHttp можно почитать здесь (https://forum.antichat.ru/showthread.php?t=33165).

[slesh]

не indy - грузовая вешь. Как никак а компонент.
Лучше уж или winsock или wininet. Там запросто можно сделать и много паточность и еще много и при этом хорошо с экономить на размере.

[slesh]

вот маленький отрывок кода с использованием WinInet

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;

[Knight_of_Darkness]

а многопоточность как организовать? мб кто подскажет - я бьюсь головой об стену. Желательно через Indy, т.к. он по-любому используется в программе.

[GlOFF]

Цитируя W!z@rD
TClientSocket\TServerSocket
InstallPackages->Add->"bin\dclsockets70.bpl"->OK

Chakir Эти компоненты есть в Delphi7.0, но их нет на вкладках, их нужно в ручную установить, как описал W!z@rD. Компонент искать в папке "bin\dclsockets70.bpl" ;)

[Krey]

Knight_of_Darkness про многопоточность почитай тут по моему все оч хорошо расписано.

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