Das Fehlerhandling in VVGetTcpTable & VVGetUdpTable erscheint mir noch etwas zu schwach.
Delphi-Quellcode:
procedure VVGetTcpTable(var pTcpTable: PMibTcpTable; var dwSize: DWORD;
const bOrder: BOOL);
var
Res: DWORD;
begin
....
Res := GetTcpTable(pTcpTable, dwSize, bOrder);
end;
(* alt
if Res <> NO_ERROR then
exit;
*)
// neu
case res of
ERROR_NOT_SUPPORTED : raise EWin32Error.Create('GetTcpTable not supported');
ERROR_INVALID_PARAMETER : raise EWin32Error.Create('GetTcpTable: invalid parameter');
else
raise EWin32Error.CreateResFmt(@SWin32Error, [Res, SysErrorMessage(Res)])
end;
end;