idhttp потоки

[brownb]

Отправляю в потоках
ГЕТ
ПОСТ
ГЕТ

Если ставлю 10 потоков то отправляется ~60 запросов и потом стоит
Если ставлю 20 потоков то отправляется ~120 запросов и потом стоит
и тд

в чем может быть проблема?

[eoln]

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

в чем может быть проблема?

Наверное, в коде

[brownb]

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

Наверное, в коде

ну я тоже предполагал,но все таки были сомнения.Спасибо за подсказку

[brownb]

TIdHTTP.create(nil); //Создаём HTTP
     HTTP.HandleRedirects:=false; //Запрещаем редирект
     http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3';
     http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
     SSL := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);
     HTTP.IOHandler := SSL;
     FAcc:= Copy(Accounts[CurAcc],1,Pos(';',Accounts[CurAcc])-1); //Копируем логин
     Result:= TStringList.Create;
postdata:= TStringList.Create;
data:= TStringList.Create;
mysql:= TStringList.Create;
     try
  begin

Result.Text:= http.get('+FAcc+');
strings := Parse('<form id="theform" method="POST" action="', '</form>', result.Text);
 if strings <> nil then
  begin
   url:= Parse('theform" method="POST" action="', '">', Result.text);
cookie:= Parse('<input type="hidden" name="session_id" value="', '">', Result.text);
post:= Parse('name="', '">', Result.text);
s:=post.Text;
s := StringReplace(post.Text, #13, ' ', [rfReplaceAll]);
  s := StringReplace(s, #10, '&', [rfReplaceAll]);
  s := StringReplace(s, '" value="', '=', [rfReplaceAll]);
  s := StringReplace(s, ' ', '', [rfReplaceAll]);
  post.Clear;
  data.Add(s);
    HTTP.Request.CustomHeaders.Text:='Cookie: bd_ovtu=100; PHPSESSID='+cookie.Strings[0]+';';
    postdata.Text:= http.post(url.Strings[0],data);
login:= Parse('<input type="hidden" name="username" value="', '">', postdata.Text);
mysql.add('get');
s := StringReplace(mysql.Text, #13, ' ', [rfReplaceAll]);
s := StringReplace(s, #10, '', [rfReplaceAll]);
s := StringReplace(s, ' ', '', [rfReplaceAll]);
mysql.Clear;
mysql.Add(s);
http.Get(mysql.Strings[0]);
 Rez:=-1;
     HTTP.Free; //УБиваем HTTP
     result.Free;
     postdata.Free;
     strings.Free;
     cookie.Free;
     post.Free;
     mysql.Free;
     url.Free;
     data.Free;
     zip.Free;
     login.Free;
     email.Free;
     end;
     end;

[GoldenEagle88]

Попробуй в try закинуть весь код ,а убивание в finally вот так.
Плюс ,если смотреть код что ты скинул ,получается, что обьекты создаются всегда но уничтожаются только если отработали ,может в этом беда?

 TIdHTTP.Create(nil); // Создаём HTTP
  HTTP.HandleRedirects := false; // Запрещаем редирект
  HTTP.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3';
  HTTP.Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
  SSL := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);
  HTTP.IOHandler := SSL;
  FAcc := Copy(Accounts[CurAcc], 1, Pos(';', Accounts[CurAcc]) - 1); // Копируем логин
  Result := TStringList.Create;
  postdata := TStringList.Create;
  data := TStringList.Create;
  mysql := TStringList.Create;
  try
    begin
      Result.Text := HTTP.get('+FAcc+');
      strings := Parse('<form id="theform" method="POST" action="', '</form>', Result.Text);
      if strings <> nil then
      begin
        url := Parse('theform" method="POST" action="', '">', Result.Text);
        cookie := Parse('<input type="hidden" name="session_id" value="', '">', Result.Text);
        post := Parse('name="', '">', Result.Text);
        s := post.Text;
        s := StringReplace(post.Text, #13, ' ', [rfReplaceAll]);
        s := StringReplace(s, #10, '&', [rfReplaceAll]);
        s := StringReplace(s, '" value="', '=', [rfReplaceAll]);
        s := StringReplace(s, ' ', '', [rfReplaceAll]);
        post.Clear;
        data.Add(s);
        HTTP.Request.CustomHeaders.Text := 'Cookie: bd_ovtu=100; PHPSESSID=' + cookie.strings[0] + ';';
        postdata.Text := HTTP.post(url.strings[0], data);
        login := Parse('<input type="hidden" name="username" value="', '">', postdata.Text);
        mysql.Add('get');
        s := StringReplace(mysql.Text, #13, ' ', [rfReplaceAll]);
        s := StringReplace(s, #10, '', [rfReplaceAll]);
        s := StringReplace(s, ' ', '', [rfReplaceAll]);
        mysql.Clear;
        mysql.Add(s);
        HTTP.get(mysql.strings[0]);
        Rez := -1;
      end;
    end;
  finally
    HTTP.Free; // УБиваем HTTP
    Result.Free;
    postdata.Free;
    strings.Free;
    cookie.Free;
    post.Free;
    mysql.Free;
    url.Free;
    data.Free;
    zip.Free;
    login.Free;
    email.Free;
  end;