VPF::Вытыщить данные из диапазона - Форум программистов

Terikon

Дата 1.11.2009, 22:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 1.4.2009

Репутация: нет
Всего: нет

Нужно вытащить все адреса которые входят в диапазон 62.148.128.0 - 62.148.159.255
т.е. вставляю список в Мемо и из него вытаскиваются только те адреса, которые входят в вышеприведённый диапазон.

Это сообщение отредактировал(а) Terikon - 2.11.2009, 12:15

Данкинг

Дата 1.11.2009, 23:23 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Terikon @ 1.11.2009, 22:12

)

Нужно вытащить

Нужно - вытаскивай. smile

--------------------

There's nothing left but silent epitaphs.

kami

Дата 2.11.2009, 00:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Цитата(Terikon @ 1.11.2009, 22:12

)

вставляю список в Мемо и из него вытаскиваются только те адреса, которые входят в вышеприведённый диапазон.

Код


1. Переводишь начальный и конечный IP из строки в DWORD, оставив тот же порядок байтов, как в строковом представлении.
2. Проходя по всем строкам в Мемо:
 - переводишь IP из Memo в DWORD аналогичным способом
 - если Start_IP < IP_Memo < End_IP то <вытаскиваю>, иначе - <забрасываю>.

В принципе, и все. С чем проблемы?

Qu1nt

Дата 2.11.2009, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50

Наверное, как-нибудь так:

Код


uses
  WinSock;

function InRange(const Address: AnsiString): Boolean;
const
  _FROM = '62.148.128.0';
  _TO   = '62.148.159.255';
var
  AFrom, ATo, ACheck: Byte;
  i: Integer;
begin
  Result := False;
  for i := 0 to 3 do
  begin
    ACheck := inet_addr(PAnsiChar(Address)) shr (i * 8);
    AFrom  := inet_addr(_FROM) shr (i * 8);
    ATo    := inet_addr(_TO) shr (i * 8);
    if (AFrom <= ACheck) and (ACheck < ATo) then
      Break;
    if not ((AFrom = ACheck) or (ACheck = ATo)) then
      Exit;
  end;
  Result := True;
end;

Это сообщение отредактировал(а) Qu1nt - 2.11.2009, 14:20

Terikon

Дата 2.11.2009, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 1.4.2009

Репутация: нет
Всего: нет

Всё уже сделал, спасибо)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »