Скачать: CL | DM;

GetAdaptersInfo-Грабли   Найти похожие ветки 

← →
ser_sumy   (2004-02-16 13:25) [0]

type
PIP_ADAPTER_INFO = ^IP_ADAPTER_INFO;
IP_ADAPTER_INFO = record
  Next: PIP_ADAPTER_INFO;
  ComboIndex: DWORD;
  AdapterName: array[1..MAX_ADAPTER_NAME_LENGTH + 4] of  char;
  Description: array[1..MAX_ADAPTER_DESCRIPTION_LENGTH + 4] of char;
  AddressLength: UINT;
  Address: array[1..MAX_ADAPTER_ADDRESS_LENGTH] of byte;
  Index: DWORD;
  aType: UINT;
  DHCPEnabled: UINT;
  CurrentIPAddress: PIP_ADDR_STRING;
  IPAddressList: IP_ADDR_STRING;
  GatewayList: IP_ADDR_STRING;
  DHCPServer: IP_ADDR_STRING;
  HaveWINS: BOOL;
  PrimaryWINSServer: IP_ADDR_STRING;
  SecondaryWINSServer: IP_ADDR_STRING;
  LeaseObtained: LongInt;
  LeaseExpires: LongInt;
  SpareStuff: array [1..200] of char;
end;

procedure My_Gateway;
Var
AdapterInfo: IP_ADAPTER_INFO;
Result: Dword;
Next1: ^IP_ADAPTER_INFO;
begin

  Result:= (GetAdaptersInfo(@AdapterInfo, @OutBufLen));
if (Result) = 0 then
begin
  Next1:= @AdapterInfo;
  Gateway:=(Next1^.GatewayList.IpAddress);
 end  ;
end;
п
ри выходе из процедуры ошибка: "access violation at 0x00000000: read of address 0x00000000 "
вчем проблема?

---

← →
Radionov Alexey ©   (2004-02-16 15:03) [1]

ИМХО память не выделяешь под Next1 и GetAdaptersInfo пишет по адресу адреса на структуру IP_ADAPTER_INFO

---

← →
Radionov Alexey ©   (2004-02-16 15:07) [2]

Сорри, я наврал про то, кто куда пишет :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c