HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу log событий
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

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

Репутация: 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(); 
и какой компонент для этого использовать?
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

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

Репутация: 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
С нами: 9599589

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

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

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

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

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

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

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

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

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

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

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

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

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

Репутация: 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
С нами: 9489537

Репутация: 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



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


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




ANTICHAT ™ © 2001- Antichat Kft.