unit koala_types; interface uses types,messages,classes,Graphics,Windows; const WM_UPDATEDEBUG = WM_APP + 2001; WM_ERRORHANDLER = WM_APP + 2000; WM_PACKETDATA = WM_APP + 2002; PING_CACHESIZE = 150; DEFAULT_PACKETLIMIT = 60; DEFAULT_BYTELIMIT = 30000; SLEEPTIME = 40; type Tdebugmessage = {packed }record // used for displaying various information in the main program thread // useful for giving users an idea of what's going on... category:integer; text:string; end; Pdebugmessage = ^Tdebugmessage; type Tping = {packed} record ip: string[15]; port:integer; sent:int64; end; Pping = ^Tping; type Tpacket = {packed} record data: string; ip: string[15]; port: integer; destport:integer; ping: integer; { Ping also serves as an identifier for the UDP_monitor returns since there is no 'ping' time as all data is incoming only. a ping value of -5 dictates a udp_monitor return. } datetime:TDateTime; end; Ppacket = ^Tpacket; // pointer var debug_level:integer; implementation end.