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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.08.2016, 22:44   #1
FleXik
Форумчанин
 
Регистрация: 01.11.2012
Сообщений: 770
По умолчанию Интересная проблема, пропадает строка (ссылка) запроса TStringList

Всем здрасте, вобщем проблема такая: Использую TStringList, в него с сайта парсятся и записываются ссылки, дальше отправляются запросы с этими ссылками по-очереди, но бывает что одна ссылка будто пропадает и запрос с ней не отправляется, эта ссылка даже не отображается в HTTPAnalyzer'е. Список у меня из 15-ти ссылок, при чем выводил список этих ссылок из TStringList в Memo и после строки кода с отправкой запроса и перед отправкой... Т.е парсятся все ссылки, но конкретно при отправке запроса изредка 1 ссылка из списка будто теряется, хотя эта ссылка в этом списке 100% есть (проверено неоднократно). Сайт на https протоколе, все файлы в путь с программой кинул и в uses прописал ssl_openssl. Код такой:

Код:
begin
  RegExp:=TRegExpr.Create;
  Synchronize(Form1.sRichEdit1.Clear);

    while not Terminated do
    begin
      i:=0;
      LinksList:=TStringList.Create;
      RegExp.Expression:='<a href="(.*?)"';
      rev:=send('GET', 'сайт');

        if RegExp.Exec(rev) then
        repeat
          LinksList.Add('сайт' + RegExp.Match[1]);
        until not RegExp.ExecNext;

         //Synchronize(memoadd); // тут я проверял все ли ссылки парсятся в переменную TStringList - все отлично

        while (i<LinksList.Count) and not Terminated do
        begin
          //RegExp.Expression:='<main>(.*?)</main>';
          rev:=send('GET', LinksList[i]);

          Synchronize(memoadd); // тут я проверял все ли ссылки парсятся в переменную TStringList - все отлично

            if (links<=Form1.sSpinEdit1.Text) then
            Synchronize(UpdateRichEdit);

          inc(i);
        end;

      LinksList.Free;
    end;

  RegExp.Free;
  Synchronize(EndWork);
end;

Последний раз редактировалось FleXik; 14.08.2016 в 22:52.
FleXik вне форума Ответить с цитированием
Старый 14.08.2016, 23:39   #2
FleXik
Форумчанин
 
Регистрация: 01.11.2012
Сообщений: 770
По умолчанию

Может проблема конкретно в файлах для https? Т.к это бред какой-то получается, я конечно могу обойти эту проблему другим способом, но хотелось бы понять почему так, чтобы потом в других проэктах подобной фигни не было
-----------------------------------------------

заменил dll-ки, не помогло.

Последний раз редактировалось FleXik; 14.08.2016 в 23:49.
FleXik вне форума Ответить с цитированием
Старый 16.08.2016, 18:08   #3
FleXik
Форумчанин
 
Регистрация: 01.11.2012
Сообщений: 770
По умолчанию

проблема все еще не решена
FleXik вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
строка из TStringList в Edit adr Помощь студентам 5 06.11.2010 20:06
Ссылка на переменную в условии отбора запроса bag Microsoft Office Access 1 06.09.2009 20:37
Tstringlist и зашифрованая строка RomanSamara Общие вопросы Delphi 7 06.02.2009 23:57
При выполнении запроса из проекта пропадает связь с сервером D-mon БД в Delphi 4 19.11.2007 12:24