Как отобразить в ProgressBar процесс отправки писем через SMTP

[leon2009]

привет! Как отобразить в ProgressBar процесс отправки писем через indySMTP!!!!

[Пепел Феникса]

вопрос из серии банальных
ты же знаешь сколько писем отправляешь
перед отправкой приравниваешь св-ву Max кол-во сообщений
и обнуляешь Position
после каждого отправленного письма увеличиваешь Position на 1
и все...просто

[leon2009]

нет, все адреса майлов из текстового файла (незнаю количество). можешь дать ссылку на пример, чтобы разобрать хотябы как выглидит? единственное смогу строки из memo подсчитать. Спасибо!

[Квэнди]

ss:tstringlist;
....
begin
ss:=tstringlist.create;
try
ss.loadfromfile('файл');
showmessage("кол-во строк: '+inttostr(ss.count));
finally
ss.free;
end;

[leon2009]

Квенди - куда мне можно код поставить или переслать??? да на загруску фалов разобрался = а вот на отправку......проблема.

[Квэнди]

Этот код считает кол-во строк в файле и не более

нет, все адреса майлов из текстового файла (незнаю количество)

этот код отдаст вам кол-во

[leon2009]

IdSMTP1.IOHandler:= IdIOHandlerSocket1;
IdIOHandlerSocket1.SocksInfo:= IdSocksInfo1;
IdIOHandlerSocket1.Open;
IdSocksInfo1.Host:=Edit1.Text;
IdSocksInfo1.Username:=Edit2.Text;
IdSocksInfo1.Password:=Edit3.Text;
IdSocksInfo1.Port:=strtoint(Edit4.Text);
IdIOHandlerSocket1.Connected;
if ComboBox1.ItemIndex=0 then IdSocksInfo1.Authentication:=saUsernamePassword else
if ComboBox1.ItemIndex=1 then IdSocksInfo1.Authentication:=saNoAuthentication else
IdSocksInfo1.Authentication:=saUsernamePassword;
if ComboBox3.ItemIndex=0 then IdSocksInfo1.Version:=svNoSocks else
if ComboBox3.ItemIndex=1 then IdSocksInfo1.Version:=svSocks4 else
if ComboBox3.ItemIndex=2 then IdSocksInfo1.Version:=svSocks4A else
if ComboBox3.ItemIndex=3 then IdSocksInfo1.Version:=svSocks5 else
IdSocksInfo1.Version:=svNoSocks;
IdSMTP1.Host:=Edit6.Text;
IdSMTP1.Port:=strtoint(Edit7.Text);
if ComboBox2.ItemIndex=0 then IdSMTP1.AuthenticationType:=atLogin else
if ComboBox2.ItemIndex=1 then IdSMTP1.AuthenticationType:=atNone else
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:=Edit9.Text;      
IdSMTP1.Password:=Edit10.Text;
IdSMTP1.Socket.Connected;
IdSMTP1.Connect(strtoint(Edit11.Text));                                   
IdMessage1.From.Address:=Edit12.Text;
IdMessage1.Sender.Address:=Edit13.Text;
IdMessage1.Recipients.EMailAddresses := Memo2.Lines.Text;
IdMessage1.Subject:=Edit15.Text;
IdMessage1.Body.Text:=Memo1.Text;  
if IdSMTP1.Connected=True then IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;

количество строк я знаю label1.caption:=inttostr(memo2.line s.count)
я не могу разобрать как это приписать к progresbar - чтобы показывало сколько уже отправлено а сколько осталось.

[KORN]

что то я у тебя не наблюдаю цикла, который перебирает по текстовому файлу... и где ты задаешь максимальное значение progresbar'a?

[leon2009]

наверное

ProgressBar1.Max:=memo2.lines.count;

так???
а вот как сделать цикл для отправки ???????
текстовой файл перебрать наверное можно с помощью -

ss:tstringlist;
begin
ss:=tstringlist.create;
try
ss.loadfromfile('mail.txt');
ProgressBar1.Max:=ss.count;
finally
ss.free;
end;

но отправка писем - я не могу понять куда и как в писать.
IdMessage1.Recipients.EMailAddresse s := ss.text?????

[KORN]

если я правильно понял у тебя в текстовом файле находятся адреса?
ProgressBar1.Max:=ss.count-1;
для получения конкретной строки используй ss.strings[i]; где i номер строки
ну а цикл ставишь в начале т.е. подключаешься, отправляешь, отключаешься и повторяешь до тех пор пока есть адреса