Текущий архив: 2008.02.17;
Скачать: CL | DM;
Вниз
TCPClient через прокси... Найти похожие ветки
← →
Adventure © (2007-03-30 20:31) [0]Как заставить TIdTCPClient работать через прокси?
Уже всю голову сломал.
!!!! Именно TIdTCPClient !!!!
← →
Adventure © (2007-03-30 20:41) [1]Уточнение...
По протоколу HTTP
← →
dDan (2007-03-31 04:27) [2]Так юзай idHTTPClient
← →
Adventure © (2007-03-31 11:45) [3]!!!! Именно TIdTCPClient !!!!
← →
malor (2007-05-30 12:10) [4]dDan,где можно найти информация по компоненту idHTTPClient? Где он на панели компонентов находится?
← →
DVM © (2007-05-30 12:17) [5]
> Как заставить TIdTCPClient работать через прокси?
Какой протокол? HTTP? Если да, то используй TIdHttpClient или составляй правильно запрос и используй TIdTCPClient
← →
SlymRO © (2007-05-30 16:35) [6]
var Client:TIdTCPClient;
s:string;
Code:integer;
begin
Client:=TIdTCPClient.Create;
try
Client.Connect("MyProxyHost",3128{MyProxyPort});
Client.IOHandler.WriteLn(format("CONNECT %s HTTP/1.0",["mail.mail.ru:110"]));
Client.IOHandler.WriteLn;
s:=Client.IOHandler.ReadLn
Fetch(s," ");
Code:=StrToIntDef(Fetch(s," "),200);
if Code<>200 then raise Exception.CreateFmt("Bad HTTP status code: %d %s",[Code,s]);
repeat until
Client.IOHandler.ReadLn = "";
memo1.Lines.add(Client.IOHandler.ReadLn);
finally
Client.Free;
end;
end;
Страницы: 1 вся ветка
Текущий архив: 2008.02.17;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.022 c
