Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Откритие html странички на делфи через прокси!! (https://forum.antichat.xyz/showthread.php?t=47657)

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

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

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

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

W!z@rD 26.08.2007 15:17
TClientSocket\TServerSocket
InstallPackages->Add->"bin\dclsockets70.bpl"->OK

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

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

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

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

W!z@rD 29.08.2007 09:14
Indy не в счет?
и что париться?!??! о_О
многопоточность+прокси...

begin_end 30.08.2007 00:04
Chakir, если подходит Indy, то обрати внимание на компонент idHttp, где встроена работа с прокси. О построении простого браузера посредством idHttp можно почитать здесь.

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

slesh 30.08.2007 17:42
вот маленький отрывок кода с использованием 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 20.09.2007 17:49
а многопоточность как организовать? мб кто подскажет - я бьюсь головой об стену. Желательно через Indy, т.к. он по-любому используется в программе.

GlOFF 20.09.2007 17:54
Цитируя W!z@rD
Цитата:
TClientSocket\TServerSocket
InstallPackages->Add->"bin\dclsockets70.bpl"->OK
Chakir Эти компоненты есть в Delphi7.0, но их нет на вкладках, их нужно в ручную установить, как описал W!z@rD. Компонент искать в папке "bin\dclsockets70.bpl" ;)

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

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


Время: 14:50