Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#7

Re: TCPTable liefert falschen Port

  Alt 12. Jul 2004, 17:41
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;
Andreas
  Mit Zitat antworten Zitat