ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу log событий
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

log событий
  #1  
Старый 08.06.2008, 13:30
/Boom\
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706

Репутация: 4
По умолчанию 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(); 
и какой компонент для этого использовать?
 
Ответить с цитированием

  #2  
Старый 08.06.2008, 14:18
0verbreaK
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101

Репутация: 136
По умолчанию
Цитата:
Сообщение от /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(); 
и какой компонент для этого использовать?
Можно статически добавлять в мемо что происходит
 
Ответить с цитированием

  #3  
Старый 08.06.2008, 19:19
/Boom\
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706

Репутация: 4
По умолчанию
не так не пойдет мне надо чтоб обробатывалось каждый емаил и писалось отправленно или нет.
 
Ответить с цитированием

  #4  
Старый 08.06.2008, 22:00
0verbreaK
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101

Репутация: 136
По умолчанию
Цитата:
Сообщение от /Boom\  
не так не пойдет мне надо чтоб обробатывалось каждый емаил и писалось отправленно или нет.
Проверяй возвращаемое значение и по условию пиши в мемо
 
Ответить с цитированием

  #5  
Старый 09.06.2008, 17:13
Fen-Omen
Участник форума
Регистрация: 22.03.2007
Сообщений: 220
Провел на форуме:
1068874

Репутация: 234
Отправить сообщение для Fen-Omen с помощью ICQ
По умолчанию
Цитата:
и какой компонент для этого использовать?
кхм... Зачем тут компонент?

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

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

PHP код:
try begin
отсылка;
добавление в лог уведомления о отправке;
end
except
добавляем в лог ошибку 
Последний раз редактировалось Fen-Omen; 09.06.2008 в 17:23..
 
Ответить с цитированием

  #6  
Старый 09.06.2008, 22:20
0verbreaK
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101

Репутация: 136
По умолчанию
Цитата:
У процедуры send нет возвращаемого значения...
А что у процедур вообще есть возвращаемое значение?

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

Events-> OnConnected
Events-> OnDisconnected
Events-> OnStatus
 
Ответить с цитированием

  #7  
Старый 10.06.2008, 12:19
disasembler
Познающий
Регистрация: 24.03.2008
Сообщений: 35
Провел на форуме:
90653

Репутация: 3
По умолчанию
вот так:

Код:
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;
 
Ответить с цитированием

  #8  
Старый 11.06.2008, 22:48
0verbreaK
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101

Репутация: 136
По умолчанию
Цитата:
Сообщение от 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;
а че я собственно прелагал? также статически, надо использовать события.
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Icq Log +) GreenBear Болталка 13 27.06.2005 17:15
FTP proxy IP log Thief Болталка 0 12.04.2005 13:05
Log vs pass Donnie_Brasko Чаты 5 20.10.2004 23:27



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ