救救俺呀，行行好吧

[gg137zeus]

先定义了一个记录。
type
IfTable= record
wszName :array[0..511] of Byte; //(0 To 511) As Byte
dwIndex : Longint ;//编号
dwType : Longint ;// 界面类型
dwMtu : Longint ; // 最大传输单元
dwSpeed : Longint; //界面速度
dwPhysAddrLen : Longint;//物理地址部分有效长度
bPhysAddr:array[0..7] of Byte; //物理地址
dwAdminStatus : Longint ;// '管理状态
dwOperStatus : Longint;// '操作状态
dwLastChange : Longint;// '操作状态最近更新时间
dwInOctets : Longint;//'总共收到(字节)
dwInUcastPkts : Longint;//'总共收到(unicast包)
dwInNUcastPkts : Longint;// '总共收到(non-unicast包)
dwInDiscards : Longint;// '丢弃包总数（收到）
dwInErrors : Longint;// '出错包总数（收到）
dwInUnknownProtos : Longint;// '其它包总数（收到）
dwOutOctets : Longint;// '总共发送(字节)
dwOutUcastPkts : Longint;// '总共发送(unicast包)
dwOutNUcastPkts : Longint;//'总共发送(non-unicast包)
dwOutDiscards : Longint;// '丢弃包总数（发送）
dwOutErrors : Longint;// '出错包总数（发送）
dwOutQLen : Longint;// '发送队列长度
dwDescrLen : Longint;//'界面描述部分有效长度
bDescr:array[0..255] of Byte; //'
end;


然后申明了调用一个DLL中的函数
implementation
{$R *.dfm}
function GetIfTable (var pIfTable:pointer; var pdwSize:longint;var bOrder:longint): longint; stdcall ; external 'iphlpapi.dll' ;



然后在程序中调用此函数：
var i : Longint ;
rows:Longint ;
pdwSize:longint;
bOrder:longint ;
pIfTable:^IfTable;


begin

bOrder:=1;
pdwSize:=15000;
i:=GetIfTable(pIfTable,pdwSize,bOrder);（编译提示这行有错）
j:=1;
end;


编译提示types of actual and formal var parametre must be idential

我该怎么办：

[viena]

\\救救俺呀，行行好吧
饿了吧，呶，给你个馒头吃 D

[gg137zeus]

唉，一个馒头不够，

[才子鸣]

一只鸡

[wywry]

太少了吧，两个馒头加只鸡还差不多
是不是你的函数申明与DLL中有差误，DELPHI区分大小写的

[lijinghe1]

i:=GetIfTable(pointer(pIfTable),pdwSize,bOrder);