![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TCPClient через прокси...
Adventure © (2007-03-30 20:31:00)Как заставить TIdTCPClient работать через прокси?
Уже всю голову сломал.
!!!! Именно TIdTCPClient !!!!
SlymRO (2007-05-30 16:35:00) [1]
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;
DVM (2007-05-30 12:17:00) [2]
> Как заставить TIdTCPClient работать через прокси?
Какой протокол? HTTP? Если да, то используй TIdHttpClient или составляй правильно запрос и используй TIdTCPClient
malor (2007-05-30 12:10:00) [3]dDan,где можно найти информация по компоненту idHTTPClient? Где он на панели компонентов находится?
Adventure (2007-03-31 11:45:00) [4]!!!! Именно TIdTCPClient !!!!
dDan (2007-03-31 04:27:00) [5]Так юзай idHTTPClient
Adventure (2007-03-30 20:41:00) [6]Уточнение...
По протоколу HTTP