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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2015, 11:43   #1
lollollollol
Форумчанин
 
Регистрация: 23.03.2013
Сообщений: 218
По умолчанию Synapse HttpSend, Socks5 - не работает!

Здравствуйте!

Столкнулся с такой проблемой,
пытаюсь сделать https запрос на синапсе через сокс5 - не получается.

Код:
  
TimeOut:=180000;
HTTP:=THTTPSend.Create;
    HTTP.Timeout:=TimeOut;
    HTTP.Sock.SocksTimeout:=TimeOut;
    HTTP.Sock.SocksResolver:=false;



        HTTP.Sock.SocksType:=ST_Socks5;
        HTTP.Sock.SocksIP:='ИП';
        HTTP.Sock.SocksPort:='ПОРТ';
;
  HTTP.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US)';
  HTTP.Headers.add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
  HTTP.Headers.add('Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');
  HTTP.Headers.add('Accept-Encoding: gzip, deflate');
  HTTP.Headers.add('Connection: keep-alive');
  HTTP.Protocol:='1.1';
  HTTP.HTTPMethod('GET',URL);

    if (HTTP.DownloadSize=0) then begin
      if (HTTP.Sock.SocksIP<>'')and(HTTP.Sock.SocksLastError<>0) then begin
        result:=HTTP.Sock.SocksLastError;
      end else begin
        result:=-5;
      end;
    end;
Сокс точно работает, проверил целой кучей разных чекеров, + сокс прекрасно работает в ЛЮБОМ софте где можно использовать сокс.

Но в моей проге происходит вот что:
Функция HTTP.HTTPMethod('GET',URL); выполняет ужасно долго. в переменной HTTP.Sock.SocksLastError возвращается НОЛЬ!
HTTP.DownloadSize = 0.

По фперволлу видно что на сокс небыло отправлено ниодного байта.
Точно так, как будьто сервера не существует!

Но другие проги прекрасно работают через сокс.


В чём может быть проблема?

(без сокса запрос нормально проходит)


Т.е. исключен проблема с самом соксом.
Исключена проблема с удалённым адресом куда я делю запрос - без сокса работает.
Получается проблема именно в моём коде...
lollollollol вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Synapse HttpSend, глюк, объеденяет запросы! lollollollol Работа с сетью в Delphi 8 03.09.2015 12:56
У меня не работает: Ubuntu->(Indy или Synapse)->SMTP. А у Вас? BOEHKOM Lazarus, Free Pascal, CodeTyphon 25 17.08.2015 23:45
Не работает отправка писем через mail.ru c использованием synapse LISTAT Работа с сетью в Delphi 9 03.01.2015 23:08
Synapse. HTTPSend Nugrom Общие вопросы Delphi 7 22.09.2014 22:19
Synapse + SSL + Socks5 = виснут соединения Puhovoi Работа с сетью в Delphi 2 01.12.2012 22:39