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



Вопросы
  Упаковка таблиц в BDE
   Категория: Базы данных
  Undo в memo
   Категория: Компоненты
  Показать удаленные записи в DBase
   Категория: Базы данных
  Поиск по EasyTable
   Категория: Базы данных
  Удалить файл в Корзину
   Категория: Приложение
  Подсчитать количество слов в строке
   Категория: Текст и строки
  Удаление файла в корзину
   Категория: Файловая система
  Узнать все IP-адреса компьютера
   Категория: Интернет и Сети
  Определение размера файла
   Категория: Файловая система

счетчик учета газа тут,Плоттерная резка трафаретов. Светоотражающая пленка для плоттерной резки цена.,Суд Бествей
Delphi - База Знаний: Узнать все IP-адреса компьютера

  << Вернуться к Содержанию  

uses Winsock;



function GetLocalPs: TStringList;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: array[0..63] of Char;
  I: Integer;
  GInitData: TWSAData;
  IPs: TStringList;
begin
  IPs := TStringList.Create;
  WSAStartup($101, GInitData);
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then IPs.Add('No IP found')
  else
  begin
    pPtr := PaPInAddr(phe^.h_addr_list);
    I := 0;
    while pPtr^[I] <> nil do
    begin
      IPs.Add(inet_ntoa(pptr^[I]^));
      Inc(I);
    end;
  end;
  WSACleanup;
  Result := IPs;
end;
  << Вернуться к Содержанию