Настройка потока

[record222]

Доброе время суток, дорогие жители форума.

Помогите пожалуйста настроить поток, а то я не очень понимаю...

В form2.memo1, у меня есть несколько запросов(то что нужно найти в ПС).
Если же нужного текста в коде не найдено, то программа переходит на вторую страницу и начинает опять искать, и так пока не найдет требуемый текст... Если же текст найден, то переходить ко второй строчке form2.memo1 и искать далле....

Я пробовал и c while и без, но все равно не понимаю как это реализовать. Спасибо!!

Собственно:

procedure pars_rus.Execute;
var
work:boolean;
http:tidhttp;
s, ei:string;
begin
cw:=getkey;
   while cw<form2.Memo1.Lines.Count-1 do
   begin

         http:=tidhttp.create(nil);
  with http do
    begin
      allowcookies:=true;
      handleredirects:=True;
      Request.UserAgent:=useragent[Random(useragent.Count)];
      Request.Connection:='keep-alive';
    end;

 s:=http.Get('пс.ку/search?q='+URLEncode(AnsitoUTF8(form2.Memo1.Lines[cw])));
      if POS('требуемый текст', s)<>0 then
        begin
        ei:=Pars('1&sei=', s, '"');
        delete(s, 0, pos('receptiki', s));
        form1.Memo1.Lines.Add(s);
        work:=false;
         end
          else
          begin
           work:=true;
          while work do
          begin
          delete(s, 1, pos('</span>10', s));
          s:=http.get('пс.ру'+Pars('"/search?q=', s, '"'));
          if pos('Требуемый текст', s)<>0 then  
begin

end;
          end;
        end;

    end;
end;

[Stilet]

http:=tidhttp.create(nil);

Вынеси за пределы цикла - систему мусоришь.
Я бы на твоем месте этот суп разгреб так:

procedure pars_rus.IsNeeded;
begin
 Тут тот код, если найденна подстрока
end;

procedure pars_rus.NextPlease;
var i:integer;s2:String;
begin
  i:=pos('</span>10', s);
 while i>0 do begin
  delete(s, 1, i); s2:=s;
  s:=http.get('пс.ру'+Pars('"/search?q=', s, '"'));
  if POS('требуемый текст', s)<>0 then begin 
    Synchronize(IsNeeded);
    exit;
  end;
  s:=s2;
  i:=pos('</span>10', s);
 end;
end;


procedure pars_rus.Execute;
var
 i:integer;
begin

  http:=tidhttp.create(nil);
  with http do
    begin
      allowcookies:=true;
      handleredirects:=True;
      Request.UserAgent:=useragent[Random(useragent.Count)];
      Request.Connection:='keep-alive';
    end;
  
 for i:=0 to form2.Memo1.Lines.Count-1 do begin
  s:=http.Get('пс.ку/search?q='+URLEncode(AnsitoUTF8(form2.Memo1.Lines[i])));
  if POS('требуемый текст', s)<>0 then Synchronize(IsNeeded) else NextPlease;
 end;

work:boolean;
http:tidhttp;
s, ei:string;
Сделал бы полями класса потока.

[record222]

Сообщение от Stilet

Вынеси за пределы цикла - систему мусоришь.
Я бы на твоем месте этот суп разгреб так:

Спасибо! Все работает! +++

[Stilet]

Пользуйся на здоровье, земеля )