ANTICHAT — форум по информационной безопасности, OSINT и технологиям

p = class(tthread)
 private
 //переменные
 proxy:striing;
 otver:tstringlist;
  procedure getprx;
  procedure checkprx;
 protected
 procedure execute; override;
end;


var
form1..
p1,p2,p3,p4,p5,p6,p7:tthread;
i:integer;
pr:bool;


//процедура чека проксей

procedure p.checkprx;
begin
 otver:=tstringlist.create;
 // тут подставляешь прокси в инди(или что там у тебя). прокси - переменная proxy
 try
  otver.text:=http.get(somesite);
  if length(otver)<>0 then // наверное можно только except юзать
   прокси валидный
  else 
   прокси не валидный
 except 
  прокси не валидный
 end;
end;


//создаёшь процедуру, которая будет выдавать каждому потоку проксю

procedure p.getprx;
begin
 //чтото типо того
 proxy:= form1.memo1.lines[i];
 i:=i+1;
 if i=form1.memo1.lines.count // если прокся последняя - завершать проверку
 then pr:=false;
end;

procedure p.execute;
begin

//тутсоздаёшь все компоненты инди, или что там у тебя

 Synchronize(getprx); //берёш проксю
 repeat 
   checkprx;   //чекаешь
 until pr=false; 
end;


procedure tform1.button1click(sender: tobject);
begin
pr:=true;
i:=0;
 p1 := tnew.create(true);
 p1.freeonterminate := true;
 p1.priority := tpnormal;
 p1.resume;
p2 := tnew.create(true);
 p2.freeonterminate := true;
 p2.priority := tpnormal;
p2.resume;
// и так до p7

end;

procedure TProxyThread.Execute;
var cur_id : Cardinal;
Begin
      repeat
            cs1.Exiter;
            if (pxIndex >= maxProxy) then
            Begin
                  cs1.Leave;
                  Break;
            end;
            cur_id := pxIndex;
            Inc(pxIndex);
            cs1.Leave;
            //Теперь тут мы чекаем прокси с индексом cur_id
            ...
      until Terminated;
      //Тут убираем наш поток из списка активных потоков, проше всего это
      //можно сделать счётчиком убитых потоков и если этот счётчик становится после
      //инкремента равен 7 - значит все потоки остановлены, я проше так и сделаю
      cs2.Enter;
      Inc(termThreads);
      if (termThreads >= 7) then
      Begin
            //Здесь сигнализируем приложению что чек прокси закончился 
      end;
      cs2.Leave;
end;