Демонстрация пингов

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
IdIcmpClient, StdCtrls, IdUDPBase, IdUDPClient, IdSNTP;

type
TForm1 = class (TForm)
Button1: TButton;
ListBox1: TListBox;
IdIcmpClient1: TIdIcmpClient;
IdSNTP1: TIdSNTP;
procedure Button1Click (Sender: TObject);

procedure IdIcmpClient1Reply (ASender: TComponent;
const AReplyStatus: TReplyStatus);

private
{Private declarations}
public
{Public declarations}
end;

var
Form1: TForm1;

implementation
uses pingModule,icmp;
{$R *.dfm}

procedure TForm1.Button1Click (Sender: TObject);

var Reply:TsmICMP_Echo_Reply;
begin
Self.IdIcmpClient1.Host:='localhost';
Self.IdIcmpClient1.TTL:=192;
Self.IdIcmpClient1.Ping;
Ping ('127.0.0.1',nil,Reply,5000);

ListBox1.Items.Add ('RawReply:'+IntToStr (Reply.RoundTripTime));

end;

procedure TForm1.IdIcmpClient1Reply (ASender: TComponent;
const AReplyStatus: TReplyStatus);

begin
ListBox1.Items.Add ('Reply:'+IntToStr (AReplyStatus.MsRoundTripTime));

end;

end.

document.write('');

Новости мира IT: 02.08 - 02.08 - 02.08 - 02.08 - 02.08 - 01.08 - 01.08 - 01.08 - 01.08 - 01.08 - 01.08 - 01.08 - 01.08 - 01.08 - 01.08 - 31.07 - 31.07 - 31.07 - 31.07 - 31.07 - Архив новостей Последние комментарии:  (66) 2 Август, 17:53  (19) 2 Август, 17:51  (34) 2 Август, 15:40  (42) 2 Август, 15:35  (1) 2 Август, 14:54  (3) 2 Август, 14:34  (3) 2 Август, 14:15  (2) 2 Август, 13:34  (7) 2 Август, 13:04  (3) 2 Август, 12:28 BrainBoard.ru Море работы для программистов, сисадминов, вебмастеров. Иди и выбирай! Loading google.load('search', '1', {language : 'ru'}); google.setOnLoadCallback(function() { var customSearchControl = new google.search.CustomSearchControl('018117224161927867877:xbac02ystjy'); customSearchControl.setResultSetSize(google.search.Search.FILTERED_CSE_RESULTSET); customSearchControl.draw('cse'); }, true); <

<


<


<

This Web server launched on February 24, 1997 Copyright © 1997-2000 CIT, © 2001-2009

Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав.

Акция. Уникальная возможность: : tempavto.ru. Обслуживание.

Содержание раздела

---

---