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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.02.2014, 23:16   #1
kos9k
 
Регистрация: 02.02.2014
Сообщений: 7
По умолчанию ip адреса

Добрый день! не могу понять почему не работает программа??? Подскажите, пожалуйста
Код:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
 btn1: TButton;
 lst1: TListBox;
 idcmpclnt1: TIdIcmpClient;
 procedure btn1Click(Sender: TObject);
 procedure idcmpclnt1Reply(ASender: TComponent;
   const AReplyStatus: TReplyStatus);
private
 { Private declarations }
public
 { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
idcmpclnt1.Host:='176.194.204.175';
idcmpclnt1.ReceiveTimeout:=100;
idcmpclnt1.Ping('32');
Caption:=IntToStr(idcmpclnt1.ReplyStatus.MsRoundTripTime)
end;

procedure TForm1.idcmpclnt1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
try
if idcmpclnt1.Host=AReplyStatus.FromIpAddress then lst1.Items.Add (AReplyStatus.FromIpAddress);
except
on e:Exception do
end;

end;
end.
и как прописать диапазон ip адресов idcmpclnt1.LocalHost:= от 176.194.204.175 до 176.194.204.189 например



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 02.02.2014 в 23:54.
kos9k вне форума Ответить с цитированием
Старый 03.02.2014, 00:47   #2
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

Цитата:
не могу понять почему не работает программа???
Простите, а, в чём конкретно состоит проблема. Если выдаёт ошибку, то что при этом пишет (ошибку в студию)? Раскройте тему полностью.
Цитата:
и как прописать диапазон ip адресов
Генерируйте ip адреса из заданного диапазона и меняйте значение idcmpclnt1.LocalHost. В помощь: Delphi. Модуль генерации IP адресов из диапазона.
Streletz вне форума Ответить с цитированием
Старый 03.02.2014, 09:49   #3
kos9k
 
Регистрация: 02.02.2014
Сообщений: 7
По умолчанию

Проблема в том, что не пингуется заданный ip адрес в программе! А как будет выглядеть код при генерации ip адресов, я просто новичок в этих делах)
kos9k вне форума Ответить с цитированием
Старый 03.02.2014, 10:11   #4
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

Цитата:
Проблема в том, что не пингуется заданный ip адрес в программе!
А, без программы он пингуется (командная строка->ping)?
Ссылка на готовый код функции для генерации диапазона IP адресов есть в посте #2 (GetListIp). Она Вам вернёт массив IP адресов, которые входят в диапазон, в виде экземпляра TStringList. Как оттуда вытащить IP в формате string подробно написано в справочнике и в документации.
Что касается пинга, то этот вопрос уже в своё время обсуждался на форуме, причём не однократно:
Быстрый поиск активных Ip адресов по диапазону IP.
Вопрос о Ping!
Кроме этого, есть материалы в сети:
Ping средствами Delphi
Пингуем (Ping) под Delphi
Streletz вне форума Ответить с цитированием
Старый 04.02.2014, 09:35   #5
kos9k
 
Регистрация: 02.02.2014
Сообщений: 7
По умолчанию

Да, в командной строке пингуется! можно еще вопросик.....

procedure TForm1.btn1Click(Sender: TObject);
begin
idcmpclnt1.Host:='localhost';
idcmpclnt1.ReceiveTimeout:=100;
idcmpclnt1.Ping('32');
Caption:=IntToStr(idcmpclnt1.ReplyS tatus.MsRoundTripTime)
end;
Локальная сеть будет пинговаться?
kos9k вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Известны фамилии,адреса и телефоны 25-ти человек,Найти фамилии и адреса людей,чей телефон начинается с цифры 3. Расмотреть два слу salomon93 Паскаль, Turbo Pascal, PascalABC.NET 11 01.12.2011 23:36
получение ip адреса the_deer_one Общие вопросы .NET 4 07.07.2011 14:12
Получение IP адреса Letnab Работа с сетью в Delphi 4 07.03.2011 15:12
адреса на C ~~~ Помощь студентам 13 13.09.2010 17:27
Чтение с адреса aktivizion Общие вопросы Delphi 3 23.04.2010 17:18