VPF::GetNetworkParams - Форум программистов

-=Fox=-

Дата 16.5.2003, 17:18 (ссылка)

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

Загрузка ...

Шустрый

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

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

В библиотеке IPHLPAPI.DLL есть функция GetNetworkParams. Как ею правильно пользоватся?? я описал все структуты, т.к. PFIXED_INFO не нашел в Делфе. А функция не пашет

function GetNetworkParams(p1: PFIXED_INFO; p2:PULONG): DWORD;
external 'IPHLPAPI.DLL' name 'GetNetworkParams';

-=Fox=-

Дата 16.5.2003, 17:24 (ссылка)

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

Загрузка ...

Шустрый

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

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

вот черновой вариант(структуру переписывал с си) :

Код


type
   IP_ADDRESS_STRING = record
     _String: array [1..16] of Char;
   end;

   IP_MASK_STRING = IP_ADDRESS_STRING;
   PIP_ADDRESS_STRING = ^IP_ADDRESS_STRING;
   PIP_MASK_STRING = ^IP_ADDRESS_STRING;

  PIP_ADDR_STRING = ^IP_ADDR_STRING;

  IP_ADDR_STRING = packed record
    Next     : PIP_ADDR_STRING;
    IpAddress: IP_ADDRESS_STRING;
    IpMask   : IP_MASK_STRING;
    Context  : DWORD;
  end;

  Fixed_info = record
    HostName: array [1..128{MAX_HOSTNAME_LEN} + 4] of Char;
    DomainName: array [1..128{MAX_DOMAIN_NAME_LEN} + 4] of Char;
    CurrentDnsServer: PIP_ADDR_STRING;
    DnsServerList: IP_ADDR_STRING;
    NodeType: UINT;
    ScopeId: array [1..256{MAX_SCOPE_ID_LEN} + 4] of Char;
    EnableRouting: UINT;
    EnableProxy: UINT;
    EnableDns: UINT;
  end;


  PFIXED_INFO = ^FIXED_INFO;
...
...
  p1: PFIXED_INFO;
  p2: PULong;
begin
  GetMem(p1,sizeof(p1));
  GetMem(p2,sizeof(p2));
  p2^ := 1024;
  GetNetworkParams(p1, p2);
  ShowMessage(p1^.DnsServerList.IpAddress._String);
  FreeMem(p1);
  FreeMem(p2);
...
...

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