log событий

как сделать лог событий для такого кода

PHP:

Idsmtp1.Host:=Edit5.text;
idsmtp1.Port:=25;
idsmtp1.Username:=edit6.text;
idsmtp1.Password:=edit7.text;
IdMessage1.From.Address := edit2.text;
IdMessage1.Recipients.Add.Address := edit4.text;
IdMessage1.Subject := edit3.text;
idmessage1.Body.Text:=memo3.text;
idsmtp1.Connect;
idsmtp1.Send(idmessage1);
showmessage('Отправленно');
idsmtp1.Disconnect();


и какой компонент для этого использовать?

 

Можно статически добавлять в мемо что происходит

 

не так не пойдет мне надо чтоб обробатывалось каждый емаил и писалось отправленно или нет.

 

Проверяй возвращаемое значение и по условию пиши в мемо

 

кхм... Зачем тут компонент?

У процедуры send нет возвращаемого значения...

Возможно, стоит использовать конструкцию:

PHP:

try begin
отсылка;
добавление в лог уведомления о отправке;
end
except
добавляем в лог ошибку

 

А что у процедур вообще есть возвращаемое значение?

Используй события

Events-> OnConnected
Events-> OnDisconnected
Events-> OnStatus

 

вот так:

Code:

var
emails [0..1024] of string;
i:cardinal;
.......

begin
.....

for i:=0 to length(emails) do 
begin
 Idsmtp1.Host:=Edit5.text; 
idsmtp1.Port:=25; 
idsmtp1.Username:=edit6.text; 
idsmtp1.Password:=edit7.text; 
IdMessage1.From.Address := emails[i]; 
IdMessage1.Recipients.Add.Address := edit4.text; 
IdMessage1.Subject := edit3.text; 
idmessage1.Body.Text:=memo3.text; 
idsmtp1.Connect; 
idsmtp1.Send(idmessage1); 
memo1.lines.add('Отправленно ==>' + emails[i]); 
idsmtp1.Disconnect(); 
end;

 

а че я собственно прелагал? также статически, надо использовать события.