есть такой трабл
читаю свойства сетевой карты через стандартную библиотечку Iphlpapi.dll,
свойства карточки прекрасно читаются, обработываются, но как тока обработчик события Button1Click заканчивается ( причем нормально ) возникает Access Violation . . .

текст проги:

const
MAX_ADAPTER_NAME_LENGTH = 256;
MAX_ADAPTER_DESCRIPTION_LENGTH = 128;
MAX_ADAPTER_ADDRESS_LENGTH = 8;
type
//------IP address structures---------------------------------------------------
PIP_ADDRESS_STRING = ^IP_ADDRESS_STRING;
IP_ADDRESS_STRING = array[0..15] of char; // IP as string
PIP_ADDR_STRING = ^IP_ADDR_STRING;
IP_ADDR_STRING = record
Next: PIP_ADDR_STRING;
IpAddress: IP_ADDRESS_STRING;
IpMask: IP_ADDRESS_STRING;
Context: DWORD;
end;
//------ADAPTER INFO STRUCTURES-------------------------------------------------
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;
...
function GetAdaptersInfo(pAdapterInfo: PIP_ADAPTER_INFO; pOutBufLen: PULONG): DWORD;
stdcall; external 'Iphlpapi.dll' name 'GetAdaptersInfo';
...
procedure TfrmMain.Button1Click(Sender: TObject);
const
OutBufLen: ULONG = 2000;
AddrLen = 6;
var
AdapterInfo: IP_ADAPTER_INFO;
Result: DWORD;
i: integer;
Next: PIP_ADAPTER_INFO;
Str: string;
begin
mMAClist.Lines.Add('-----------------------------');
mMAClist.Lines.Add('Network adapter Info');
mMAClist.Lines.Add('-----------------------------');
Result:= GetAdaptersInfo(@AdapterInfo, @OutBufLen);
if Result = 0
then begin
Next:= @AdapterInfo;
repeat
mMAClist.Lines.Add('Description: '+ Next^.Description);
Str:='MAC address: ';
for i := 0 to AddrLen do
begin
Str:=Str+IntToHex(Next^.Address , 2);
if i <> AddrLen then {write('-')}Str:=Str+'-';
end;
mMAClist.Lines.Add(Str);
Next:= AdapterInfo.Next;
mMAClist.Lines.Add('');
mMAClist.Lines.Add('');
until Next = nil;
end
else mMAClist.Lines.Add('Error. Result code: '+ IntToStr(Result));
ShowMessage('12345');
end;

порле того как нажмешь OK на сообщении "12345"
возникает Access violation или доступ по адресу 000000000

mMAClist - это TMemo лежит на форме

type
TfrmMain = class(TForm)
Button1: TButton;
mMAClist: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMain: TfrmMain;

в пошаговом режиме доходит до end;(обработка ButtonClick),
после него думает секунд 5 и выпадывает табличка "Access violation 0x0000000: read of adress 0x0000000" и указатель окна CPU стоит на адресе 0000000,
а вверху окна надпись Thread #NNNN.

прога больше ничего неделает ( я хотел проверить как эта ф-я работать будет - и сразу такой глюк )

вот полный сорц:

--------- MAC.dpr -------

program MAC;

uses
Forms,
untMain in 'untMain.pas' {frmMain};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end.

------- untMain.pas --------

unit untMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TfrmMain = class(TForm)
Button1: TButton;
mMAClist: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

const
MAX_ADAPTER_NAME_LENGTH = 256;
MAX_ADAPTER_DESCRIPTION_LENGTH = 128;
MAX_ADAPTER_ADDRESS_LENGTH = 8;
type
//------IP address structures------------------------------------------------
PIP_ADDRESS_STRING = ^IP_ADDRESS_STRING;
IP_ADDRESS_STRING = array[0..15] of char; // IP as string
PIP_ADDR_STRING = ^IP_ADDR_STRING;
IP_ADDR_STRING = record
Next: PIP_ADDR_STRING;
IpAddress: IP_ADDRESS_STRING;
IpMask: IP_ADDRESS_STRING;
Context: DWORD;
end;
//------ADAPTER INFO STRUCTURES------------------------------------------
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;

function GetAdaptersInfo(pAdapterInfo: PIP_ADAPTER_INFO;
pOutBufLen: PULONG): DWORD;
stdcall; external 'Iphlpapi.dll' name 'GetAdaptersInfo';

implementation

{$R *.dfm}

procedure TfrmMain.Button1Click(Sender: TObject);
const
OutBufLen: ULONG = 2000;
AddrLen = 6;
var
AdapterInfo: IP_ADAPTER_INFO;
Result: DWORD;
i: integer;
Next: PIP_ADAPTER_INFO;
Str: string;
begin
mMAClist.Lines.Add('-----------------------------');
mMAClist.Lines.Add('Network adapter Info');
mMAClist.Lines.Add('-----------------------------');
Result:= GetAdaptersInfo(@AdapterInfo, @OutBufLen);
if Result = 0
then begin
Next:= @AdapterInfo;
repeat
mMAClist.Lines.Add('Description: '+ Next^.Description);
Str:='MAC address: ';
for i := 0 to AddrLen do
begin
Str:=Str+IntToHex(Next^.Address , 2);
if i <> AddrLen then Str:=Str+'-';
end;
mMAClist.Lines.Add(Str);
Next:= AdapterInfo.Next;
mMAClist.Lines.Add('');
mMAClist.Lines.Add('');
until Next = nil;
end
else mMAClist.Lines.Add('Error. Result code: '+ IntToStr(Result));
ShowMessage('12345');
end;

end.

может я как-то нетак внешнюю ф-ю из dll-ки вызываю ?

я немного недопонял о каком таком невыделении памяти идет речь ?
у вас в локальных переменных ф-ии записано
info : PIP_ADAPTER_INFO;
next : PIP_ADAPTER_INFO;
т.е. определены указатели (а не переменные) - ессно тут надо выделять память под данные, но если у меня прописана локальная переменная
var
AdapterInfo: IP_ADAPTER_INFO;
адрес которой собственно и указан при вызове ф-ии
Result:= GetAdaptersInfo(@AdapterInfo, @OutBufLen);

или вы господа будете утверждать что при объявлении переменных в разделе
var
под них невыделяется память ? - это нонсенс

хотя вы мне подали очень интересную идею - скорее всего ф-я возвращает больше данных чем размер IP_ADAPTER_INFO; и тогда она действительно может затереть что-нить лишнее в памяти
но насчет того что память небыла выделена - совершенно несогласен, так же как и стем что она небыла освобождена - при выходе из процедуры освобождается память от всех локальных переменных !

выделенный параметр вообще говоря возвращает NIL
на сайте MSDN написано - CurrentIpAddress -Reserved.
память для самого указателя выделена при определении переменной в разделе VAR

под что еще выделять память ?

проблема то локализована - если закомментировать строчку вызова ф-ии ...GetAdaptersInfo(...) то таких ошибок невозникает,
но ведь неглючит же сама ф-я!

to StarWind:
твоя реблика не без внимания - я проверял, но результат тот же . . .

to srf2000:
рулез, точно в этом и есть проблема . . .
OutBuffer=2000 я взял из примера в инете,
сейчас допер - верно у меня структура AdaptersInfo меньше чем 2000
поэтому когда ф-я возвращает результат затирает "лишнего" - отсюда ошибка

спасибо всем!