1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

   
   GetUdpTable(nil,size,true); // benötigter Speicher ermitteln
   GetMem(table,size);
   try
    if GetUdpTable(table,size,true) = NO_Error then
     for i:=0 to MIB_UDPTABLE(table^).EntriesCount-1 do // EntriesCount stimmt auch ( vergl. GetUdpStatistics() )
      if MIB_UDPTABLE(table^).Entries <> NIL then begin // ist TRUE (sollte eigentlich mit TableEntries gefüllt sein)
         IpAddr := MIB_UDPTABLE(table^).Entries[i].lIpAddr;
         with mem.Lines do Add(inet_ntoa(in_addr(IpAddr)));
      end;
   finally
    FreeMem(table);
   end;