Delphi:Получение IP DNS-сервера используя GetNetworkParams из iphlpapi.dll

[zibman]

Задача полностью изложена в заголовке.
Моя ОС: Win7.
( Код должен работать и на других Windows. На MSDN написано, что начиная с 98 поддерживается GetNetworkParams .)
Среда разработки: Embarcadero® Delphi® XE Version 15.0.3890.34076.


Вот адрес GetNetworkParams на MSDN.

Проблема в том, что DnsServerList у меня заполнен #0. А при выводе HostName показывает какие-то иероглифы.


Сначала использовал готовую функцию.
Потом взял GetDNSbyIpHlp из исходников Synapse.

В конце-концов переписал все сам:

unit ManualDNS;

interface
uses Windows,  classes, dialogs, sysutils;
const
MAX_HOSTNAME_LEN=128;
MAX_DOMAIN_NAME_LEN=128;
MAX_SCOPE_ID_LEN=256;
type

IpAddress= record
_String:array[0..15] of Char;
end;
MIP_ADDR_STRING=record
Next:^MIP_ADDR_STRING;
IP_ADDRESS_STRING:IpAddress;
IP_MASK_STRING:IpAddress;
Context:DWORD;
end;

MFixed_INFO=record
HostName:array [0..MAX_HOSTNAME_LEN + 4-1] of char;
DomainName:array [0..MAX_DOMAIN_NAME_LEN + 4-1] of char;
CurrentDnsServer:^MIP_ADDR_STRING;
DnsServerList:MIP_ADDR_STRING;
NodeType:Cardinal;
ScopeId:array [0..MAX_SCOPE_ID_LEN + 4-1] of char;
EnableRouting:Cardinal;
EnableProxy:Cardinal;
EnableDns:Cardinal;
end;




function GetDNS:string;
function GetNetworkParams(var pFixedInfo: MFixed_INFO; Var pOutBufLen: cardinal): DWORD; stdcall;
implementation
function GetNetworkParams; external 'iphlpapi.dll' Name 'GetNetworkParams';


function GetDNS:string;
var Test_FI: MFixed_INFO;
Outlength:Cardinal;
begin

Outlength:=SizeOf(Test_FI);
IF GetNetworkParams(Test_FI,Outlength)<>ERROR_SUCCESS  then
begin
  IF GetNetworkParams(Test_FI,Outlength)<>ERROR_SUCCESS  then
  begin
    ShowMessage('MY DNS FAIL on load'); exit;
  end;
end;
 ShowMessage('HostName= '+Test_FI.HostName+ ' DnsServerList= '+ Test_FI.DnsServerList.IP_ADDRESS_STRING._String);

end;

Пробовал еще какие-то примеры, загруженные из Интернета.

Результат везде один и тот же: Иероглифы в HostName и #0 в DnsServerList.

Пример, с MSDN на С прекрасно компилируется и выводит все нужные параметры.

[veniside]

Замените все Char на AnsiChar.

[zibman]

Все гениальное просто. Спасибо огромное, работает.