Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   log событий (https://forum.antichat.xyz/showthread.php?t=73061)

/Boom\ 08.06.2008 13:30
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(); 
и какой компонент для этого использовать?

0verbreaK 08.06.2008 14:18
Цитата:
Сообщение от /Boom\
как сделать лог событий для такого кода
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(); 
и какой компонент для этого использовать?
Можно статически добавлять в мемо что происходит

/Boom\ 08.06.2008 19:19
не так не пойдет мне надо чтоб обробатывалось каждый емаил и писалось отправленно или нет.

0verbreaK 08.06.2008 22:00
Цитата:
Сообщение от /Boom\
не так не пойдет мне надо чтоб обробатывалось каждый емаил и писалось отправленно или нет.
Проверяй возвращаемое значение и по условию пиши в мемо

Fen-Omen 09.06.2008 17:13
Цитата:
и какой компонент для этого использовать?
кхм... Зачем тут компонент?

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

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

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

0verbreaK 09.06.2008 22:20
Цитата:
У процедуры send нет возвращаемого значения...
А что у процедур вообще есть возвращаемое значение?

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

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

disasembler 10.06.2008 12:19
вот так:

Код:
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 11.06.2008 22:48
Цитата:
Сообщение от 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;
а че я собственно прелагал? также статически, надо использовать события.


Время: 20:40