Тема: Письмо
Показать сообщение отдельно
  #14  
Старый 24.05.2008, 18:17
Sanek_ntsk Sanek_ntsk вне форума
Новичок
 
Регистрация: 02.09.2007
Сообщения: 55
Репутация: 10
По умолчанию

Разобрался. Теперь возник ещё пара вопросов. Вот код
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if IdSMTP1.Connected then
   IdSMTP1.Disconnect;
   IdSMTP1.Host:='smtp.'+combobox1.Text;
   IdSMTP1.Username:=edit1.Text;
   IdSMTP1.Password:=edit2.Text;
   IdSMTP1.Connect;
   if IdSMTP1.Authenticate=true then begin
      label4.Caption:='Состояние: Готово';
      edit3.Enabled:=true;
      edit4.Enabled:=true;
      memo1.Enabled:=true;
      label5.Enabled:=true;
      label6.Enabled:=true;
      label7.Enabled:=true;
      button2.Enabled:=true;
   end
   else
      label4.Caption:='Ошибка в логине или в пароле';
end;
1. Почему при неправильном вводе логине или пароле вылазиет ошибка, а не label4.Caption:='Ошибка в логине или в пароле'?
2. После первой авторизации второй раз авторизироваться нельзя. Почему?
Помогите пожалуйста. Заранее спасибо.
Ответить с цитированием