VPF::Как уменьшить время ожидания используя IdEcho1

oleg153

Дата 21.3.2007, 15:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Для контроля качества интернет соединения пытаюсь использовать компонент IdEcho1 из IndyClient

Код


unit PingServer1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdEcho,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    IdEcho1: TIdEcho;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Edit3: TEdit;
    Button3: TButton;
    Memo1: TMemo;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdEcho1.Host := Edit1.Text;
  IdEcho1.Port := StrToInt(Edit2.Text);
  try
   IdEcho1.Connect;
    Button1.Enabled:=false;
    Button2.Enabled:=true;
    Button3.Enabled:=true;
  except
   Memo1.Lines.Add('Неудалось установить подключение');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  try
    IdEcho1.Disconnect;
    Button1.Enabled:=true;
    Button2.Enabled:=false;
    Button3.Enabled:=false;
  except
   Memo1.Lines.Add('Неудалось отключиться от сервера');
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
try
 Memo1.Lines.Add(IdEcho1.Echo(Edit3.Text)+'время ['+ FloatToStr(IdEcho1.EchoTime)+']');
except
 Memo1.Lines.Add('Нет ответа от сервера');
end;
end;


end.

Если подключение прошло нормально - то все путем, а вот если нет, то программа непозволительно долго ждет ответа.
Возможно ли уменьшить время ожидания ???

PS Варианты другого метода пингования не надо предлагать, интересует пока именно этот компонент.

oleg153

Дата 21.3.2007, 16:00 (ссылка)

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

Загрузка ...

Новичок

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

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

вроде прошло через IdEcho1.ConnectionTimeout:=300
Теперь шустро рубит а то ждал секунд 10

Надеюсь это верное решение.

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