---------------------------------------------------------------------------
| 171 | } |
| 172 | //--------------------------------------------------------------------------- |
| 173 | bool TSetupForm::FromInterface(TLetter * p) |
| 174 | { |
| 175 | p->server = serverEdit->Text; |
| 176 | |
| 177 | int port; |
| 178 | if( ! TryStrToInt(portEdit->Text, port) ) |
| 179 | { |
| 180 | ReportMess2("Invalid smtp server port number"); |
| 181 | return false; |
| 182 | } |
| 183 | if( port < 0 || port >= 65535 ) |
| 184 | { |
| 185 | ReportMess2("Invalid smtp server port number"); |
| 186 | return false; |
| 187 | } |
| 188 | |
| 189 | p->port = port; |
| 190 | p->username = usernameEdit->Text; |
| 191 | p->password = passwordEdit->Text; |
| 192 | p->ssl = sslComboBox->ItemIndex; |
| 193 | |
| 194 | p->sender = senderEdit->Text; |
| 195 | p->sender_name = sender_nameEdit->Text; |
| 196 | p->recipient = recipientEdit->Text; |
| 197 | p->subject = subjectEdit->Text; |
| 198 | p->message = messageMemo->Text; |
| 199 | return true; |
| 200 | } |
| 201 | //--------------------------------------------------------------------------- |
| 202 | void TSetupForm::ToInterface(TLetter * p) |
| 203 | { |
nothing calls this directly
no test coverage detected