VPF::Прокомментируйте код - Форум программистов

Vokunya

Дата 18.4.2009, 20:34 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


function GetLocalIP: string; 
const WSVer = $101;
var
  wsaData: TWSAData;
  P: PHostEnt;
  Buf: array [0..127] of Char;
begin
  Result := '';
  if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
      P := GetHostByName(@Buf);
      if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
  end;
end;

Функция возвращает IP адрес.
Если не в лом, прокомментируйте, пожалуйста, построчно... А то диплом защищать: smile

и если спросят, то сказать, что взял готовый код, я думаю ответ комиссию не очень устроит smile

Matematik

Дата 18.4.2009, 21:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

WSAStartup - Инициялизация Windows Socket версси №1
GetHostName - Получение имени локального хоста
GetHostByName - Преобразование имени хоста в адрес
iNet_ntoa - Преобразование ip адреса в строку
WSACleanup - Деинициализация winsock

Vokunya

Дата 18.4.2009, 22:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

и еще немного конкретики.... smile

Код


if GetHostName(@Buf, 128) = 0

параметр '128' - ?

Код


P: PHostEnt;

PHostEnt - что за тип?

Код


iNet_ntoa(PInAddr(p^.h_addr_list^)^)

вот именно параметр - PInAddr(p^.h_addr_list^)^?

Данкинг

Дата 18.4.2009, 22:46 (ссылка)

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

Загрузка ...

Yersinia pestis

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

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

Цитата(Vokunya @ 18.4.2009, 23:41

)

PHostEnt - что за тип?

Ну так посмотри, в каком модуле он определён. Правой кнопкой кликни и "найти описание".

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

There's nothing left but silent epitaphs.

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