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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.01.2016, 15:29   #1
Fahman
Форумчанин
 
Аватар для Fahman
 
Регистрация: 03.04.2013
Сообщений: 703
По умолчанию Проблема с synapse

Доброго времени суток!
Имеется такая проблема:

Со включенным снифером (httpanalyzer) программа работает без проблем, но если выключить то перестает отправлять запросы...
Видео с демонстрацией ошибки
Исходник прикрепил. В чем может-быть проблема?
Вложения
Тип файла: rar 3ddd.ru.rar (6.4 Кб, 8 просмотров)
99% ошибок компьютера сидит в полуметре от монитора.
Fahman вне форума Ответить с цитированием
Старый 12.01.2016, 15:47   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Со включенным снифером (httpanalyzer) программа работает без проблем, но если выключить то перестает отправлять запросы
Может твою программу файерволл не пропускает?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 12.01.2016, 16:00   #3
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
Код:
            begin // No Redirect
              rez := -6;
            end;
          end
          else
          begin // Не удалось получить ссылку на файл
            rez := -7;
          end;
        end
        else
        begin // Не удалось авторизоваться
          rez := -5;
        end;
      end
      else
      begin // Не удалось получить ссылку на каптчу
        rez := -2;
      end;
    end
    else
    begin // Не удалось получить токен
      rez := -1;
    end;
  end
  else
  begin // Not 200
    rez := -3;
  end;

procedure MainThread.sync;
var
  R: Word;
begin
  case rez of
    1:
      begin
        Form1.Memo2.Lines.Add('Файл успешно загружен!');
      end;
    -1:
      begin
        Form1.Memo2.Lines.Add('Не удалось получить токен...');
      end;
    -2:
      begin
        Form1.Memo2.Lines.Add('Не удалось получить каптчу...');
      end;
    -3:
      begin
        Form1.Memo2.Lines.Add('Not 200...');
      end;
    -4:
брр. Зачем так сложно писать?) Не проще например Exception'ы сразу кидать?

Ну и надо проверять что Synapse возвращает и т.п., вполне вероятно, что он сообщает какую-то дополнительную информацию о причине неотправки запросов.
Или сохранить ответ и посмотреть что в нем если он таки выполнил запрос.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 15.01.2016, 11:31   #4
Fahman
Форумчанин
 
Аватар для Fahman
 
Регистрация: 03.04.2013
Сообщений: 703
По умолчанию

Цитата:
Сообщение от Alex11223 Посмотреть сообщение
Ну и надо проверять что Synapse возвращает и т.п., вполне вероятно, что он сообщает какую-то дополнительную информацию о причине неотправки запросов.
Или сохранить ответ и посмотреть что в нем если он таки выполнил запрос.
Headers:

Цитата:
HTTP/1.1 200 OK
Server: nginx/1.6.2
Content-Type: text/html; charset=UTF-8
Transfer-Encoding: chunked
X-Powered-By: PHP/5.6.7-1
Set-Cookie: PHPSESSID=fmsitb0b1o7k5ic8acf0gotlt 2; expires=Tue, 15-Mar-2016 08:24:02 GMT; Max-Age=5184000; path=/
Cache-Control: no-cache
Date: Fri, 15 Jan 2016 08:24:02 GMT
X-Frame-Options: SAMEORIGIN
Content-Encoding: gzip
А содержимое переменной html:

99% ошибок компьютера сидит в полуметре от монитора.
Fahman вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Зависание Synapse D_E_N Общие вопросы Delphi 23 10.01.2015 21:51
IMAP Synapse nibufep Общие вопросы Delphi 3 22.12.2014 20:01
[Synapse] Проблема с получением каптчи UKRtortik Общие вопросы Delphi 11 14.03.2014 20:57
Авторизация synapse проблема с location Евгений79 Работа с сетью в Delphi 8 29.05.2011 08:40
Synapse FanRa3 Общие вопросы Delphi 1 09.12.2010 21:06