Подвисают потоки + indy

[record222]

Доброе время суток друзья.

Подвисает программа, при отправке пост данных.
Не работает многопоточность....

procedure Checker.Execute;
var
str:string;
begin
while work do
begin
  CS.Enter;
  inc(dom_cur);
  if dom_cur<form1.memo1.Lines.Count then Curdom:=dom_cur else begin
   dom_cur:=-1;
  inc(dom_cur);
  Curdom:=dom_cur;
  end;
  if form1.memo1.Lines.Count=0 then work:=false;
  CS.Leave;

  if WORK then
    begin
    domain:=form1.Memo1.Lines[curdom];
    res:= checker_domain(domain); - Это действие работает в многопоточности. Ставишь 20 потоков и оно валит. А вот следующее RegSync, тормозит весь процесс.
    if pos('is Available', res)>1 then  Synchronize(regsync) else
      if pos('is Unavailable', res)>1 then RezA:=1 else
        if pos('Money', res)>1 then RezA:=2 else RezA:=3;
    Synchronize(Sync);
      end;
    end;
end;

procedure Checker.regsync;
var
http2:Tidhttp;
data:tstringlist;
today : TDateTime;
begin
data:=Tstringlist.Create;
http2:=Tidhttp.Create;
http2.HandleRedirects:=false;
http2.AllowCookies:=true;
http2.RedirectMaximum:=3;

 today := Time;
data.Add('username='+akk_buy[0]);
data.Add('password='+akk_buy[1]);
data.add('phone=+7 495 8102233');
data.add('fax=+7 495 8102233');
data.Add('e_mail='+akk_buy[0]);
try
http2.Post('http://api/api/', data); - Подвисает вот на этом действии... Когда это действие исполниться - программе отвисает!
//form1.Memo6.Lines.Add(TimeToStr(today));

except

end;
data.Free;
http2.Free;
end;

На форме присутствует компонент AntiFreeze, но почему то не помагает.

[Пепел Феникса]

ТС, все что выполняется в синхрониз, все это выполняется лишь главным потоком, и остальные потоки ни в один синхрониз не войдут.
переписывайте код, выносите все лишнее из процедуры, тем более у вас нет нужды синхронизировать её, ибо у вас нет обращение к форме из нее.

а вообще забавно, обращение к форме у вас без синхронизации, при этом в синхронизации нет обращения...

[саша40]

Во первых, чекеры, бруты и вся остальная ху*ня подобного рода запрещено законом РФ(стать 272 уголовного кодекса РФ).
Во вторых, Application.ProcessMessages;

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

Во вторых, Application.ProcessMessages;

Не тот случай для этого.

[саша40]

Сообщение от Человек_Борща

Не тот случай для этого.

у него цыкл while do.

[Пепел Феникса]

саша40, у него поток как бы.

[Stilet]

Подвисает вот на этом действии... Когда это действие исполниться - программе отвисает!

А ты это действие (всю эту функцию) в поток, который ее вызывает воткни как метод. Пусть и она сопроцессу этому будет принадлежать.
Тогда и синхронизация не понадобится особо.