Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
01.01.2010, 22:13
|
|
Познающий
Регистрация: 11.07.2009
Сообщений: 83
Провел на форуме:
279987
Репутация:
30
|
|
многопоточный чекер мыл
как написать? есть код - но он однопоточный( а как сделать допустим на 5 потоках? чекает через поп3. кодим на делфи
|
|
|
01.01.2010, 22:40
|
|
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
Провел на форуме:
1747641
Репутация:
175
|
|
Используй класс TThread.
|
|
|
|
01.01.2010, 22:48
|
|
Познающий
Регистрация: 11.07.2009
Сообщений: 83
Провел на форуме:
279987
Репутация:
30
|
|
спасибо кэп( я и так его использую. у меня не сильно в логике получается
|
|
|
|
01.01.2010, 22:52
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
forum.antichat.ru/threadnav143556-1-10.html
|
|
|
|
01.01.2010, 23:05
|
|
Познающий
Регистрация: 11.07.2009
Сообщений: 83
Провел на форуме:
279987
Репутация:
30
|
|
там через хттп. мне же поп3 надо. как допустим для массива потоков это сделать?
количество их задаю таким макаром
procedure TMainForm.FormCreate(Sender: TObject);
begin
SetLength(check,1);
end;
procedure TMainForm.ThreadBarChange(Sender: TObject);
begin
SetLength(check,ThreadBar.Position);
end;
|
|
|
|
01.01.2010, 23:10
|
|
Познающий
Регистрация: 11.07.2009
Сообщений: 83
Провел на форуме:
279987
Репутация:
30
|
|
а саму проверку делаю так
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;
|
|
|
|
01.01.2010, 23:11
|
|
Познающий
Регистрация: 31.05.2009
Сообщений: 68
Провел на форуме:
1271980
Репутация:
19
|
|
Забудь про TThread.
Юзай CreateThread() и ExitThread() или BeginThread() и EndThread().
Там всё проще, да и стабильнее работать всё будет.
|
|
|
|
01.01.2010, 23:12
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
там через хттп. мне же поп3 надо.
там приведен пример многопоточности, писать код за тебя никто не будет
|
|
|
|
01.01.2010, 23:21
|
|
Новичок
Регистрация: 26.04.2009
Сообщений: 8
Провел на форуме:
568815
Репутация:
11
|
|
ТС, _http://forum.vingrad.ru/forum/topic-60076.html
и вот попроще - _http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1370
Последний раз редактировалось BenLadenBest; 01.01.2010 в 23:26..
|
|
|
|
01.01.2010, 23:29
|
|
Познающий
Регистрация: 11.07.2009
Сообщений: 83
Провел на форуме:
279987
Репутация:
30
|
|
Цитата:
там через хттп. мне же поп3 надо.
там приведен пример многопоточности, писать код за тебя никто не будет
да я и не прошу. максимум - указать на ошибки.
2 intNet - а если хочу несколько потоков? то через for to do ?
ТС, _http://forum.vingrad.ru/forum/topic-60076.html и вот попроще - _http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1370
почитал я статью. во второй все и правда просто но я не понял как сделать несколько потоков. если обьясните буду премного благодарен
Последний раз редактировалось yfet; 01.01.2010 в 23:37..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
