Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.11.2012, 19:13   #11
denbox
Пользователь
 
Аватар для denbox
 
Регистрация: 05.08.2010
Сообщений: 48
По умолчанию

Цитата:
Сообщение от Кольша Посмотреть сообщение
Похоже оочень похоже на сжатие...
И что делать?
denbox вне форума Ответить с цитированием
Старый 23.11.2012, 19:30   #12
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

Про Zlib слышали что нибудь?
Кольша вне форума Ответить с цитированием
Старый 23.11.2012, 19:34   #13
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

...даже с Indy все прекрасно фурычит:
Код:
uses IdHTTP, IdCookieManager, IdMultipartFormData;


procedure TForm1.Button1Click(Sender: TObject);
var s,s1:string;
    proxy:string;

    http: TIdHTTP;
    IdCookieManager: TIdCookieManager;
    Response: TStringStream;
begin
 memo1.Clear;

 // создаем класс-
 http:= TIdHTTP.Create(nil);
 IdCookieManager   := TIdCookieManager.Create(http);
 http.CookieManager:= IdCookieManager;
 Response          := TStringStream.Create('');

 http.HTTPOptions:= http.HttpOptions - [hoForceEncodeParams];
 http.HandleRedirects:= true;
 http.AllowCookies:= true;
 //
 s1:= http.Get('http://proxy-base.org/f7/socks_4_5_18_5_9_a-406.html');
 s := s1;
 delete(s1, 1, pos('href="', s1)+5);
 delete(s1, pos('"', s1), length(s1));
 delete(s, 1, 37);
 delete(s, pos('"', s), length(s));

 http.request.customheaders.add('Cookie: '+s);
 http.Get(s1, Response);
 memo1.Lines.Add(Response.DataString);

 // подчищаем-
 FreeAndNil(Response);
 FreeAndNil(IdCookieManager);
 FreeAndNil(http)
end;
кликал раз сто, надоело, все грузится без вопросов:
Вложения
Тип файла: zip raxp_text indy get proxy.zip (347.6 Кб, 7 просмотров)
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 23.11.2012, 19:37   #14
denbox
Пользователь
 
Аватар для denbox
 
Регистрация: 05.08.2010
Сообщений: 48
По умолчанию

raxp, спасибо большое! помог!
denbox вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
idHTTP проблемы Лубышев Работа с сетью в Delphi 8 18.03.2013 12:17
Проблемы с куками в idhttp Marsik Работа с сетью в Delphi 5 12.01.2011 14:01
Проблемы с IdHTTP.Post() ! $T@LKER Работа с сетью в Delphi 30 03.09.2010 17:03
idhttp проблемы с кодировкой пауэрлифтинг Работа с сетью в Delphi 3 10.03.2010 17:35
Проблемы с IdHTTP satana Работа с сетью в Delphi 2 31.08.2007 09:12