многопоточный чекер мыл

[yfet]

как написать? есть код - но он однопоточный( а как сделать допустим на 5 потоках? чекает через поп3. кодим на делфи

[Chrome~]

Используй класс TThread.

[yfet]

спасибо кэп( я и так его использую. у меня не сильно в логике получается

[wolmer]

forum.antichat.ru/threadnav143556-1-10.html

[yfet]

там через хттп. мне же поп3 надо. как допустим для массива потоков это сделать?
количество их задаю таким макаром


procedure TMainForm.FormCreate(Sender: TObject);
begin
SetLength(check,1);
end;



procedure TMainForm.ThreadBarChange(Sender: TObject);
begin
SetLength(check,ThreadBar.Position);
end;

[yfet]

а саму проверку делаю так

procedure checkmail.Execute;
var
dest1,dest2,dest3, serv : string;
i : integer;
begin
for i:=0 to MainForm.AllEmailMemo.Lines.Count-1 do
Divide(MainForm.AllEmailMemo.Lines[i],Dest1,Dest2, Dest3);
serv:='pop.'+copy(dest3,pos('@',dest3)+1,10000);
MainForm.IdPOP31.Host:=serv;
MainForm.IdPOP31.Port:=110;
MainForm.IdPOP31.Username:=dest1;
MainForm.IdPOP31.Password:=dest2;
try
MainForm.IdPOP31.Connect;
MainForm.ValidMemo.Lines.Add(dest3+':'+dest2);
MainForm.LogMemo.Lines.Add(dest3+':'+dest2 + ' [успешно]');
except
MainForm.InvalidEmailMemo.Lines.Add(dest3+':'+dest 2);
MainForm.LogMemo.Lines.Add(dest3+':'+dest2 + ' [неуспешно]');
end;
MainForm.IdPOP31.Disconnect;
MainForm.ProgressBar1.Position:=MainForm.ProgressB ar1.Position+1;
inc(i);
end;

[intNet]

Забудь про TThread.
Юзай CreateThread() и ExitThread() или BeginThread() и EndThread().
Там всё проще, да и стабильнее работать всё будет.

[wolmer]

там через хттп. мне же поп3 надо.
там приведен пример многопоточности, писать код за тебя никто не будет

[BenLadenBest]

ТС, _http://forum.vingrad.ru/forum/topic-60076.html
и вот попроще - _http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1370

[yfet]

Цитата:
там через хттп. мне же поп3 надо.

там приведен пример многопоточности, писать код за тебя никто не будет

да я и не прошу. максимум - указать на ошибки.

2 intNet - а если хочу несколько потоков? то через for to do ?

ТС, _http://forum.vingrad.ru/forum/topic-60076.html и вот попроще - _http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1370

почитал я статью. во второй все и правда просто но я не понял как сделать несколько потоков. если обьясните буду премного благодарен

[cheater_man]

Я бы создал класс, который наследут класс потока, и создавал бы обьекты этого класса столько сколько мне нужно потоков :) Ребят это же основы многопоточности, что же здесь сложного :)