Как реализовать одновременный пинг нескольких хостов?

[nerde]

Привет, форумчане
Пишу программу мониторинга локальной сети (курсовая работа). Есть несколько рабочих вопросов. В программировании знания очень слабые.

Припустим будет прописано где-то в программе через массив или возможно браться с файла набор IP адресов для проверки работает узел или нет. Как реализовать одновременный пинг нескольких хостов?

Delphi 7 + Indy

Сам код пингирования:

procedure TForm1.btnPingClick(Sender: TObject);
const n=1;
var i:Byte;
begin

        Self.IdIcmpClient1.Host:=edtHost.Text;
        // Memo1.Lines.Add(IntToStr(IdIcmpClient1.ReplyStatus.TimeToLive));

        Memo1.Lines.Add('Transfer with '+edtHost.Text+' ['+IdIcmpClient1.ReplyStatus.FromIpAddress+'] with '+IntToStr(IdIcmpClient1.ReplyStatus.BytesReceived)+' byte');
	      	begin
		      	Self.IdIcmpClient1.Host:=edtHost.Text;
			      Self.IdIcmpClient1.Ping;
			      if Self.IdIcmpClient1.ReplyStatus.ReplyStatusType <> rsEcho then
			      	begin
				      	Memo1.Lines.Add('Time Out');
			      	end;
			      if (Self.IdIcmpClient1.ReplyStatus.ReplyStatusType = rsEcho) and (IdIcmpClient1.ReceiveTimeout>0) then
			      	begin
			      		Memo1.Lines.Add('Reply from '+IdIcmpClient1.ReplyStatus.FromIpAddress+': number byte = '+IntToStr(IdIcmpClient1.ReplyStatus.BytesReceived)+' time = '+ IntToStr(IdIcmpClient1.ReplyStatus.MsRoundTripTime)+' TTL='+IntToStr(IdIcmpClient1.ReplyStatus.TimeToLive));
			      	end;
	      	end;
        if IdIcmpClient1.ReplyStatus.TimeToLive=64 then
          Memo1.Lines.Add('Operation System - Linux');
        if (IdIcmpClient1.ReplyStatus.TimeToLive=128) and (IdIcmpClient1.ReplyStatus.ReplyStatusType=rsEcho)and (IdIcmpClient1.ReceiveTimeout>0) then
          Memo1.Lines.Add('Operation System - Windows');
        if (IdIcmpClient1.ReplyStatus.TimeToLive<>64)and (IdIcmpClient1.ReplyStatus.ReplyStatusType<>rsEcho)then
          Memo1.Lines.Add('Operation System - no info');
        Memo1.Lines.Add('');
end;

[Кольша]

потоки, синхронизация.

[nerde]

Че та не могу разобраться вроде все верно делаю, но потоки не создаются ткните носом плз.

  public
    { Public declarations }
    function PingHost(aHost:string):Boolean;
  end;

type
  TPingThread = class (TThread)
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//****************************** main code ********************************

procedure TForm1.Button1Click(Sender: TObject);
var  PingThread: TPingThread;
begin
     PingThread:=TPingThread.Create(true);
     PingThread.FreeOnTerminate:=True;
     PingThread.Priority:=tpLower;
     PingThread.Resume;
end;




//******************************* my functions and procedures ****************************

function TForm1.PingHost(aHost: string): Boolean;  //function pinger
begin
      Result:=False;
      Form1.IdIcmpClient1.Host:=aHost;
     	begin
	      	Form1.IdIcmpClient1.Host:=aHost;
		      Form1.IdIcmpClient1.Ping;

  	      if Form1.IdIcmpClient1.ReplyStatus.ReplyStatusType <> rsEcho then
	      	begin
		      	Result:=False;
	      	end;

		      if (Form1.IdIcmpClient1.ReplyStatus.ReplyStatusType = rsEcho) and (Form1.IdIcmpClient1.ReceiveTimeout>0) then
	      	begin
	      		Result:=True;
	      	end;
     	end;
end;

{ TPingThread }

procedure TPingThread.Execute;
var i:Byte;
    aHost:string;
begin
   for i:=1 to 20 do  //array ip address for no sync and no thread
        begin
          aHost:=('192.168.130.'+IntToStr(i));
          Form1.PingHost(aHost);
          if Form1.PingHost(aHost)=True then
            begin
              Form1.Memo1.Lines.Add(aHost+' host up');
            end
          else Form1.Memo1.Lines.Add(aHost+' host down');
          sleep(80);
        end;
end;

Почти разобрался, нужно провести синхронизацию. Но чего с чем? :/

[Кольша]

ну IdIcmpClient нужно создавать в ручную, во вторых нужно динамично создавать, без переменных.

[nerde]

Сообщение от Кольша

ну IdIcmpClient нужно создавать в ручную

Вручную?

во вторых нужно динамично создавать, без переменных.

То есть, лучше сделать документ с ір адресами и уже оттуда их тянуть?