---------------------------------------------------------------------------
| 84 | } |
| 85 | //--------------------------------------------------------------------------- |
| 86 | void __fastcall TSendmailThread::Execute() |
| 87 | { |
| 88 | TLetter * p; |
| 89 | while( ! Terminated ) |
| 90 | { |
| 91 | p = letters.Extract(0); |
| 92 | if( ! p ) |
| 93 | { |
| 94 | Sleep(10); |
| 95 | continue; |
| 96 | } |
| 97 | |
| 98 | if( SendInternal(p) ) |
| 99 | { |
| 100 | } |
| 101 | else |
| 102 | { |
| 103 | //p->error |
| 104 | } |
| 105 | delete p; |
| 106 | } |
| 107 | } |
| 108 | //--------------------------------------------------------------------------- |
| 109 | void __fastcall TSendmailThread::Exit(void) |
| 110 | { |