Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Работа с адресами



Вернуться к списку функций
 Определение локального IP адресса

 Прислал: Gua (Simferopol) ( 14 июня 2002 г. )
©  Unknown
 Зависимости:
WinSock

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Определение локального IP адресса

Зависимости: WinSock
Автор:       Gua, fbsdd@ukr.net, ICQ:141585495, Simferopol
Copyright:   Unknown
Дата:        14 июня 2002 г.
***************************************************************** }

function GetLocalIP:string;
var
  WSAData : TWSAData;
  p : PHostEnt;
  Name : array [0..$FF] of Char;
begin
  WSAStartup($0101, WSAData);
  GetHostName(name, $FF);
  p := GetHostByName(Name);
  Result:=(inet_ntoa(PInAddr(p.h_addr_list^)^));
  WSACleanup;
end;

 Пример использования:
ShowMessage(GetLocalIP);


Вернуться к списку функций

Наверх ▲