Форум программистов, компьютерный форум, киберфорум
Наши страницы
Avazart
Войти
Регистрация
Восстановить пароль
Темы блога относятся к программированию на языке С++

В основном для C++Qt (Qt5.1) и C++ Builder (RAD 2009 и RAD XE3)
Рейтинг: 4.67. Голосов: 3.

Проект My Mail Agent

Запись от Avazart размещена 29.06.2012 в 17:35
Обновил(-а) Avazart 15.06.2014 в 15:47
Метки c++builder, imap, indy, pop3

Программа- почтовый клиент для отслеживания писем от cyberforum уведомлении о них.

Описание версии 7.2 :
Нажмите на изображение для увеличения
Название: My Mail Agent 7.2.jpg
Просмотров: 693
Размер:	82.7 Кб
ID:	1687


IDE : RAD Studio XE3.
Indy компоненты:
TIdIMAP4, TIdThreadComponent,
TIdMessage, TIdLogEvent,
TIdSSLIOHandlerSocketOpenSSL.
Данная версия программы подключается к почтовому серверу по протоколу IMAP4 и периодически осуществляет поиск писем от "admin@cyberforum.ru" ( можно задать ), поддерживает шифрование TLS. После загрузки письма отмечаются прочтенными либо удалёнными ( задается ).
В окне программы можно просмотреть содержание писем (только не MIME писем) и перейти по ссылке в письме.

Тестировал на почтовых серверах :

imap.ukr.net порт 143
imap.yandex.ru порт 993
mail.rambler.ru порт 143 TLS

Для сервера imap.mail.ru не удалось настроить.Как я понял, этот сервер не поддерживает команду SEARCH.

Исходный код главного модуля программы
UMain.h
C++
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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
//---------------------------------------------------------------------------
#ifndef UMainH
#define UMainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdExplicitTLSClientServerBase.hpp>
#include <IdIMAP4.hpp>
#include <IdMessage.hpp>
#include <IdMessageClient.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
#include <Vcl.ComCtrls.hpp>
#include <IdThreadComponent.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Menus.hpp>
#include <Vcl.ToolWin.hpp>
#include <System.Actions.hpp>
#include <Vcl.ActnList.hpp>
#include <Vcl.ImgList.hpp>
#include <Vcl.MPlayer.hpp>
#include <IdMailBox.hpp>
#include <Vcl.Dialogs.hpp>
#include <IdIOHandler.hpp>
#include <IdIOHandlerSocket.hpp>
#include <IdIOHandlerStack.hpp>
#include <IdSSL.hpp>
#include <IdSSLOpenSSL.hpp>
//---------------------------------------------------------------------------
#include <deque>
#include "USettings.h"
//---------------------------------------------------------------------------
class TFMyMailAgent : public TForm
{
__published:    // IDE-managed Components
    TIdIMAP4 *IdIMAP41;
    TRichEdit *RichEdit1;
    TIdThreadComponent *IdThreadComponent1;
    TPopupMenu *PopupMenu1;
    TSplitter *Splitter1;
    TProgressBar *ProgressBar1;
    TListBox *ListBox1;
    TStatusBar *StatusBar1;
    TRichEdit *RichEdit2;
    TSplitter *Splitter2;
    TTrayIcon *TrayIcon1;
    TActionList *ActionList1;
    TAction *AcSelect;
    TAction *AcUpdate;
    TAction *AcRun;
    TAction *AcStop;
    TAction *AcExit;
    TAction *AcStayOnTop;
    TAction *AcClear;
    TAction *AcLoadCommon;
    TAction *AcLoadUser;
    TAction *AcSaveUser;
    TAction *AcSaveCommon;
    TAction *AcSettings;
    TImageList *ImageList1;
    TPopupMenu *PopupMenu2;
    TMenuItem *N10;
    TMenuItem *N11;
    TMenuItem *N8;
    TMediaPlayer *MediaPlayer1;
    TBalloonHint *BalloonHint1;
    TMainMenu *MainMenu1;
    TMenuItem *N1;
    TMenuItem *N5;
    TMenuItem *N7;
    TMenuItem *N12;
    TMenuItem *N2;
    TMenuItem *N14;
    TMenuItem *N15;
    TMenuItem *N13;
    TMenuItem *N4;
    TMenuItem *N3;
    TCoolBar *CoolBar1;
    TToolBar *ToolBar1;
    TToolButton *ToolButton1;
    TToolButton *ToolButton2;
    TToolButton *ToolButton6;
    TToolButton *ToolButton4;
    TToolButton *ToolButton5;
    TToolButton *ToolButton8;
    TPanel *Panel1;
    TLabel *Label7;
    TLabel *Label8;
    TMenuItem *N16;
    TToolButton *ToolButton3;
    TAction *AcVoice;
    TAction *AcAbout;
    TMenuItem *N17;
    TAction *AcRestore;
    TMenuItem *N9;
    TMenuItem *N18;
    TMenuItem *N20;
    TMenuItem *N19;
    TMenuItem *N21;
    TMenuItem *N6;
    TMenuItem *N22;
    TToolButton *ToolButton7;
    TAction *AcSaveAs;
    TAction *AcSaveAll;
    TMenuItem *N23;
    TMenuItem *N24;
    TSaveDialog *SaveDialog1;
    TIdSSLIOHandlerSocketOpenSSL *IdSSLIOHandlerSocketOpenSSL1;
    void __fastcall IdThreadComponent1Run(TIdThreadComponent *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall AcRunExecute(TObject *Sender);
    void __fastcall AcStopExecute(TObject *Sender);
    void __fastcall AcExitExecute(TObject *Sender);
    void __fastcall AcStayOnTopExecute(TObject *Sender);
    void __fastcall AcSelectExecute(TObject *Sender);
    void __fastcall IdIMAP41WorkBeginForPart(TObject *ASender, TWorkMode AWorkMode,
          __int64 AWorkCountMax);
    void __fastcall IdIMAP41WorkForPart(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCount);
    void __fastcall AcClearExecute(TObject *Sender);
    void __fastcall AcSettingsExecute(TObject *Sender);
    void __fastcall AcSaveUserExecute(TObject *Sender);
    void __fastcall AcLoadUserExecute(TObject *Sender);
    void __fastcall IdThreadComponent1Terminate(TIdThreadComponent *Sender);
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall TrayIcon1Click(TObject *Sender);
    void __fastcall AcVoiceExecute(TObject *Sender);
    void __fastcall AcSaveCommonExecute(TObject *Sender);
    void __fastcall AcLoadCommonExecute(TObject *Sender);
    void __fastcall AcAboutExecute(TObject *Sender);
    void __fastcall AcRestoreExecute(TObject *Sender);
    void __fastcall AcSaveAllExecute(TObject *Sender);
    void __fastcall AcSaveAsExecute(TObject *Sender);
 
 
private:    // User declarations
     TFSettings* FSettings; // окно настроек
 
     std::deque<TIdMessage*> Box; // контейнер с письмами
     TCriticalSection *CS;  // для синхрониз. доступа к контейнеру с письмами
 
     // Новые письма и ошибки
     size_t MsgCount;
     size_t ErrorCount;
     String ErrorMsg;
 
     //
     String Dir;    // Путь к папке с файлом настроек
     String UserFile;   // Имя файла настроек пользователя
     String CommonFile;   // Имя файла общих настроек
     String Downloads;   // Папка для загрузок
     //
     void __fastcall UpdateData(); // Обновление писем
     //  Отображения процесса загрузки
     __int64 Max;
     __int64 Current;
 
     void __fastcall Progress();
     void __fastcall ProgressBegin();
     void __fastcall ProgressEnd();
     // Вывод информации о получении новых уведомлений и ошибках
     void __fastcall ShowInfo();
     // Реализация ожидания в потоке
     void __fastcall Wait(unsigned second);
 
     // Спрятать в панели задач
     void __fastcall WMSysCommand(TWMSysCommand&);
     // Отлов сообщения о нажатии кнопки свернуть
     BEGIN_MESSAGE_MAP
     MESSAGE_HANDLER(WM_SYSCOMMAND,TWMSysCommand,WMSysCommand);
     END_MESSAGE_MAP(TComponent);
     // Для обработки нажатия на ссылку
     void __fastcall WndProc(Messages::TMessage &Message);
     void __fastcall ClearBox();
 
public:     // User declarations
 
     // Настройки
     int Interval;
     String From;
     String MailBox;
     TIdMessageFlagsSet FlagsSet;
 
     String VoiceFile;
     String VoiceFile1;
     String VoiceFile2;
 
    __fastcall TFMyMailAgent(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFMyMailAgent *FMyMailAgent;
//---------------------------------------------------------------------------
#endif
UMain.cpp
C++
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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
//---------------------------------------------------------------------------
#include <vcl.h>
#include <inifiles.hpp>
#include <Vcl.FileCtrl.hpp>
#pragma hdrstop
 
#include "UMain.h"
#include "UDebug.h"
#include "my_functions.h"
#include "ABOUT.h"
#include <vector>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFMyMailAgent *FMyMailAgent;
 
//---------------------------------------------------------------------------
__fastcall TFMyMailAgent::TFMyMailAgent(TComponent* Owner)
    : TForm(Owner)
{
    CS= new TCriticalSection;
 
    Max= 0;
    Current= 0;
 
    MsgCount= 0;
    ErrorCount= 0;
 
    // Выделение  гиперссылок
    unsigned mask = SendMessage(RichEdit1->Handle, EM_GETEVENTMASK, 0, 0);
    SendMessage(RichEdit1->Handle, EM_SETEVENTMASK, 0, mask | ENM_LINK);
    SendMessage(RichEdit1->Handle, EM_AUTOURLDETECT, true, 0);
 
    Dir= "Настройки";
    Downloads ="Загрузки";
 
    if(! DirectoryExists(Dir) )  Dir= "..\\Настройки";
 
    UserFile= "Пользователь.ini";
    CommonFile= "Общие.ini";
 
    VoiceFile1= Dir+"\\Ошибка.mp3";
    VoiceFile2= Dir+"\\Получены новые сообщения.mp3";
 
 
 
}
//----------------------------------------------------------------------------
void __fastcall TFMyMailAgent::FormCreate(TObject *Sender)
{
    AcClear->Execute();
    AcLoadUser->Execute();
    AcLoadCommon->Execute();
 
    // Параметры  командной строки для автозапуска
    if(ParamCount()>0)
        {  // Свернуть
            if(ParamStr(1)=="-hide" || ParamCount()==2 && ParamStr(2)=="-hide")
                {
                    Application->ShowMainForm= false;
                    Visible= false;
                } // Запустить
            if(ParamStr(1)=="-run" || ParamCount()==2 && ParamStr(2)=="-run")
                {
                    AcRun->Execute();
                }
 }
 
#ifdef _DEBUG      // Окно отладки  ( только в Debug сборке )
     FDebug= new TFDebug(Application);
#endif
}
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcRunExecute(TObject *Sender)
{
    AcRun->Enabled=  false;
    AcStop->Enabled= true;
 
    IdThreadComponent1->Start();
}
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcStopExecute(TObject *Sender)
{
 
    AcRun->Enabled=  true;
    AcStop->Enabled= false;
 
    IdThreadComponent1->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcClearExecute(TObject *Sender)
{
    ClearBox();
 
    Label8->Caption="";
    Label7->Caption="";
    RichEdit1->Clear();
    RichEdit2->Clear();
    ListBox1->Clear();
}
//---------------------------------------------------------------------------
// Поверх других окон
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcStayOnTopExecute(TObject *Sender)
{                   // Поверх всех окон
    if(AcStayOnTop->Checked) FormStyle= fsStayOnTop;
    else                     FormStyle= fsNormal;
 
    AcStayOnTop->ImageIndex= AcStayOnTop->Checked ? 4 : 3;
}
//---------------------------------------------------------------------------
// Выделение темы письма в ListBox1
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcSelectExecute(TObject *Sender)
{
    if( ListBox1->ItemIndex <0 ) return;
 
    CS->Acquire();
    try
        {
            RichEdit1->Lines->Assign( Box[ListBox1->ItemIndex]->Body );
            RichEdit1->SelStart= 0;
 
            Label7->Caption= my::WinToUnicode(Box[ListBox1->ItemIndex]->From->Text);
            Label8->Caption= Box[ListBox1->ItemIndex]->Date.DateTimeString();
            StatusBar1->Panels->Items[0]->Text=
                                             my::WinToUnicode(Box[ListBox1->ItemIndex]->Subject);
        }
    __finally
        {
            CS->Release();
        }
}
//--------------------------------------- -------------------------------
// Подмена оконной процедуры для перехода по гиперссылокам
//--------------------------------------- -------------------------------
void __fastcall TFMyMailAgent::WndProc(Messages::TMessage &Message)
{
    if(Message.Msg == WM_NOTIFY)   // #1
        {
            if(((LPNMHDR)Message.LParam)->code == EN_LINK)    // #2
                {
                    ENLINK* p = (ENLINK *)Message.LParam;
                    if(p->msg == WM_LBUTTONDOWN)       // #3
                        {
                            SendMessage(RichEdit1->Handle, EM_EXSETSEL, 0, (LPARAM)&(p->chrg));
                            ShellExecuteW(Handle,L"open",RichEdit1->SelText.w_str(),0, 0, SW_SHOWNORMAL);
                        } // IF  3
                }// IF  2
        } // IF 1
    TForm::WndProc(Message);
}
//---------------------------------------------------------------------------
// Окно настроек
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcSettingsExecute(TObject *Sender) // Вызов окна настроек
{
    TFormStyle FStyle=  FormStyle;
    FormStyle= fsNormal;
 
    bool Active = IdThreadComponent1->Active;
 
    if( Active ) IdThreadComponent1->Terminate();  // Останавливаем  поток
             //  Окно настроек
    std::auto_ptr<TFSettings> FSettings(new TFSettings(Application));
 
    FSettings->EditUserName->Text= IdIMAP41->Username;
    FSettings->EditPassword->Text= IdIMAP41->Password;
    FSettings->EditPort->Text= IntToStr(IdIMAP41->Port);
    FSettings->EditHost->Text= IdIMAP41->Host;
    FSettings->ComboBoxUseTLS->ItemIndex= (int)IdIMAP41->UseTLS;
 
    FSettings->ComboBoxMailBox->Text= MailBox;
    FSettings->EditInterval->Text= IntToStr(Interval);
    FSettings->EditFrom->Text= From;
 
    FSettings->CheckBoxAsSeen->Checked= FlagsSet.Contains(mfSeen);
    FSettings->CheckBoxAsDeleted->Checked= FlagsSet.Contains(mfDeleted);
 
    if(FSettings->ShowModal()== mrOk)   // Применить
        {
            IdIMAP41->Username= FSettings->EditUserName->Text;
            IdIMAP41->Password= FSettings->EditPassword->Text;
            IdIMAP41->Port= FSettings->EditPort->Text.ToIntDef(143);
            IdIMAP41->Host= FSettings->EditHost->Text;
            IdIMAP41->UseTLS= (TIdUseTLS) FSettings->ComboBoxUseTLS->ItemIndex;
 
            MailBox= FSettings->ComboBoxMailBox->Text;
            Interval= FSettings->EditInterval->Text.ToIntDef(60);
            From= FSettings->EditFrom->Text;
 
            FlagsSet.Clear();
 
            if(FSettings->CheckBoxAsSeen->Checked)    FlagsSet<<mfSeen;
            if(FSettings->CheckBoxAsDeleted->Checked) FlagsSet<<mfDeleted;
        }
 
    if( Active ) IdThreadComponent1->Start();  // Запускаем  поток
 
    FormStyle= FStyle;
}
//---------------------------------------------------------------------------
// Сохранение общих настроек
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcSaveCommonExecute(TObject *Sender)
{
    if( WindowState==wsMaximized )
        {
            Visible= false;
            WindowState= wsMinimized;
        }
 
    if(!DirectoryExists(Dir))  MkDir(Dir);
 
    std::auto_ptr<TIniFile>IniFile(new TIniFile(Dir+"\\"+CommonFile) );
 
    IniFile->WriteInteger("Положение","Слева", Left);
    IniFile->WriteInteger("Положение","Сверху", Top);
    IniFile->WriteInteger("Положение","Ширина", Width);
    IniFile->WriteInteger("Положение","Высота", Height);
    IniFile->WriteInteger("Положение","Ширина списка", ListBox1->Width);
    IniFile->WriteInteger("Положение","Высота лога", RichEdit2->Height);
 
    IniFile->WriteBool("Вид","Поверх всех окон", AcStayOnTop->Checked);
 
    IniFile->WriteBool("Аудио","Не воспроизводить", AcVoice->Checked);
    IniFile->WriteString("Аудио","Файл1", VoiceFile1);
    IniFile->WriteString("Аудио","Файл2", VoiceFile2);
}
//---------------------------------------------------------------------------
// Загрузка общих настроек
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcLoadCommonExecute(TObject *Sender)
{
    if(!FileExists(Dir+"\\"+CommonFile) )
        {
            RichEdit1->Lines->Add(
                Time().TimeString()+" Не удалось открыть файл \""+Dir+"\\"+CommonFile+"\""
                                                 );
            return;
        }
 
    std::auto_ptr<TIniFile>IniFile(new TIniFile(Dir+"\\"+CommonFile) );
    std::auto_ptr<TStringList>SL(new TStringList);
 
    IniFile->ReadSectionValues("Положение",SL.get() );
 
    Left= SL->Values["Слева"].ToIntDef(Left);
    Top= SL->Values["Сверху"].ToIntDef(Top);
    Width= SL->Values["Ширина"].ToIntDef(Width);
    Height= SL->Values["Высота"].ToIntDef(Height);
    ListBox1->Width= SL->Values["Ширина списка"].ToIntDef(ListBox1->Width);
 
    RichEdit2->Height= SL->Values["Высота лога"].ToIntDef(RichEdit2->Height);
    // Хитрость для сохранения взаимного расположения компонет
    RichEdit2->Top= 0;
    Splitter2->Top= 0;
    ProgressBar1->Top= Width;
    StatusBar1->Top= Width;
 
    IniFile->ReadSectionValues("Вид",SL.get() );
 
    AcStayOnTop->Checked= SL->Values["Поверх всех окон"].ToIntDef(0);
    AcStayOnTopExecute(Sender);
 
    IniFile->ReadSectionValues("Аудио",SL.get() );
 
    AcVoice->Checked= SL->Values["Не воспроизводить"].ToIntDef(0);
    AcVoice->ImageIndex= AcVoice->Checked ? 14 : 13;
 
    VoiceFile1=  SL->Values["Файл1"];
    VoiceFile2=  SL->Values["Файл2"];
}
//---------------------------------------------------------------------------
// Сохранение пользовательских настроек
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcSaveUserExecute(TObject *Sender)
{
    if(!DirectoryExists(Dir))  MkDir(Dir);
 
    std::auto_ptr<TIniFile>IniFile(new TIniFile(Dir+"\\"+UserFile) );
 
    IniFile->WriteString("Почтовый ящик","Логин",IdIMAP41->Username);
    IniFile->WriteString("Почтовый ящик","Пароль",IdIMAP41->Password);
    IniFile->WriteString("Почтовый ящик","Хост",IdIMAP41->Host);
    IniFile->WriteInteger("Почтовый ящик","Порт",IdIMAP41->Port);
    IniFile->WriteInteger("Почтовый ящик","Поддержка TLS",IdIMAP41->UseTLS);
 
    IniFile->WriteString("Поиск","Ящик",MailBox);
    IniFile->WriteInteger("Поиск","Интервал",Interval);
    IniFile->WriteString("Поиск","От",From);
 
    IniFile->WriteBool("Отмечать письма","Прочтенными", FlagsSet.Contains(mfSeen)    );
    IniFile->WriteBool("Отмечать письма","Удаленными",  FlagsSet.Contains(mfDeleted) );
 
 
}
//---------------------------------------------------------------------------
// Загрузка пользовательских настроек
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcLoadUserExecute(TObject *Sender)
{
    if(!FileExists(Dir+"\\"+UserFile) )
        {
            RichEdit1->Lines->Add(
                Time().TimeString()+" Не удалось открыть файл \""+Dir+"\\"+UserFile+"\""
                                                     );
            return;
        }
 
    std::auto_ptr<TIniFile>IniFile(new TIniFile(Dir+"\\"+UserFile) );
    std::auto_ptr<TStringList>SL(new TStringList);
 
    IniFile->ReadSectionValues("Почтовый ящик",SL.get() );
 
    IdIMAP41->Username= SL->Values["Логин"];
    IdIMAP41->Password=  SL->Values["Пароль"];
    IdIMAP41->Host= SL->Values["Хост"];
    IdIMAP41->Port= SL->Values["Порт"].ToIntDef(143);
    IdIMAP41->UseTLS= SL->Values["Поддержка TLS"].ToIntDef(0);
 
    IniFile->ReadSectionValues("Поиск",SL.get() );
    MailBox=  SL->Values["Ящик"];
    Interval= SL->Values["Интервал"].ToIntDef(60);
    From=     SL->Values["От"];
 
    IniFile->ReadSectionValues("Отмечать письма",SL.get() );
 
    bool  Seen=  SL->Values["Прочтенными"].ToIntDef(1);
    bool  Deleted= SL->Values["Удаленными"].ToIntDef(0);
 
    if(Seen)    FlagsSet<<mfSeen;
    if(Deleted) FlagsSet<<mfDeleted;
}
//---------------------------------------------------------------------------
// Выход из программы
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcExitExecute(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::FormClose(TObject *Sender, TCloseAction &Action)
{
    // Сохранить настройки
    AcSaveUser->Execute();
    AcSaveCommon->Execute();
 
    // Остановить поток
    if( IdThreadComponent1->Active )
            IdThreadComponent1->TerminateAndWaitFor(); // Ждать пока не остановится поток
 
    // Почистить память
    ClearBox();
    delete CS;
}
//---------------------------------------------------------------------------
//    Методы для потока
//  ( только внутри потока IdThreadComponent  )
//------------------------ Обновление данных (новые письма)------------------
void __fastcall TFMyMailAgent::UpdateData()
{
    ListBox1->Items->Clear();
 
    for(size_t i=0; i< Box.size(); i++)
        {
            ListBox1->Items->Add( my::WinToUnicode( Box[i]->Subject ) );
        }
 
    if(ListBox1->ItemIndex<0 && ListBox1->Items->Count)
        {
            ListBox1->ItemIndex= 0;
            AcSelectExecute(ListBox1);
        }
}
//--------------------- Вывод информации -------------------------------------
void __fastcall TFMyMailAgent::ShowInfo()
{
    String Line;
 
    if(!ErrorCount)// Нет ошибок
        {
            if(MsgCount)// Новые сообщения
                {
                    Line= "Получено "+String(MsgCount)+" новых сообщений";
 
                    TrayIcon1->BalloonFlags= bfInfo;
                    TrayIcon1->BalloonTitle= From;
                    MediaPlayer1->FileName= VoiceFile2;
                }
            else Line ="Нет новых сообщений";
        }
    else// Ошибка
        {
            TrayIcon1->BalloonTitle="Ошибка";
            TrayIcon1->BalloonFlags= bfError;
            MediaPlayer1->FileName= VoiceFile1;
            Line= "Возникла ошибка: \""+my::ReplaceCRLF(ErrorMsg)+"\"";
        }
    // Уведомление  в трее
    if(MsgCount || ErrorCount == 1)
        {
            TrayIcon1->BalloonHint=  Line;
            TrayIcon1->ShowBalloonHint();
        }
    // Голос
    if(!AcVoice->Checked && (MsgCount || ErrorCount==1) )
        {
         try
             {
                 MediaPlayer1->Open();
                 MediaPlayer1->Play();
             }
         catch(...)
             {
                 Line+= "\nНе удалось открыть аудио файл :\""+MediaPlayer1->FileName+"\"";
             }
        }
    // Лог
    RichEdit2->Lines->Add(Time().TimeString()+" "+Line);
    RichEdit2->Perform(WM_KEYDOWN,VK_NEXT,0);
    // Статус  панель
    StatusBar1->Panels->Items[0]->Text= Line;
}
//--------------------- Ожидание --------------------------------------------
void __fastcall TFMyMailAgent::Wait(unsigned second)
{
    int k= 10*second;
 
    while( !IdThreadComponent1->Terminated && k)
        {
            Sleep(100);
            k--;
        }
}
//------------- Поток для опроса данных с почтового ящика ---------------------
void __fastcall TFMyMailAgent::IdThreadComponent1Run(TIdThreadComponent *Sender)
{
try
    {
         if( !IdIMAP41->Connected() && !IdThreadComponent1->Terminated)   // Если есть конект и поток не останавливается
            {
                IdIMAP41->Connect();
            }
 
         if( IdIMAP41->ConnectionState!= csSelected && !IdThreadComponent1->Terminated)  // Если не выделен ящик и поток не останавливается
            {
                IdIMAP41->SelectMailBox(MailBox);
            }
 
         TIdIMAP4SearchRec SR[2];     // параметры поиска
         SR[0].SearchKey= skFrom;     // письма  от ...
         SR[0].Text= From;
         SR[1].SearchKey= skUnseen;   // Не прочтенные письма
 
         MsgCount= 0;
 
         IdIMAP41->CheckMailBox();
 
         if( IdIMAP41->SearchMailBox(SR,2) )
             {
                MsgCount = IdIMAP41->MailBox->SearchResult.Length;
                for (size_t i=0; i<MsgCount; i++)
                 {
                     if(IdThreadComponent1->Terminated) return;
 
                     TIdMessage* IdMessageX = new TIdMessage(NULL);
                     IdIMAP41->Retrieve(IdIMAP41->MailBox->SearchResult[i],IdMessageX);
 
                     CS->Acquire();
                     try
                         {
                             Box.push_front(IdMessageX);
                         }
                     __finally
                         {
                             CS->Release();
                         }
 
                        if( !FlagsSet.Empty() )
                                IdIMAP41->StoreFlags( &IdIMAP41->MailBox->SearchResult[i],1,sdAdd,FlagsSet);
                    } // FOR
             } // IF
 
        if(MsgCount)
            {
                Sender->Synchronize( &UpdateData );
            }
        IdIMAP41->CloseMailBox();
 
        ErrorCount= 0;
     }
catch(EIdException &E)
    {
        if(IdThreadComponent1->Terminated) return;
        else IdIMAP41->Disconnect(false);
 
        ErrorCount++;
        ErrorMsg = E.Message;
    }
 
if(IdThreadComponent1->Terminated) return;
 
Sender->Synchronize( &ShowInfo );
Sender->Synchronize( &ProgressEnd );
Wait(Interval);
}
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::IdThreadComponent1Terminate(TIdThreadComponent *Sender)
{
    IdIMAP41->Disconnect(true);
}
//---------------------------------------------------------------------------
//  Обработчики процесса загрузки  IdIMAP41
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::IdIMAP41WorkBeginForPart(TObject *ASender, TWorkMode AWorkMode,
                    __int64 AWorkCountMax)
{
    if(AWorkMode == wmRead)
        {
            Max= AWorkCountMax;
            IdThreadComponent1->Synchronize(&ProgressBegin);
        }
}
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::IdIMAP41WorkForPart(TObject *ASender, TWorkMode AWorkMode,
                    __int64 AWorkCount)
{
    if(AWorkMode == wmRead)
        {
            Current =  AWorkCount;
            IdThreadComponent1->Synchronize(&Progress);
        }
}
//---------------------------------------------------------------------------
//  Методы для отображение прогресса    ( вызов только через Syncronyze() )
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::ProgressBegin()
{
    ProgressBar1->Max= Max;
}
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::Progress()
{
    ProgressBar1->Position= Current;
}
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::ProgressEnd()
{
    Current= 0;
    ProgressBar1->Position= 0;
}
//---------------------------------------------------------------------------
//  Реализация сворачивания/разворачивания окна трей
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::WMSysCommand(TWMSysCommand& Msg)
{           // Кнопка свернуть
    if (Msg.CmdType == SC_MINIMIZE) Visible= false;
    else DefWindowProc(Handle,WM_SYSCOMMAND,Msg.CmdType,MAKELPARAM(Msg.XPos,Msg.YPos));
 
    Msg.Result= 0;
}
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::TrayIcon1Click(TObject *Sender)
{
    Visible= !Visible;
    if(Visible) SetForegroundWindow(Handle);
}
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcRestoreExecute(TObject *Sender)
{
    Visible= true;
    SetForegroundWindow(Handle);
}
//---------------------------------------------------------------------------
// Голосовое уведомление
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcVoiceExecute(TObject *Sender)
{
    AcVoice->ImageIndex= ( AcVoice->Checked ) ? 14 : 13;
}
//---------------------------------------------------------------------------
// Очистка контейнера писем
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::ClearBox()
{
    CS->Acquire();
    try
        {
            for(size_t i=0; i<Box.size(); i++) delete Box[i];
            Box.clear();
        }
    __finally
        {
            CS->Release();
    }
}
//---------------------------------------------------------------------------
// Окно "О программе"
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcAboutExecute(TObject *Sender)
{
    TFormStyle FStyle=  FormStyle;
    FormStyle= fsNormal;
    AboutBox->ShowModal();
    FormStyle= FStyle;
}
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcSaveAllExecute(TObject *Sender)
{
    TFormStyle FStyle=  FormStyle;
    FormStyle= fsNormal;
 
    if(!DirectoryExists(Downloads) ) MkDir(Downloads);
 
    String FileName,ChosenDir;
 
    CS->Acquire();
    try
        {
            if( SelectDirectory("Выберите директорию:",ExtractFilePath(Application->ExeName),ChosenDir ) )
            for(size_t index=0; index<Box.size(); index++)
                {
                        {
                            FileName=
                                my::GenFileName(my::WinToUnicode(Box.at(index)->Subject))+
                                " ("+Box.at(index)->Date.FormatString("hh-mm-ss DD.MM.YYYY")+").msg";
 
                            Box.at(index)->SaveToFile(ChosenDir+"\\"+FileName);
                        }
                }
     }
 __finally
     {
         CS->Release();
     }
 
    FormStyle= FStyle;
}
//---------------------------------------------------------------------------
void __fastcall TFMyMailAgent::AcSaveAsExecute(TObject *Sender)
{
    if(ListBox1->ItemIndex>=0)
        {
            TFormStyle FStyle=  FormStyle;
            FormStyle= fsNormal;
            if(!DirectoryExists(Downloads) ) MkDir(Downloads);
            SaveDialog1->InitialDir= ExtractFilePath(Application->ExeName)+Downloads;
 
            CS->Acquire();
            try
                {
 
 
                    for(size_t index=0; index<Box.size(); index++)
                        {
                            if(ListBox1->Selected[index])
                                {
                                    SaveDialog1->FileName=
                                        my::GenFileName(my::WinToUnicode(Box.at(index)->Subject))+
                                        " ("+Box.at(index)->Date.FormatString("hh-mm-ss DD.MM.YYYY")+")";
 
                                    if(SaveDialog1->Execute() )
                                         Box.at(index)->SaveToFile(SaveDialog1->FileName);
                                }  // if selected
                        }// for
                }
         __finally
                {
                    CS->Release();
                }
            FormStyle= FStyle;
         }// Index>=0
}
//---------------------------------------------------------------------------



Описание более старых версий :
Нажмите на изображение для увеличения
Название: v31.jpg
Просмотров: 816
Размер:	217.3 Кб
ID:	906


IDE : RAD Studio 2009
Indy компоненты: TIdPOP3,TIdMessage.
Класс потока: TThread
Доп.библиотеки boost/regex.

Исходники:

My Mail Agent v7.2 (Исходники).rar
My Mail Agent v6.0.rar
My Mail Agent v5.0.rar
My Mail Agent v4.5.rar

Темы:

1. IdPOP3. Проверка почты на mail.ru. Неверная кодировка текста.
2. Объекты синхронизации
3. TThread + Indy + Exceptions

Литература:

1. RFC 2.0 — Русские Переводы RFC
2. "Глубины Indy" А. Подгорецкий.
Размещено в C++, C++Builder
Просмотров 5822 Комментарии 16
Всего комментариев 16
Комментарии
  1. Старый комментарий

    Почтовый клиент

    Здравствуйте, есть вопросы по почтовому клиенту:
    1. My Mail Agent v7.2 (Исходники) - захожу в настройки (опции - настройки), логин и пароль это от учетной записи какого либо почтовика (в моем случае - яндекс), прописываю почту и пароль, а дальше начинается:
    Хост:
    Порт:
    Яндекс для этого пишет:
    Цитата:
    Если у вас другая почтовая программа, активируйте в ее настройках шифрование передаваемых данных по протоколу SSL (TLS) для получения почты (IMAP или POP3) и для отправки почты (SMTP). После этого измените значения портов для подключения к серверам на следующие:

    IMAP — 993;
    POP3 — 995;
    SMTP — 465.
    И есть еще пункт: поддержка TLS

    Вопросы:
    1. Что именно нужно писать в Хосте и Порте?
    2. Что именно нужно выбирать в TLS?
    3. В настройках почты я разрешил:
    Цитата:
    Разрешить доступ к почтовому ящику с помощью почтовых клиентов
    С сервера imap.yandex.ru по протоколу IMAP
    С сервера pop.yandex.ru по протоколу POP3
    Выделить всё/снять выделение
    Входящие
    Отправленные
    Спам
    Добавлять к темам писем со спамом пометку [SPAM]
    Черновики
    Нужно ли это было разрешать?
    Спасибо, жду ответов)

    Забавно: начал пробовать менять:
    почту указал не .ru а .ua
    порт указал 110
    Началось вот такое:
    Цитата:
    Connected.
    +OK POP Ya! na@1-b9867fb5c7ec g0gBge66UeA1

    -ERR Idle for too long

    Disconnected.
    Запись от RomanNOskil размещена 11.04.2019 в 04:11 RomanNOskil вне форума
    Обновил(-а) RomanNOskil 11.04.2019 в 07:03 (Добавление)
  2. Старый комментарий
    не вижу в этой программе никакого смысла. на форуме есть кнопка: "Темы с моими ответами" и там же отображаются темы в которых есть новые ответы.
    Запись от sam063rus размещена 11.04.2019 в 08:42 sam063rus вне форума
  3. Старый комментарий
    Цитата:
    Добавлять к темам писем со спамом пометку [SPAM]
    это уже делает антивирус DrWEB. Таким образом, если это делать то, надо дополнительно проверить на то - будет ли это конфликтовать с антивирусами.
    Запись от sam063rus размещена 11.04.2019 в 08:47 sam063rus вне форума
  4. Старый комментарий
    Цитата:
    Сообщение от sam063rus Просмотреть комментарий
    не вижу в этой программе никакого смысла. на форуме есть кнопка: "Темы с моими ответами" и там же отображаются темы в которых есть новые ответы.
    Про кнопку с Моими ответами не понял, к чему это сказано.
    А антивируса у меня вообще на этом ПК нету, так что конфликтовать не может.
    Очень хотелось бы услышать мнение автора данной темы по моему вопросу, буду ждать, пока он вернется на форум)
    Запись от RomanNOskil размещена 11.04.2019 в 09:52 RomanNOskil вне форума
    Обновил(-а) RomanNOskil 11.04.2019 в 09:54 (Дополняю)
  5. Старый комментарий
    Аватар для Avazart
    Читайте внимательнее:
    Цитата:
    Тестировал на почтовых серверах :

    imap.ukr.net порт 143
    imap.yandex.ru порт 993
    mail.rambler.ru порт 143 TLS
    Кроме того на втором скриншоте - настройки для яндекса.

    Но за это время все наверное поменялось.
    Я прогой не пользуюсь уже, а яндекс у меня забанен так что проверить не могу.
    Запись от Avazart размещена 11.04.2019 в 14:58 Avazart на форуме
    Обновил(-а) Avazart 11.04.2019 в 15:07
  6. Старый комментарий
    Аватар для Avazart
    Цитата:
    не вижу в этой программе никакого смысла. на форуме есть кнопка: "Темы с моими ответами" и там же отображаются темы в которых есть новые ответы.
    Это информер как бы, уведомление из трэя подсказкой и звуковым сигналом.
    Запись от Avazart размещена 11.04.2019 в 15:03 Avazart на форуме
    Обновил(-а) Avazart 11.04.2019 в 15:05
  7. Старый комментарий
    Жаль, я пробовал все настройки, а войти так и не получается.
    Программа очень хорошая.
    Если есть похожие - не могли бы сказать где найти можно)
    Запись от RomanNOskil размещена 11.04.2019 в 17:13 RomanNOskil вне форума
  8. Старый комментарий
    Аватар для Avazart
    Я месяц назад проверял программа вполне работала с с gmail (только нужно разрешить доступ по IMAP в gmail аке)
    Запись от Avazart размещена 11.04.2019 в 18:54 Avazart на форуме
  9. Старый комментарий
    Можете подсказать с какими настройками пытались заходить - или просто на данный момент проверить.
    По своим настройкам:
    Запуск обычный (или надо от имени администратора?)
    Почтовый ящик: 123ne.romochka@gmail.com
    Пароль: свой пароль
    Хост: imap.gmail.com
    Порт: 993
    Поддержка TLS: NoTLSSupport
    Интервал: 20
    Ящик: Входящие
    В настройка аккаунта gmail:
    Состояние POP: включен
    Состояние IMAP: включен
    Итого: когда я захожу в аккаунт - он сначала пробует коннектится, и почти сразу дисконект.
    И пишет: Возникла ошибка: "Connection Closed Gracefully."
    Подскажите пожалуйста)
    Версия программы: 7.2
    Запись от RomanNOskil размещена 14.04.2019 в 17:42 RomanNOskil вне форума
  10. Старый комментарий
    Аватар для Avazart
    "Запуск обычный (или надо от имени администратора?)"
    Обычный.

    Цитата:
    Поддержка TLS: NoTLSSupport
    Точно нужно указывать SSL или TLS что именно не помню.

    Сейчас уже почти все почтовые сервисы работают только с шифрованием:

    Цитата:
    Сервер входящей почты (IMAP)

    imap.gmail.com
    Требуется SSL: да
    Порт: 993
    Источник: https://support.google.com/mail/answer/7126229?hl=ru
    Запись от Avazart размещена 14.04.2019 в 18:09 Avazart на форуме
    Обновил(-а) Avazart 14.04.2019 в 18:15
  11. Старый комментарий
    Пробовал подобное:
    Открыл доступ: - теперь у меня другая проблема:
    В отладчике:
    Кликните здесь для просмотра всего текста

    Connected.
    * OK Gimap ready for requests from 91.235.147.231 b7mb26164700lfa

    C1 LOGIN 123ne.romochka@gmail.com (тут написан пароль)

    * CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST CHILDREN X-GM-EXT-1 UIDPLUS COMPRESS=DEFLATE ENABLE MOVE CONDSTORE ESEARCH UTF8=ACCEPT LIST-EXTENDED LIST-STATUS LITERAL- SPECIAL-USE APPENDLIMIT=35651584
    C1 OK 123ne.romochka@gmail.com authenticated (Success)

    C2 SELECT "&BBIERQQ+BDQETwRJBDgENQ-"

    C2 NO [NONEXISTENT] Unknown Mailbox: &BBIERQQ+BDQETwRJBDgENQ- (Failure)

    Disconnected.

    В основной программе
    Кликните здесь для просмотра всего текста

    1:46:53 Возникла ошибка: "Unable to execute command, wrong connection state;Current connection state: Authenticated."
    Запись от RomanNOskil размещена 14.04.2019 в 18:49 RomanNOskil вне форума
  12. Старый комментарий
    Большая (огроооооомная) просьба, попробуйте сами, может быть у вас получится, и тогда вы сможете подсказать что не так)
    Запись от RomanNOskil размещена 14.04.2019 в 19:00 RomanNOskil вне форума
  13. Старый комментарий
    Аватар для Avazart
    Так ясным текстом же пишет "Unknown Mailbox"


    Очевидно что

    "C2 SELECT "&BBIERQQ+BDQETwRJBDgENQ-"

    Это какая лажа в поле ящика(box).
    А должно быть

    C2 SELECT INBOX

    Т.е. в поле ящика должно быть INBOX
    Запись от Avazart размещена 14.04.2019 в 19:37 Avazart на форуме
    Обновил(-а) Avazart 14.04.2019 в 20:10
  14. Старый комментарий
    Все, заработало, остался последний вопрос, почему то не отображается текст сообщений, что это может быть?
    Запись от RomanNOskil размещена 14.04.2019 в 20:42 RomanNOskil вне форума
  15. Старый комментарий
    И так, ради интереса вопрос, можно ли данную программу дописать, что бы она умела отправлять сообщения?
    Запись от RomanNOskil размещена 14.04.2019 в 20:43 RomanNOskil вне форума
  16. Старый комментарий
    Аватар для Avazart
    Да не знаю, раньше отображался и может сейчас на киберфоруме убрали тествую часть и оставили только html.

    Цитата:
    И так, ради интереса вопрос, можно ли данную программу дописать, что бы она умела отправлять сообщения?
    Почтовые сообщения, т.е. e-mail ? Да можно. Но зачем?
    Запись от Avazart размещена 14.04.2019 в 20:47 Avazart на форуме
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru