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

[UKRtortik]

Все Добрый Вечер!

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

procedure TNewThread.Execute;
var
Num:integer;
html:Tstringlist;
ipmaska:string;
HTTP:THTTPSend;
r:TRegExpr;
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();
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:=TRegExpr.Create;
html:=TStringList.Create;
r.Expression := ipmaska;
HTTP.HTTPMethod('GET', proxy.Strings[Num]);
try
html.LoadFromStream(http.Document);
r.Expression := ipmaska;
if http.ResultCode=200 then
begin
if r.Exec(html.text) then
REPEAT
proxys:=r.Match[0];
sleep(50);
Application.ProcessMessages;
Synchronize(Sync);
if not Work then
begin
Break;
end;
until not r.ExecNext;
Synchronize(Sync2);
end;
finally
HTTP.Free;
html.free;
r.Free;
end;
end;
end;
if Thread=0 then
begin
form1.SpeedButton1.Enabled:=true;
form1.SpeedButton2.Enabled:=false;
form1.Memo2.Enabled:=true;
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;

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

[doktor255]

HTTP.HTTPMethod('GET', proxy.Strings[Num]);

Если при выполнении этой части кода, к примеру, произойдёт ошибка соединения, что тогда?

[UKRtortik]

как то так тогда нужно?

try
HTTP.HTTPMethod('GET', proxy.Strings[Num]);
html.LoadFromStream(http.Document);
r.Expression := ipmaska;
if http.ResultCode=200 then
begin

[doktor255]

UKRtortik Попробуй, и сам ответишь на свой вопрос.

[UKRtortik]

не помогло.

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

HTTP.HTTPMethod('GET', proxy.Strings[Num]);

Если при выполнении этой части кода, к примеру, произойдёт ошибка соединения, что тогда?

Там проверка на код соеденения есть

[doktor255]

Там это где? В параллельной вселенной?

[UKRtortik]

if http.ResultCode=200 then

[doktor255]

Рассказываю краткое содержание предыдущей серии. Если при попытке соединения с сервером произойдёт ошибка (сбой интернет), синапс вывалит исключение. А теперь расскажи мне, как обрабатываются исключения? Разрешаю подсмотреть в гугл.

[UKRtortik]

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

Рассказываю краткое содержание предыдущей серии. Если при попытке соединения с сервером произойдёт ошибка (сбой интернет), синапс вывалит исключение. А теперь расскажи мне, как обрабатываются исключения? Разрешаю подсмотреть в гугл.

Блоки - [try - except] и [try - finally] или я что-то не так понял?

[doktor255]

Понять та ты понял. Но рассказывать то начал про ResultCode. Подумай.