Если коннект то кнопка Button2 должна быть скрыта, и если дисконнект, то кнопка Button2 должна появляться/ компонент IdSMTP

[Almaz92]

Задача моего приложения заключается в проверке соединения с хостом!
Если коннект то кнопка Button2 должна быть скрыта, и если дисконнект, то кнопка Button2 должна появляться! Я использовал компонент IdSMTP!
Проверкой управляет таймер!" Но вот почему то не пойму одну вещь!
После запуска приложения строка условия:
If IdSMTP1.Connected=true then Button2.Visible:=false;
срабатывает, а вот строка условия:
if IdSMTP1.Connected=false then Button2.Visible:=true;
ни в какую не хочет работать! То есть когда я подключаю интернет, у меня кнопка2 исчезает, а когда отключаю , кнопка2 не появляется, хотя согласно условия это должно бы произойти! Подскажите пожалуйста , где здесь загвоздка!

procedure TForm1.Button1Click(Sender: TObject);
begin
Try

IdSMTP1.Host:= 'smtp.gmail.com';
IdSMTP1.Port:=587;
IdSMTP1.connect;

Except
end;


If IdSMTP1.Connected=true then Button2.Visible:=false;
if IdSMTP1.Connected=false then Button2.Visible:=true;


end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.Click;
end;
end.

[min@y™]

Button2.Visible:= not IdSMTP1.Connected;

школота!

И лучше это дело оформить в виде отдельного треда.

[Almaz92]

Спасибо за ответ, но что-то я не смог его применить, как это работает? Можно код мой доработанный показать?

[min@y™]

Спасибо за ответ, но что-то я не смог его применить, как это работает? Можно код мой доработанный показать?

Так не пойдёть! Показывай-ка давай, как пытался применить!

[Almaz92]

В обработчик таймера пробовал и в обработчик кнопки, чего то я недопонимаю наверно! Ну опыта у меня нет, строго не судите, только начал осваивать!

[min@y™]

я ж сказал - показывай!

[Almaz92]

procedure TForm1.Button1Click(Sender: TObject);
begin
Try

IdSMTP1.Host:= 'smtp.gmail.com';
IdSMTP1.Port:=587;
IdSMTP1.connect;

Except
end;


If IdSMTP1.Connected=true then Button2.Visible:=false;
Button2.Visible:= not IdSMTP1.Connected;


end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.Click;
end;
end.

Вариант 2

procedure TForm1.Button1Click(Sender: TObject);
begin
Try

IdSMTP1.Host:= 'smtp.gmail.com';
IdSMTP1.Port:=587;
IdSMTP1.connect;

Except
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.Click;
If IdSMTP1.Connected=true then Button2.Visible:=false;
Button2.Visible:= not IdSMTP1.Connected;

end;
end.

Вариант 3

procedure TForm1.Button1Click(Sender: TObject);
begin
Try

IdSMTP1.Host:= 'smtp.gmail.com';
IdSMTP1.Port:=587;
IdSMTP1.connect;

Except
end;

If IdSMTP1.Connected=false then Button2.Visible:=true;
If IdSMTP1.Connected=true then Button2.Visible:=false;
Button2.Visible:= not IdSMTP1.Connected;


end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.Click;
end;
end.

[min@y™]

Не вижу варианта №0, пример которого приводил я.

[Almaz92]

Но вы дали только 1 строчку кода!

Button2.Visible:= not IdSMTP1.Connected;

[min@y™]

Но вы дали только 1 строчку кода!

Вот именно! И никаких IF.
И никаких таймеров. В топку жопу таймер!

procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
begin
  Button2.Visible:= not IdSMTP1.Connected;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    IdSMTP1.connect();
  except on E: Exception do
    Application.MessageBox(PChar(E.Message), 
      'Oh, shit!', MB_OK + MB_ICONSTOP);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdSMTP1.Host:= 'smtp.gmail.com';
  IdSMTP1.Port:= 587;
  Application.OnIdle:= AppIdle;
end;