Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   многопоточный чекер мыл (https://forum.antichat.xyz/showthread.php?t=167598)

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

Chrome~ 01.01.2010 22:40
Используй класс TThread.

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

wolmer 01.01.2010 22:52
forum.antichat.ru/threadnav143556-1-10.html

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

Цитата:
procedure TMainForm.FormCreate(Sender: TObject);
begin
SetLength(check,1);
end;
Цитата:
procedure TMainForm.ThreadBarChange(Sender: TObject);
begin
SetLength(check,ThreadBar.Position);
end;

yfet 01.01.2010 23:10
а саму проверку делаю так
Цитата:
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 01.01.2010 23:11
Забудь про TThread.
Юзай CreateThread() и ExitThread() или BeginThread() и EndThread().
Там всё проще, да и стабильнее работать всё будет.

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

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

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

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

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

Цитата:
ТС, _http://forum.vingrad.ru/forum/topic-60076.html и вот попроще - _http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1370
почитал я статью. во второй все и правда просто но я не понял как сделать несколько потоков. если обьясните буду премного благодарен


Время: 20:10
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице