парсинг картинок demotivators.ru

[Pein95]

      //парсим ссылку на страницу с большой картинкой
      for k := 1 to form1.Memo1.Lines.Count do
        begin
          bg:=posex('href="/posters/',form1.Memo1.Lines.Strings[k]);
          en:=posex('.htm"><img src="',form1.Memo1.Lines.Strings[k]);

          if (bg>0) and (en>0) then
          begin
            //добавляем ссылку в мемо
            res:=linkm+copy(form1.Memo1.Lines.Strings[k],bg+6,en-bg-2);
            //form1.memo2.lines.add(res);
            s:=form1.IdHTTP1.Get(res);
            //res:='';
            form1.Memo2.Lines.Add(s);
            bg:=-1;
            en:=-1;

           for j := 1 to form1.Memo2.Lines.Count do
            begin
              bg1:=posex('id="poster" src="/media/posters/',form1.Memo2.Lines.Strings[j]);
              en1:=posex('.jpg',form1.Memo2.Lines.Strings[j]);

              if (bg1>0) and (en1>0) then
              begin
                link:=linkm+copy(form1.Memo2.Lines.Strings[j],bg1+17,en1-bg1-13);
                form1.memo3.lines.add(link);
                link:='';
                bg1:=-1;
                en1:=-1;
                form1.Memo2.Clear;

              end;

            end;


          end;


        end;

Вот код, проблема такая: не парсятса все ссылки на страницы с большой картинкой не могу понять в чем проблема, может кто поможет?) ,
Прилагаю ещо весь проект.

[Аватар]

1. Циклы долджны быть от 0 до form1.Memo1.Lines.Count-1
2. установите Memo1.WordWrap:=False
3. Аналогично и для других Memo, данные которых парсите
4. Memo2.Clear в цикле по его строкам - нельзя

[Pein95]

1. Циклы долджны быть от 0 до form1.Memo1.Lines.Count-1
2. установите Memo1.WordWrap:=False
3. Аналогично и для других Memo, данные которых парсите
4. Memo2.Clear в цикле по его строкам - нельзя

на щет первого согласен.
установил Wordwrap в false - тогда вопше бред парсит
4. Можно. так как в мемо я добляю совершенно другой код. мне не нужен предедущий.

[Аватар]

1.Насчет бреда - когда WordWrap=True и строка не умещается по ширине, она переносится на следующую и в Lines будет вместо одной строки несколько с разорванной информацией
2.Когда вы в цикле выполните Memo2.Clear не выходя из него, то следующий такт цикла for j := 1 to form1.Memo2.Lines.Count do (а он запросто может быть) вывалит вам красное окно

[Человек_Борща]

Весь HTML загоняйте в переменную string и там уже рулите Pos'ами и т.д.

[Pein95]

1.Насчет бреда - когда WordWrap=True и строка не умещается по ширине, она переносится на следующую и в Lines будет вместо одной строки несколько с разорванной информацией
2.Когда вы в цикле выполните Memo2.Clear не выходя из него, то следующий такт цикла for j := 1 to form1.Memo2.Lines.Count do (а он запросто может быть) вывалит вам красное окно

ширина memo достаточна около 1200
Посмотрите внимательно для какого мемо исполняетса код) ето текстовое поле роли никакой после очистки не играет.

Весь HTML загоняйте в переменную string и там уже рулите Pos'ами и т.д.

ето будет ещо труднее