Некоректно работает многопоточность

[doktor255]

Да? Ну смотри

HTTP.HTTPMethod('GET', proxy.Strings[Num]); // попытка загрузки, которая может провалиться
try
html.LoadFromStream(http.Document);// и какой толк от защиты этого куска, если упадёт загрузка???

Выведи весь свой поток в процедуру основного потока программы, и пошли в эту процедуру заведомо плохую ссылку, либо выполни её с отключенным интернетом. Вывалилась ошибка? Вывалившаяся ошибка внутри потока повесит его намертво. Получишь дохлую программу, которую останется только аварийно завершить.

И ещё

Application.ProcessMessages; // метод, вызываемый, если нужно дождаться окончания перерисовки визуальных контроллов
Synchronize(Sync); // синхронизация, в которой перерисовываются контроллы

Теперь подключи логику, и подумай, что не так.

[northener]

<OFFTOP>
2 doktor255

northener мозг подключи, и прочитай что тебе люди пишут.

Ну ты хотя бы пить "неопределённую жидкость" перестань. Или курить "неопределенную траву". Про грибы я уже молчу.
</OFFTOP>

[doktor255]

northener А ты перестань влазить в разговоры. Мешаешь только.

[UKRtortik]

Переписал немного код, но соровно не правильно работает, что теперь не так?

constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

procedure TNewThread.Execute;
var Num:integer;
begin
 while Work do
  begin
   CS.Enter;
   Inc(Acc);
   if Acc<proxy.Count then Num:=Acc else Work:=false;
   CS.Leave;
   form1.Memo2.Enabled:=false;
   if Work then
    begin
     HTTP:=THTTPSend.create();
     r:=TRegExpr.Create;
     HTTP.UserAgent:='Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/33.0.1750.154 Safari/537.36 OPR/20.0.1387.82';
     ipmaska:='\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5}';
     r.Expression := ipmaska;
     try
     html:=TStringList.Create;
     if HTTP.HTTPMethod('GET', proxy.Strings[Num]) then
     begin
     html.LoadFromStream(http.Document);
     r.Expression := ipmaska;
     end;
     finally
     if http.ResultCode=200 then
     begin
     if r.Exec(html.text) then
     REPEAT
     if Work=True then
     begin
     proxys:=r.Match[0];
     sleep(5);
     Synchronize(Sync);
     end;
     UNTIL not r.ExecNext; Synchronize(Sync2);
     end;
     end;
  end;
  end;
 if Thread=0 then
 begin
 HTTP.Free;
 html.free;
 r.Free;
 form1.SpeedButton1.Enabled:=true;
 form1.SpeedButton2.Enabled:=false;
 form1.Memo2.Enabled:=true;
 form1.Memo2.Lines.Add('Успешно завершено!');
 end;
 dec(Thread);
end;

procedure TNewThread.Sync;
var
i:integer;
begin
form1.Memo2.Lines.Add(proxys);
form1.Label1.Caption:=inttostr(form1.memo2.Lines.count);
end;

procedure TNewThread.Sync2;
begin
form1.ProgressBar1.Position:=form1.ProgressBar1.Position+1;
form1.Label6.Caption:=inttostr(form1.ProgressBar1.Position);
end;

[doktor255]

Почему то обрабатывает не все ссылки, и если поставить например 20 потоков то вообще начинает пропускать половина ссылок. В чем тут может быть проблема?

Проблема в том, что при большом количестве одновременных запросов происходят ошибки соединения. При этом нормально написанные программы делают повторные запросы, а твоя программа не делает ни хрена. Итог: программа работает не на 100%. И в коде нет ошибок. Ошибки в твоей логике. Пиши зацикливание алгоритма в случае неудачи соединения. При этом в идеале цикл должен быть не бесконечен, а к примеру выполнятся максимум 5 раз для того, чтоб исключить полное зацикливание в случае неверных входных данных.

for i := 0 to 5 do 
  begin
   try
     // получаем данные с сервера. ТОЛЬКО ДАННЫЕ. Больше в эту секцию ничего не пишется
   except end;
    if http.ResultCode=200 then break; //выходим из цикла в случае положительного ответа от сервера
  end;

  if http.ResultCode=200 then 
    begin
      // парсинг, или иные действия
    end;

И ещё момент

form1.Memo2.Enabled:=false;

Компонент работает в основном потоке приложения. А твой код исполняется в доп потоках. Связь между потоками через что нужно делать? Через синхронизацию. Это же касается HTTP, и прочих компонентов.

[UKRtortik]

doktor255, можете скинуть поправленый код? Я что-то не понял как правильно это сделать...

[doktor255]

UKRtortik Готовый код на коммерческой основе, советы бесплатны. Чего желаем?