Ввод каптчи

[kardinal94]

Добрый день всем от лошка в программировании (меня). . У меня возникла некая проблема, знаю что все должно быть относительно просто, только не знаю как реализовать. Суть проблемы:
Есть некоторое событие. Я должен получать каптчу, вводить и отправлять POST запрос. Проблема в следующем. При формировании POST запроса я должен ждать пока будет введена каптча и нажата кнопка. ТО есть основное событие должно останавливаться и ждать ввода каптчи. Как это можно сделать? Подскажите.

[Voody]

Если основное событие должно останавливаться и ждать ответа, то создаем дополнительный поток.
В нем:

// просим пользователя ввести капчу
stop:=true;
while stop do sleep(1000);
// отправляем запрос дальше

На кнопке, которая нажимается после ввода капчи:

stop:=false;

[kardinal94]

Можно подробнее о выделении в отдельный поток? У меня например сейчас так:

var udach, CapB,CapEnd, pos1, posex1:integer;
POstData:TstringList;
Captcha:TMemoryStream;
Otvet, CapUrl, stat1:string;
CapPic:TPngImage;

begin
PostData:=TstringList.Create;
{Выполняю операцию с первым сайтом в списке}
if CheckListBox1.Checked[0]=true then
  Begin
   PostData.Clear;
   PostData.Add('nick='+login.Text);
   PostData.Add('email=');
   PostData.Add('title='+title.Text);
   PostData.Add('body='+stat.Text);
   PostData.Add('url='+link.Text);
   PostData.Add('url_name='+title.Text);
   PostData.Add('url_pic=');
   PostData.Add('OK=OK');
   Otvet:=IdHttp1.Post('http://www.art.nnov.ru/en/conf.php?moda=conf', Postdata);
   If pos(title.Text, otvet)<>0 then showmessage('Успешно!') else showmessage('Неа, Не то');;
   End;
{//Выполняю операцию с первым сайтом в списке}
{Выполняю операцию со вторым сайтом в списке}
{//Выполняю операцию с первым сайтом в списке}
{Выполняю операцию с третим сайтом в списке}
if CheCklistBox1.Checked[2]=true then
  Begin
   POstData.Clear;
   {Получаю Каптчу}
     Otvet:=IdHTTP1.Get('http://www.classifields.ru/post.html?category=34');
     CapB:=pos('http://www.classifields.ru/image.php?ct=',otvet);
     CapEnd:=PosEx('>',otvet,CapB);
     ShowMessage(IntToStr(CapB)+'  '+IntToStr(CapEnd));
     CapUrl:=copy(Otvet,capB,CapEnd-CapB);
     ShowMessage(CapUrl);
     Captcha:=TMemoryStream.Create;
     IdHTTP1.Get(capUrl,Captcha);
     Captcha.Position:=0;
     CapPic:= TPNGImage.Create;
     CapPic.LoadFromStream(Captcha);
     Image1.Picture.Assign(CapPic);
      {Формирую POST-запрос}
        Delete(CapUrl,1,40);
        PostData.Add(ansitoutf8('act=add'));
        PostData.Add(ansitoutf8('ct='+CapUrl));
        PostData.Add(ansitoutf8('category=34'));
        PostData.Add(ansitoutf8('cel=1'));
        PostData.Add(ansitoutf8('name='+Title.Text));
        PostData.Add(ansitoutf8('description='+stat.Text));
        PostData.Add(ansitoutf8('author='+Login.Text));
        PostData.Add(ansitoutf8('url='+Link.Text));
        PostData.Add(ansitoutf8('email='+mail.Text));
        PostData.Add(ansitoutf8('phone='));
        PostData.Add(ansitoutf8('city=Moscow'));
        PostData.Add(ansitoutf8('cost=1'));
        While Capt.Tag=0 do sleep(1);
        PostData.Add(ansitoutf8('number='+code.Text));
        Capt.Tag:=0;
        Image1.Free;
        PostData.Add(ansitoutf8('rules=on'));
   //    ShowMessage(utf8toansi(PostData.Text));
   Otvet:=Idhttp1.Post('http://www.classifields.ru/index.php', PostData);
   Resultm.Text:=(otvet);
 //  ResultM.Lines.SaveToFile('111.txt');
    End;

Все делается в основном потоке. Не подскажете как сделать еще в одном потоке???

[Voody]

Посмотрите видео и исходники: http://avtuh.ru/2010/04/09/delphi-do...programme.html