ping - Delphi - Ответ 588097

@velikijmerlin · 08.03.2010, 22:15

NemiroFFyo,

Протокол Ping предназначен для тестирования компьютерных соединений в Интернете путём посылки через протокол Internet Protocol (IP) по обределённому адресу сообщения и ожидания от него ответа.

ICMP - Internet Control Message Protocol. ICMP служит для передачи сообщений об ошибках а так же управляющих сообщений . ICMP-тест может показать насколько быстро проходит информация между двумя узлами в Интернете.

1. Запускаем Delphi;
2. В Новом проекте добавляем в форму Tbutton, Tedit и Tmemo;
3. Вставляем “winsock”;
4. объявляем структурку для IP-заголовка:

Delphi

type
  IPINFO = record
  Ttl: char;
  Tos:har;
  IPFlags: char;
  OptSize: char;
  Options: ^char;
end;

5. объявляем структурку для хранения ICMP пакета:

Delphi

type 
  ICMPECHO = record 
  Source: longint; 
  Status: longint; 
  RTTime: longint; 
  DataSize: Shortint; 
  Reserved: Shortint; 
  pData: ^variant; 
  i_ipinfo: IPINFO; 
end;

6. Объявляем функции и процедуры, которые мы будем вызывать из ICMP.DLL

Delphi

TIcmpCreateFile = function():integer;
{$IFDEF WIN32} stdcall; {$ENDIF}
 
TIcmpCloseHandle = procedure(var handle: integer);
{$IFDEF WIN32} stdcall; {$ENDIF}
 
TIcmpSendEcho = function(var handle: integer; endereco: DWORD;
buffer: variant; tam: WORD; IP: IPINFO; ICMP: ICMPECHO;
tamicmp: DWORD; tempo: DWORD): DWORD;
{$IFDEF WIN32} stdcall; {$ENDIF}

7. В TButton в событие Onclick вставляем следующий код:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  wsadt : wsadata;
  icmp :icmpecho;
  HNDicmp : integer;
  hndFile :integer;
  Host :PHostEnt;
  Destino :in_addr;
  Endereco :^DWORD;
  IP : ipinfo;
  Retorno :integer;
  dwRetorno :DWORD;
  x :integer;
 
  IcmpCreateFile : TIcmpCreateFile;
  IcmpCloseHandle : TIcmpCloseHandle;
  IcmpSendEcho : TIcmpSendEcho;
 
begin
  if (edit1.Text = '') then
  begin
    Application.MessageBox('Enter a HostName ro a IP Adress', 'Error', MB_OK);
    exit;
  end;
  HNDicmp := LoadLibrary('ICMP.DLL');
  if (HNDicmp <> 0) then
  begin
    @IcmpCreateFile := GetProcAddress(HNDicmp,'IcmpCreateFile');
    @IcmpCloseHandle := GetProcAddress(HNDicmp,'IcmpCloseHandle');
    @IcmpSendEcho := GetProcAddress(HNDicmp,'IcmpSendEcho');
    if (@IcmpCreateFile=nil) or (@IcmpCloseHandle=nil) or (@IcmpSendEcho=nil) then
    begin
      Application.MessageBox('Error getting ICMP Adress’,'Error', MB_OK);
      FreeLibrary(HNDicmp);
    end;
  end;
  Retorno := WSAStartup($0101,wsadt);
 
  if (Retorno <> 0) then
  begin
    Application.MessageBox('Canґt Load WinSockets','WSAStartup', MB_OK);
    WSACleanup();
    FreeLibrary(HNDicmp);
  end;
 
  Destino.S_addr := inet_addr(Pchar(Edit1.text));
  if (Destino.S_addr = 0) then
    Host := GetHostbyName(PChar(Edit1.text))
  else
    Host := GetHostbyAddr(@Destino,sizeof(in_addr), AF_INET);
 
  if (host = nil) then
  begin
    Application.MessageBox('Host not found','Error', MB_OK);
    WSACleanup();
    FreeLibrary(HNDicmp);
    exit;
  end;
  memo1.Lines.Add('Pinging ' + Edit1.text);
 
  Endereco := @Host.h_addr_list;
 
  HNDFile := IcmpCreateFile();
  for x:= 0 to 4 do
  begin
    Ip.Ttl := char(255);
    Ip.Tos := char(0);
    Ip.IPFlags := char(0);
    Ip.OptSize := char(0);
    Ip.Options := nil;
 
    dwRetorno := IcmpSendEcho(
    HNDFile,
    Endereco^,
    null,
    0,
    Ip,
    Icmp,
    sizeof(Icmp),
    DWORD(5000));
    Destino.S_addr := icmp.source;
    Memo1.Lines.Add('Ping ' + Edit1.text);
  end;
 
  IcmpCLoseHandle(HNDFile); 
  FreeLibrary(HNDicmp); 
  WSACleanup();
end;

У данного примера есть один недостаток - программа не воспримет доменное имя, только IP-адресс. Для пользователей NT не используйте функцию IcmpCloseHandle.

(c)DelphiSource

Вернуться к обсуждению:
ping Delphi

Следующий ответ

Другие темы раздела
Delphi двумерные массивы https://www.cyberforum.ru/ delphi-beginners/ thread102397.html Написать программу, которая заменяет нулями те элементы заданной матрицы, значения которых находятся вне рамок интервала . Подсчитать среднеарифметическое значение всех элементов полученной матрицы.	Delphi Написать программу, которая формирует массив "чистых" данных из заданного массива проведенных измерений. Пожалуйста помогите перевести задачи в паскаль: 1)Написать программу, которая формирует массив "чистых" данных из заданного массива проведенных измерений. "Чистыми" данными считаются те значения измерений, которые превышают значение порога информационного "шума".
Delphi Программа записи в файл https://www.cyberforum.ru/ delphi-beginners/ thread102349.html Помогите плиз написать программу на делфи в консольном приложении. Нужно записать в файл столбик с числами от 1 до 1000 по порядку	Delphi Вывести на печать индексы min элемента матрицы Вообшем вот... Вывести на печать индексы min елемента матрицы В матрице заменить елементы вторй строки min Вродебы в изучении делфи всё было понятно но с масивами полный стопор прошу помощи знающих людей https://www.cyberforum.ru/ delphi-beginners/ thread102334.html
JPEG in Delphi Delphi слушайте а как можно открыть изображение Jpeg и его описание в delphy	Delphi Перевести формулу из tedit в функцию https://www.cyberforum.ru/ delphi-beginners/ thread102271.html Здравствуйте! Нужно взять формулу (например, (sin(x)+cos(x))xx*x из TEdit) и передать её в функцию для обработки, т.е, пользователь в поле вводит формулу и программа рисует график на указанных границах. procedure TForm2.Button1Click(Sender: TObject); begin DrawGraph (f, strtoint(edit1.Text), strtoint(edit3.Text), Image1.Canvas); end; Function f(x: real): real; Begin Result:= {тут...
Delphi Вылавливание Nil в функции Есть функция, которая по коду находит в таблице описание: function ShowRef(table: string; code: string): string; begin with TADOQuery.Create(nil) do try ConnectionString := dbstaff; CursorLocation := clUseServer; CursorType := ctKeyset; SQL.Text := 'SELECT name FROM ' + table + ' WHERE code =' + code; Open; https://www.cyberforum.ru/ delphi-beginners/ thread102266.html	Перетаскивание Delphi здравствуйте, не поможите с перетаскиванием картинки) как из одного GroupBox'а перетащить картинку в другой? благодарю за ранее
Delphi функция в делфи https://www.cyberforum.ru/ delphi-beginners/ thread102261.html Даны два двумерных массива символьных (буквы русского алфавита) элементов. Размер исходных массивов не превосходит 10х10 элементов. Для каждого из массивов указать номера строк, содержащих элементы только строчных букв, если таких строк нет ни для какого массива, то вывести соответствующее сообщение. Проверку строки на наличие указанных элементов оформить в виде процедуры с передачей в нее всех...	Delphi как реализовать Тестовую программу Нужна программа.Например учителя в неё заходят и создают тест с вопросами и вариантами ответов.Причем не известно определенное количество правильных ответов. То есть учитель сам выбирает количество.А ученик заходит и делает этот тест. Как бы это сделать? https://www.cyberforum.ru/ delphi-beginners/ thread102242.html
Delphi Как перенести значение переменной из одной формы в другую? Например, я создал тест, в одной форме (I Часть теста) подсчитывает кол-во правильных ответов и во второй форме (II Часть). Мне нужно вывести общее кол-во правильных ответов. Как перенести значения из первой формы во вторую?	Delphi ООП https://www.cyberforum.ru/ delphi-beginners/ thread102229.html Например есть у меня родительский класс ololo =class procedure method1; virtual; end; jaja = class (ololo)

	08.03.2010, 22:15