Data2000=Record
dwSize :Cardinal;
dwBytesXmited : Cardinal;
dwBytesRcved : Cardinal;
dwFramesXmited : Cardinal;
dwFramesRcved : Cardinal;
dwCrcErr : Cardinal;
dwTimeoutErr : Cardinal;
dwAlignmentErr : Cardinal;
dwHardwareOverrunErr : Cardinal;
dwFramingErr : Cardinal;
dwBufferOverrunErr : Cardinal;
dwCompressionRatioIn : Cardinal;
dwCompressionRatioOut : Cardinal;
dwBps : Cardinal;
dwConnectDuration : Cardinal;
end;
RASSTATS2000=^Data2000;
Function RasGetConnectionStatistics(hRasConn:Cardinal;
lpStatistics : RASSTATS2000) :Cardinal;external 'rasapi32.dll'
name 'RasGetConnectionStatistics';
When I use Function RasGetConnectionStatistics like this:
var P:Data2000;
.......................
FillChar(P,SizeOf(P),0);
P.dwSize := SizeOf(P);
RasGetConnectionStatistics(hRasConn,@P);
...........
It can be compiled, When I run its procedure, I get error. Show Assembler
Code Windows
