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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.10.2014, 23:29   #11
indexx
Заблокирован
 
Регистрация: 12.09.2014
Сообщений: 544
По умолчанию

Цитата:
http.ProxyParams.ProxyUsername := host;
http.ProxyParams.ProxyPort := strtoint(port);
Меняешь выделенное на ProxyServer. Ты перепутал Адрес сервера с именем пользователя, поэтому прокси и не работал.
indexx вне форума Ответить с цитированием
Старый 18.10.2014, 13:20   #12
Nugrom
Форумчанин
 
Регистрация: 14.09.2014
Сообщений: 118
По умолчанию

Хм, вот сейчас пробую сделать свой прокси чекер.
Взял несколько прокси рабочих, ssl, анонимные.
Пробую просто спарсить https сайт, если парсит правильно, то все нормально.
Но заметил, что почти все прокси не работают.
Причем вообще ничего не парсят, на Get запросе появляется ошибка, или пустая, или в ней написао ''connection closed gracefully''.
Заметил, что у некоторых прокси скорость плохая, больше 1300-1500мс.
Может увеличить как-то таймаут?
как это сделать?
Чеканье прокси происходит в цикле, после каждой проверки все компоненты очищаются, и все по новой.(пробовал даже удалять их и заново создавать, после проверки каждого прокси, но результат тот же)

Код:
inet.IOHandler := hd;
    inet.Request.UserAgent := 'Mozilla/5.0 (Windows NT 5.1; rv:14.0) Gecko/20100101 Firefox/14.0.1';
    inet.Request.ContentType := 'application/x-www-form-urlencoded';
    inet.HandleRedirects:=True;
    inet.ProxyParams.ProxyServer := chost;  //тут у нас хост
    inet.ProxyParams.ProxyPort := strtoint(cport); //тут порт

   
    try
     str := inet.Get('https://mobile.twitter.com/session/new');  //вот тут и возникают ошибки

     tkn := Pars('id" content="',str,'">');      //проверка того что спарсило, тут проблем нету
     begin                                                   //проверка того что спарсило, тут проблем нету
        if(tkn <> '') then                                //проверка того что спарсило, тут проблем нету
        begin                                                  //проверка того что спарсило, тут проблем нету
          inc(good);                                           //проверка того что спарсило, тут проблем нету
          goodstrlist.Add(chost + ':' + cport);        //проверка того что спарсило, тут проблем нету
        end;                                                        //проверка того что спарсило, тут проблем нету
     end;                                                            //проверка того что спарсило, тут проблем нету
    except
    end;
Изображения
Тип файла: png Снимок.PNG (14.2 Кб, 51 просмотров)
Nugrom вне форума Ответить с цитированием
Старый 18.10.2014, 17:22   #13
Nugrom
Форумчанин
 
Регистрация: 14.09.2014
Сообщений: 118
По умолчанию

Ладно, с этим я смирился, но теперь откуда-то вылезла еще одна непонятная ошибка.
Что это может быть?
Появилась она, после того как компонент idhttp присвоил себе прокси, и сделал гет запрос.
Изображения
Тип файла: png Снимок.PNG (17.5 Кб, 53 просмотров)
Nugrom вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при отправке ip пакета CraZZZy-GameRRR C/C++ Сетевое программирование 2 03.05.2013 21:16
Ошибка при отправке E-Mail POPOV Работа с сетью в Delphi 4 10.04.2012 23:47
Ошибка 200 при отправке данных )Игнат( Работа с сетью в Delphi 2 15.06.2011 19:43
Ошибка при отправке сообщений через SMTPClient BoT_T Работа с сетью в Delphi 6 26.09.2010 17:16
ошибка при отправке D_E_N Работа с сетью в Delphi 11 01.11.2009 00:41