VPF::Ошибка idTelnet - Форум программистов

HoZeY

Дата 16.9.2015, 21:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 19.11.2008

Репутация: нет
Всего: нет

Здравствуйте.

Перезагрузка Adsl модема. После первого клика по кнопке модем перезагружается. При повторном нажатии на кнопку перезапуска получаю "Connection Closed Gracefully." и модем больше не перезагружается. Только после перезапуска программы. Подскажите пожалуйста, как избавиться от ишибки и повторно перезагрузить модем?

INDY 10.6.2.5298
Embarcadero® Delphi 10 Seattle
win 8.1 x64

Код


function TForm1.adslreboot(host, Login, password, command: string): boolean;
begin
  if not IdTelnet1.Connected then
  begin
    try
      IdTelnet1.host := host;
      IdTelnet1.Connect;
    except

    end;
  end;

  Pause(1);

  SendCommand(Login);
  Pause(1);

  SendCommand(password);
  Pause(1);

  SendCommand(command);
  Pause(1);

  if IdTelnet1.Connected then
    try
      IdTelnet1.DisConnect;
    except
    end;


end;

Код


function TForm1.Pause(Seconds: Integer): boolean;

var
  v: Integer;
begin
  Seconds := Seconds * 100;
  for v := 0 to Seconds do
  begin
    Sleep(10);
    Application.ProcessMessages;
  end;
  result := true;
end;

Код


procedure TForm1.SendCommand(CmdText: String);
var
  z: Integer;
begin
  for z := 1 to Length(CmdText) do
  begin
    IdTelnet1.SendCh(CmdText[z]);
  end;
  IdTelnet1.SendCh(#13);
end;

Это сообщение отредактировал(а) HoZeY - 16.9.2015, 21:04

HoZeY

Дата 17.9.2015, 10:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 19.11.2008

Репутация: нет
Всего: нет

Проблема решена. Idtelnet`y в OnDataAvailable прописываем "Application.ProcessMessages;"

Код


procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet;
  const Buffer: TIdBytes);
begin
   Application.ProcessMessages;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »