Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2006, 15:01   #1
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию Многопоточный Ping

Итак: использую Indy9.5 +BDS2005 +Winxp:

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
  IdIcmpClient,SyncObjs, ExtCtrls ;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
TPrimeThrd = class(TThread)
 private
   FHost : AnsiString;
   idping : tidicmpclient;
 protected
   procedure Execute; override;
   procedure update;
   constructor Create(Host:AnsiString);
 end;

var
  Form1: TForm1;
  int,count:integer;
  arthrd:array[1..1000] of TPrimeThrd;
implementation

{$R *.dfm}
constructor TPrimeThrd.Create(Host: AnsiString);
begin
 inherited Create(False);
 FreeOnTerminate:=True;
 FHost := Host;
end;
procedure tprimethrd.execute;
begin
 idping:=tidicmpclient.Create(nil);
 try
   idping.Host := FHost;
   idping.Ping;
   Synchronize(update);
 finally
   idping.Free
 end
end;
procedure tprimethrd.update;
begin
form1.Memo1.Lines.Add(form1.Edit1.Text+' '+inttostr(idping.ReplyStatus.MsRoundTripTime));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
count:=1;
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if count<100 then
  begin
    arthrd[count]:=TPrimeThrd.Create(edit1.Text);
    inc(count);
  end
else
  begin
  timer1.Enabled:=false;
  memo1.Lines.Add('ВСЕ!!!');
  end;
end;

end.
Все предельно просто, однако:
результаты пинга получаются почему- то абсолютно случайно, то есть если проверять на хосте, у которого изначально задержка более 650мс , то он может выдать числа от 25мс до 2000мс .. если проверять в цикле обычным способом, то результаты правильные. Может быть кто- нибудь подскажет в чем именно проблема ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как определить ping Маркъ Работа с сетью в Delphi 7 24.05.2011 17:51
Многопоточный сервер FAiver Работа с сетью в Delphi 18 31.03.2008 08:51
Ping Баламут Работа с сетью в Delphi 5 23.08.2007 15:17
многопоточный сервер мандарин Работа с сетью в Delphi 6 24.04.2007 07:22