Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Builder Поиск и замена символов в строке https://www.cyberforum.ru/ cpp-builder/ thread1192812.html
Нужно написать программу в Borland. Задача: В строке введенной пользователем подсчитайте число гласных латинских букв (a, e, i, o, u) и замените их символами (1, 2, 3, 4, 5) соответственно. Вывести...
C++ Builder Определить произведение тех элементов строк в матрице, сумма индексов которых четна
Нужно написать программу в Borland. Задача такая: В матрице размером m x n определить произведение тех элементов строк, сумма индексов которых четна(например, для первой строки это элементы a1,1,...
Всплывающее окно C++ Builder
Есть всплывающая форма, это код анимации формы void __fastcall TForm9::FormCreate(TObject *Sender) { TRect r1,r2; r1 = Rect(Left+Width/2,Top+Height/2,Left+Width/2,Top+Height/2); r2 = BoundsRect;...
C++ Builder Как определить параметры компьютера? Подскажите, пожалуйста, как определить параметры компьютера, такие как ЦП, материнку, видеокарту, звуковую карту, харды и т.п.? https://www.cyberforum.ru/ cpp-builder/ thread1192737.html
C++ Builder C++ Builder, из Excel в StringGrid, сортировка https://www.cyberforum.ru/ cpp-builder/ thread1192719.html
Помогите пожалуйста, дали задание в технаре, Через OpenDialog загрузить данные из Excel таблицы в StringGrid и отсортировать по строкам. Например есть 5 строк в них Ф.И.О. и возраст, надо их...
Разработка системы классов "дата" C++ Builder
Мне нужно сделать курсовую на тему представленную в заголовке. Нужно прибавлять, отнимать от даты, и переходить на заданную дату. на сайте я нашла не плохую программу, можете мне помочь сделать ее в...
C++ Builder Как преобразовать этот класс из Delphi в c++
TKarta=class(TObject) private FDvig: boolean; Fi: integer; Fj: integer; FMast: string; FMesto: boolean; FRang: string; FV: boolean; procedure...
C++ Builder Клеточный автомат, треугольная решетка треугольная решетка: в ней сделать игру жизнь решила построить треугольник с помощью функции полигон, но выдает ошибку:( файл lab1.cpp https://www.cyberforum.ru/ cpp-builder/ thread1192295.html
C++ Builder Создание Word-документа (не работает в XE) https://www.cyberforum.ru/ cpp-builder/ thread1192152.html
вот код который нарыл в инете работает на с++ builder 6 . НА C++ Builder XE ошибка Variant Word, Document, Table; Word = CreateOleObject("Word.Application.8");// вод здесь ошибка ...
C++ Builder Привязать события клавиатуры к событиям Image Как привязать Image к Num1, num2 и т.д.. Чтобы при нажатии Num1 срабатывало Image1Click? https://www.cyberforum.ru/ cpp-builder/ thread1192101.html
случайный прохожий
1502 / 999 / 372
Регистрация: 20.07.2013
Сообщений: 2,894
29.05.2014, 23:06 0

Определить пинг сервера в С++ Builder XE3

29.05.2014, 23:06. Просмотров 1046. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Podolski как решение

Решение


Можно примерно так:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int ping;
  AnsiString value, domain;
  Memo1->Clear();
  try
  {
  for (int i = 0; i < ListBox1->Items->Count; i++)
    {
      if (i>0)
        Memo1->Lines->Add("");
      IdIcmpClient1->Host = ListBox1->Items->operator [](i);
      IdIcmpClient1->Ping(Form1->Caption);
      ping = IdIcmpClient1->ReplyStatus->MsRoundTripTime;
      if (ping <= IdIcmpClient1->ReceiveTimeout)
        value = ping;  // IntToStr(ping)
      else
        value = ">" + IntToStr(IdIcmpClient1->ReceiveTimeout);
      domain = IdIcmpClient1->ReplyStatus->FromIpAddress;
      if (IdIcmpClient1->Host != domain)
        domain = " [" + domain + "]";
      else
        domain = "";
      Memo1->Lines->Add(IdIcmpClient1->Host + domain + "  -  " + value + " мс");
    }
  }
  catch (EIdSocketError &E)  // EIdException       
  {
    MessageBox(Application->Handle, E.Message.c_str(), "Ошибка", MB_OK+MB_ICONWARNING);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdIcmpClient1Reply(TComponent *ASender,
      const TReplyStatus *AReplyStatus)
{
//  Memo1->Lines->Add("Сервер: " + IdIcmpClient1->Host + " [" + AReplyStatus->FromIpAddress + "]");
//  Memo1->Lines->Add(AReplyStatus->MsgType + "   время отклика: " + IntToStr(AReplyStatus->MsRoundTripTime) + " мс");
}
//---------------------------------------------------------------------------


Вернуться к обсуждению:
Определить пинг сервера в С++ Builder XE3
0
Миниатюры
Определить пинг сервера в С++ Builder XE3  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.05.2014, 23:06
Готовые ответы и решения:

c++ builder xe3
Почему-то программы не выполняются. Даже после добавления в проект. Выскакивает черная консоль и...

Builder xe3
Добрый день. Подскажите пожалуйста как установить компонент TeeChat pro в c++ builder xe3. Я...

C++Builder XE3
Приветствую ребята. Если кто знает где взять портабельную версию C++Builder XE3 ? Буду...

Литература по C++Builder XE3
Здравствуйте, подскажите пожалуйста хорошие книги (ну или другие источники) по C++Builder XE3, RED...

2
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.