log событий

[/Boom\]

как сделать лог событий для такого кода
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();

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

[0verbreaK]

как сделать лог событий для такого кода
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();

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

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

[/Boom\]

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

[0verbreaK]

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

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

[Fen-Omen]

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

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

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

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

[0verbreaK]

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

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

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

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

[disasembler]

вот так:


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;

[0verbreaK]

вот так:


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;



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