[cheburator]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78

procedure TMessage.BitBtn1Click(Sender: TObject); begin     Memo1.Lines.Clear;       LOG('                                                    Уважаемый абонент!!!');       LOG('');       LOG(' Специализированный оператор связи  уведомляет Вас о том,');       LOG(' что сертификат с данными:');       LOG('');       LOG(FormatDateTime(' Действителен с: dd.mm.yyyy г.', StrToDateTime(date_s.Caption)));       LOG(FormatDateTime(' Действителен до: dd.mm.yyyy г.', StrToDateTime(label4.Caption)));       LOG('');       LOG(' ФИО владельца: '+Fio_vlad.Caption);       LOG(' Должность: '+Dolzh.Caption);       LOG(' Организация: '+Organiz.Caption);       LOG(' Адрес электронной почты: '+Form9.DBGrid1.Fields[9].AsString);       LOG(' Серийный номер: '+Ser_nom.Caption);       LOG('');       LOG(' истекает через'+IntToStr(NOW-Form9.DBGrid1.Fields[1].Value)+' дн.');       LOG('');       LOG(FormatDateTime('по стостоянию на: dd.mm.yyyy г.', NOW));       LOG('');       LOG('');       LOG(' Рекомендуем Вам связаться с вашим менеджером для уточнения информации по тел: ');       LOG(' номера телефонов ');       LOG('');       LOG(' либо по адресу электронной почты :');       LOG(' какой-то адрес');       LOG(' 2-ой какой-то адрес');       LOG('');       LOG(' С Уважением, оператор связи"');       LOG(' доп.инфа об операторе: сайты и разная хрень');   IdSMTP1.Port:=25; //порт IdSMTP1.Host := 'smtp.mail.ru'; //хост IdSMTP1.AuthenticationType:=atLogin; IdSMTP1.Username:='логин на почтовике'; //user IdSMTP1.Password:='пароль на ящик';  //password IdMessage1.AddHeader('Content-Type: text/html; charset= "windows-1251"'); IdMessage1.Subject:='=?UTF-8?B?0KPQstC10LTQvtC80LvQtdC90LjQtSDQvtCxINC40YHRgtC10YfQtdC90LjQuCDRgdC10YDRgtC40YTQuNC60LDRgtCwLg?='; {заголовок} IdMessage1.Recipients.EMailAddresses:=Edit1.Text; //адрес получателя IdMessage1.From.Address:='parabellum_87@mail.ru'; //?адрес отправителя IdMessage1.Body.Assign(Memo1.Lines); try try IdSMTP1.Connect(1000); IdSMTP1.Send(IdMessage1); except on E:Exception do Memo1.Lines.Insert(0, 'ERROR: ' + E.Message); end; finally if IdSMTP1.Connected then IdSMTP1.Disconnect; end;   Try             DM.ADOConnection1.BeginTrans;               with DM.UPDATE_pis do                 begin                   Parameters.ParamByName('@ID_Pisma').Value:=Ser_nom.Caption;                   Parameters.ParamByName('@Data_otprav').Value:=NOW;                   Parameters.ParamByName('@Poluch').Value:=Edit1.Text;//на какой адрес отправили                   Parameters.ParamByName('@ID_Sotrud').Value:=Form9.DBGrid1.Fields[6].AsString;                   Parameters.ParamByName('@Status').Value:='Отправлено';//притваиваем статус отпрвлено, согласно ид записи из формы                 end;               DM.UPDATE_pis.ExecProc;               DM.ADOConnection1.CommitTrans;         except           DM.ADOConnection1.RollbackTrans;           ShowMessage('Невозможно выполнить. Повторите!');         end;             Message.Close;   DM.Zapros_ist_sert.Active:=False;   DM.Zapros_ist_sert.Active:=True; end; end.

в общем есть такой код отправки уведомления абону от том что у него истекает серт через столько-то дней по состоянию на дату отправки. Недостаток: нужно сделать запрос на выборку таких сертификатов. вывести это все в ДБГрид, и поочередно открывать каждую такую строку и отправлять уведомление кнопкой отправить. Подскажите пожалуйста как можно научить делать программу эту функцию автоматически. Что бы два раза в день, например, она прогоняла запрос на поиск сертификатов срок которых истекает менее чем через 30 дней и отправляла подобное сообщение автоматически, без участия пользователя, том случает если статус сообщения на момент отправки "Готово к отправке".В идеале, делать она это должна в фоновом режиме. Что бы сотруднику осталось только заходить время от времени и проверять все ли нормально отправляется.

[Страдалецъ]

Для начала, данные надо брать не из DBGrida а непосредственно из источника. Далее, данные источника надо формировать с учетом ваших требований. И наконец, что-бы это все работало автоматом, самый простой способ бросить на форму компонент TTimer и выставить интервал скажем 10000 = 10 минут. В событие таймера переносите ваш код и делаете сначала выборку данных по определенному критерию, а уже потом по полученному результату выполняете свой код отправки сообщений.

[cheburator]

Ага...спасибо, что подтвердил мои догадки.
Я представлял примерно так:
запрос на выборку по условию, где дата_окончания- NOW<=30 и статус "Готово в отправке";
далее код отправки сообщения, далее процедуру обновления записи в таблице с этим ИД (меняем статус с "готово к отправке" на "отправлено").
далее тянем следующую запись.

Вопрос теперь в следующем:
1. как это все замутить в фоне?
2. будет ли SQL ,блокировать транзакции на добавление новой записи в тот момент, когда будет выполняться описанный выше код?
3. и еще: как заставить делфи брать время с какого-нибудь более надежного ресурса, не с компа. А то вдруг кривые руки поменяют сис.время на компе и прога начнет рассылать сообщения "из будущего"

[Страдалецъ]

3. и еще: как заставить делфи брать время с какого-нибудь более надежного ресурса, не с компа. А то вдруг кривые руки поменяют сис.время на компе и прога начнет рассылать сообщения "из будущего"

Ну стопроцентной защиты вам никто не даст, а вот если есть выход в инет, то никто не мешает настроить комп на синхронизацию с одним из серверов времени каковые для этого и придуманы.

2. будет ли SQL ,блокировать транзакции на добавление новой записи в тот момент, когда будет выполняться описанный выше код?

Нет, не будет. Одно другому не помеха. К тому-же запись в БД занимает столь мало времени, что особо заморачиваться этим не стоит.

1. как это все замутить в фоне?

TTimer тем и хорош, что позволяет выполнять некие действия в отдельной нити программы не мешая основному процессу.

[cheburator]

Я думаю написать отдельный модуль, который будет запускаться с виндой в виде процесса и висеть в трее. Делать будет следующее: время от времени обновлять записи в БД, вычисляя сколько дней осталось до истечения серта, отправлять уведомления, и производить апдейт статуса с "готово к отправке" на "отправлено". делать это будет по таймауту в полностью автоматическом режиме. по сути дела это будет второе приложение, работающее с этой же базой. Думаю должно прокатить.

[lmikle]

Лучше сервис напиши.

[icWasya]

Сообщение от Страдалецъ

TTimer тем и хорош, что позволяет выполнять некие действия в отдельной нити программы не мешая основному процессу.

Неправда ваша.
OnTimer выполняется в основном потоке.

[cheburator]

Сообщение от lmikle

Лучше сервис напиши.

Как? Есть ссылки? А то у меня времени в обрез, до выходных прогу всю надо переделать. Отдельное приложение написать, работающее в фоновом режиме-это для меня полбеды, а вот с сервисом...я чего-то не догоняю краями как его писать

[cheburator]

С работой приложения в фоне разобрался. Теперь проблема в другом:

вытягивать запись из базы, проверять на условие. Если условие выполняется, отправлять сообщение на мэйл, взятый из этой записи с данными из этой же записи, обновлять запись. Только после этого переходить к другой и так далее. Если условие не выполняется, то переходить к другой записи, пока не дойдем до нужной или до конца таблицы.

Например

ФИО Возраст Статус сообщения.

Если возраст=30 и статус сообщения "готово к отправке", то отправляем " <ФИО>, вам сегодня <возраст>", далее обновляем запись статус сообщения:=<отправлено> иначе тянем другую запись.

зы: надеюсь,понятно описал проблему.

[cheburator]

Проблема решена. Всем спасибо.
Кому интересно, как решил, могу скинуть код.