Difference between revisions of "Unit IP"

Revision as of 05:43, 24 March 2017

`constructor Create(AManager:TTransportManager; const AName:String);`
`destructor Destroy; override;`
private
`FNextIPId:Word;`
`FNextIPLock:TMutexHandle;`

`FARP:TARPTransport;`
`FRARP:TRARPTransport;`
`FFragments:TIPBuffer;`

`FHosts:TNetworkList;`
`FServs:TNetworkList;`
`FProtos:TNetworkList;`
`FRoutes:TNetworkList;`
`FNetworks:TNetworkList;`
`FAddresses:TNetworkList;`

`FNameservers:TIPNameservers;`	(Part of TNetworkList)
`FNameserverLock:TMutexHandle;`

`FForwarding:LongWord;`
`FDefaultTTL:LongWord;`
`FAutoRelease:Boolean;`

`function PacketHandler(AHandle:THandle; ASource,ADest,APacket:Pointer; ASize:Integer; ABroadcast:Boolean):Boolean;`
`function FragmentHandler(ASource,ADest,APacket:Pointer; ASize:Integer; ABroadcast:Boolean):Boolean;`

`function CheckFragment(ABuffer:Pointer):Boolean;`

`function GetNextIPId(AIncrement:Boolean):Word;`

`function GetIPNameserver(ACount:LongWord):TInAddr;`

`function GetAdapterConfigType(const AName:String):Word;`
`function GetAdapterConfigAddress(const AName:String):TInAddr;`
`function GetAdapterConfigNetmask(const AName:String):TInAddr;`
`function GetAdapterConfigGateway(const AName:String):TInAddr;`
`function GetAdapterConfigServer(const AName:String):TInAddr;`
protected
`function FilterPacket(ASource,ADest,APacket:Pointer; ASize:Integer; ABroadcast:Boolean):Boolean; override;`
`function ForwardPacket(AAdapter:TTransportAdapter; ASource,ADest,APacket:Pointer; ASize:Integer; ABroadcast:Boolean):Boolean; override;`
public
`property Nameservers:TIPNameservers read FNameservers;`

`property Forwarding:LongWord read FForwarding write FForwarding;`
`property DefaultTTL:LongWord read FDefaultTTL write FDefaultTTL;`
`property AutoRelease:Boolean read FAutoRelease write FAutoRelease;`

`function AddAdapter(AAdapter:TNetworkAdapter; AConfigType:Word; AAddress,ANetmask,AGateway,AServer:Pointer):Boolean; override;`
`function RemoveAdapter(AAdapter:TNetworkAdapter):Boolean; override;`

`function AddProtocol(AProtocol:Word; APacketHandler:TTransportPacketHandler; AControlHandler:TTransportControlHandler):THandle; override;`
`function RemoveProtocol(AHandle:THandle; AProtocol:Word):Boolean; override;`

`function AddFilter(AProtocol:Word; AFilterHandler:TTransportFilterHandler):THandle; override;`
`function RemoveFilter(AHandle:THandle; AProtocol:Word):Boolean; override;`

`function AddConfig(AConfigType:Word; AConfigAuto:Boolean; AConfigHandler:TTransportConfigHandler):THandle; override;`
`function RemoveConfig(AHandle:THandle; AConfigType:Word):Boolean; override;`

`function SendPacket(ASocket:TTransportSocket; ASource,ADest:Pointer; APacket:PPacketFragment; ASize,AFlags:Integer):Integer; override;`
`function SendControl(ASource,ADest:Pointer; AProtocol,ACommand,ACode:Word; AAddress,AData:Pointer; ASize:Integer):Boolean; override;`

`function GetSockOpt(ASocket:TTransportSocket; ALevel,AOptName:Integer; AOptValue:PChar; var AOptLength:Integer):Integer; override;`
`function SetSockOpt(ASocket:TTransportSocket; ALevel,AOptName:Integer; AOptValue:PChar; AOptLength:Integer):Integer; override;`

`function StartTransport:Boolean; override;`
`function StopTransport:Boolean; override;`
`function ProcessTransport:Boolean; override;`

`function BindTransport(AAdapter:TNetworkAdapter):Boolean; override;`
`function UnbindTransport(AAdapter:TNetworkAdapter):Boolean; override;`

`function AddNameserver(const AAddress:TInAddr):Boolean;`
`function RemoveNameserver(const AAddress:TInAddr):Boolean;`

`function GetHostByName(const AName:String; ALock:Boolean):TIPHostEntry;`
`function GetHostByAddress(const AAddress:TInAddr; ALock:Boolean):TIPHostEntry;`
`function GetHostByNext(APrevious:TIPHostEntry; ALock,AUnlock:Boolean):TIPHostEntry;`
`function AddHost(const AAddress:TInAddr; const AName:String; AType:Word; ALock:Boolean):TIPHostEntry;`
`function RemoveHost(const AAddress:TInAddr):Boolean;`
`procedure FlushHosts(All:Boolean);`

`function GetRouteByAddress(const AAddress:TInAddr; ALock:Boolean; AState:LongWord):TIPRouteEntry;`
`function GetRouteByNetwork(const ANetwork,AAddress:TInAddr; ALock:Boolean; AState:LongWord):TIPRouteEntry;`
`function GetRouteByNext(APrevious:TIPRouteEntry; ALock,AUnlock:Boolean; AState:LongWord):TIPRouteEntry;`
`function AddRoute(const ANetwork,ANetmask,AGateway,AAddress:TInAddr; AType:Word; ALock:Boolean; AState:LongWord):TIPRouteEntry;`
`function RemoveRoute(const ANetwork,AAddress:TInAddr):Boolean;`
`procedure FlushRoutes(All:Boolean);`

`function GetAddressByAddress(const AAddress:TInAddr; ALock:Boolean; AState:LongWord):TIPAddressEntry;`
`function GetAddressByNext(APrevious:TIPAddressEntry; ALock,AUnlock:Boolean; AState:LongWord):TIPAddressEntry;`
`function AddAddress(const AAddress:TInAddr; AAdapter:TNetworkAdapter; AType:Word; ALock:Boolean; AState:LongWord):TIPAddressEntry;`
`function RemoveAddress(const AAddress:TInAddr):Boolean;`
`procedure FlushAddresses(All:Boolean);`

`function GetNetworkByName(const AName:String; ALock:Boolean):TIPNetworkEntry;`
`function GetNetworkByAddress(const ANetwork:TInAddr; ALock:Boolean):TIPNetworkEntry;`
`function AddNetwork(const AName:String; const ANetwork:TInAddr; ALock:Boolean):TIPNetworkEntry;`
`function RemoveNetwork(const AName:String):Boolean;`

`function GetServByName(const AName,AProtocol:String; ALock:Boolean):TIPServEntry;`
`function GetServByPort(APort:Word; const AProtocol:String; ALock:Boolean):TIPServEntry;`
`function AddServ(const AName,AProtocol:String; APort:Word; ALock:Boolean):TIPServEntry;`
`function RemoveServ(const AName,AProtocol:String):Boolean;`

`function GetProtoByName(const AName:String; ALock:Boolean):TIPProtoEntry;`
`function GetProtoByNumber(ANumber:Word; ALock:Boolean):TIPProtoEntry;`
`function AddProto(const AName:String; ANumber:Word; ALock:Boolean):TIPProtoEntry;`
`function RemoveProto(const AName:String):Boolean;`

`function CompareLocal(const AAddress:TInAddr):Boolean;`
`function CompareDefault(const AAddress:TInAddr):Boolean;`
`function CompareLoopback(const AAddress:TInAddr):Boolean;`
`function CompareDirected(const AAddress:TInAddr):Boolean;`
`function CompareBroadcast(const AAddress:TInAddr):Boolean;`
`function CompareMulticast(const AAddress:TInAddr):Boolean;`
`function CompareAddress(const AAddress1,AAddress2:TInAddr):Boolean;`
`function CompareSubnet(const AAddress,ANetwork,ANetmask:TInAddr):Boolean;`

IP state

[Expand]

TIPState = class(TTransportState)

IP options

[Expand]

TIPOptions = class(TTransportOptions)

IP host entry

[Expand]

TIPHostEntry = class(THostEntry)

IP route entry

[Expand]

TIPRouteEntry = class(TRouteEntry)

IP address entry

[Expand]

TIPAddressEntry = class(TAddressEntry)

IP network entry

[Expand]

TIPNetworkEntry = class(TNetworkEntry)

IP service entry

[Expand]

TIPServEntry = class(TServEntry)

IP protocol entry

[Expand]

TIPProtoEntry = class(TProtoEntry)

Public variables

None defined

Function declarations

Initialization functions

[Expand]

procedure IPInit;

Description: To be documented

IP functions

[Expand]

function CheckIP(ABuffer:Pointer):Boolean;

Description: Verify that the packet is a valid IP packet

[Expand]

function GetIPHeaderOffset(ABuffer:Pointer):Word;

Description: Return Start of the IP Header (Start of Packet)

[Expand]

function GetIPHeaderLength(ABuffer:Pointer):Word;

Description: Return Size of IP Header (Including Options)

[Expand]

function GetIPOptionsLength(ABuffer:Pointer):Word;

Description: Return Size of IP Options (Header - IP_HEADER_SIZE)

[Expand]

function GetIPDataOffset(ABuffer:Pointer):Word;

Description: Return Start of IP Packet Data (Length of IP Header)

[Expand]

function GetIPDataLength(ABuffer:Pointer):Word;

Description: Return Size of IP Packet Data (IP TotalLength - IP Header)

[Expand]

function ChecksumIPRecv(ABuffer:Pointer; AOffset,ALength:Word):Word;

Description: Validate the IP Header and Options Checksum on Receive

[Expand]

function ChecksumIPSend(AHeader,AOptions:Pointer; ALength:Word):Word;

Description: Checksum the IP Header and Options on Send

Return to Unit Reference

@@ Line 25: / Line 25: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 20px; padding-bottom: 15px;">
-<div style="font-size: 14px; padding-left: 12px;">'''IP constants''' <code> IP_*_SIZE </code></div>
+<div style="font-size: 14px; padding-left: 12px;">'''IP size''' <code> IP_*_SIZE </code></div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 {| class="wikitable" style="font-size: 14px; background: white;"
@@ Line 63: / Line 63: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 20px; padding-bottom: 15px;">
-<div style="font-size: 14px; padding-left: 12px;">'''IP header flags / fragment offset constants''' <code> IP_* </code></div>
+<div style="font-size: 14px; padding-left: 12px;">'''IP header flags / fragment offset''' <code> IP_* </code></div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 {| class="wikitable" style="font-size: 14px; background: white;"
@@ Line 83: / Line 83: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 20px; padding-bottom: 15px;">
-<div style="font-size: 14px; padding-left: 12px;">'''IP header option constants''' <code> IPOPT_* </code></div>
+<div style="font-size: 14px; padding-left: 12px;">'''IP header options''' <code> IPOPT_* </code></div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 {| class="wikitable" style="font-size: 14px; background: white;"
@@ Line 118: / Line 118: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 20px; padding-bottom: 15px;">
-<div style="font-size: 14px; padding-left: 12px;">'''IP offset option constants''' <code> IPOPT_OFFSET* </code></div>
+<div style="font-size: 14px; padding-left: 12px;">'''IP offset options''' <code> IPOPT_OFFSET* </code></div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 {| class="wikitable" style="font-size: 14px; background: white;"
@@ Line 142: / Line 142: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 20px; padding-bottom: 15px;">
-<div style="font-size: 14px; padding-left: 12px;">'''IP TS flag option constants''' <code> IPOPT_TS_* </code></div>
+<div style="font-size: 14px; padding-left: 12px;">'''IP TS flag options''' <code> IPOPT_TS_* </code></div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 {| class="wikitable" style="font-size: 14px; background: white;"
@@ Line 163: / Line 163: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 20px; padding-bottom: 15px;">
-<div style="font-size: 14px; padding-left: 12px;">'''IP security flag constants''' <code> IPOPT_SECUR_* </code></div>
+<div style="font-size: 14px; padding-left: 12px;">'''IP security flag''' <code> IPOPT_SECUR_* </code></div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 {| class="wikitable" style="font-size: 14px; background: white;"
@@ Line 196: / Line 196: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 20px; padding-bottom: 15px;">
-<div style="font-size: 14px; padding-left: 12px;">'''IP type of service constants''' <code> IPTOS_* </code></div>
+<div style="font-size: 14px; padding-left: 12px;">'''IP type of service''' <code> IPTOS_* </code></div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 {| class="wikitable" style="font-size: 14px; background: white;"

`MIN_IP_PACKET = 20;`	Not Counting Adapter Header
`MAX_IP_PACKET = 65536;`	Not Counting Adapter Header

`MAX_FRAG_LIFE = 32000;`	Only wait 32 seconds for the rest of the packet

`IP_HEADER_SIZE = 20;`	SizeOf(TIPHeader); (Does Not Allow for Options)
`IP_OPTIONS_SIZE = 40;`	Maximum Allowed Options
`IP_PSEUDO_SIZE = 12;`	SizeOf(TPseudoHeader);

`IP_PACKET_SIZE = 56;`	SizeOf(TIPPacket); (Previously 46)
`IP_FRAGMENT_SIZE = 12;`	SizeOf(TIPFragment);

`IP_CE = $8000;`	Congestion Experienced
`IP_DF = $4000;`	1 = Don't Fragment 0 = May Fragment
`IP_MF = $2000;`	1 = More Fragments 0 = Last Fragment
`IP_OFFMASK = $1FFF;`	Fragment Offset Mask

`IPOPT_EOL = 0;`	end-of-option list
`IPOPT_NOP = 1;`	no-operation
`IPOPT_RR = 7;`	record packet route
`IPOPT_TS = 68;`	timestamp
`IPOPT_SECURITY = 130;`	provide s,c,h,tcc
`IPOPT_LSRR = 131;`	loose source route
`IPOPT_SATID = 136;`	satnet id
`IPOPT_SSRR = 137;`	strict source route
`IPOPT_RA = 148;`	router alert

Offsets to fields in IP Options other than EOL and NOP

`IPOPT_OPTVAL = 0;`	option ID
`IPOPT_OLEN = 1;`	option length
`IPOPT_OFFSET = 2;`	offset within option
`IPOPT_MINOFF = 4;`	min value of above

Difference between revisions of "Unit IP"

Revision as of 05:43, 24 March 2017

Contents

Description

Constants

Type definitions

Class definitions

Public variables

Function declarations

Navigation menu

Personal tools

Namespaces

Variants

Views

More

Search

Navigation

Tools

Flags for IPOPT_TS Flags

`IPOPT_TS_TSONLY = 0;`	timestamps only
`IPOPT_TS_TSANDADDR = 1;`	timestamps and addresses
`IPOPT_TS_PRESPEC = 3;`	specified modules only

Flags for IPOPT_SECURITY Flags (Network Order)

`IPOPT_SECUR_UNCLASS = $0000;`
`IPOPT_SECUR_CONFID = $F135;`
`IPOPT_SECUR_EFTO = $789A;`
`IPOPT_SECUR_MMMM = $BC4D;`
`IPOPT_SECUR_RESTR = $AF13;`
`IPOPT_SECUR_SECRET = $D788;`
`IPOPT_SECUR_TOPSECRET = $6BC5;`

`IPTOS_LOWDELAY = $10;`
`IPTOS_THROUGHPUT = $08;`
`IPTOS_RELIABILITY = $04;`
`IPTOS_MINCOST = $02;`

Note: 20 Bytes unless IP Options are added
`VersionLength:Byte;`	$45 for IPv4 and 20-byte header
`TOS:Byte;`	throughput type of service
`TotalLength:Word;`	Total Size of the Packet (Max 65535) (Network Order)
`Id:Word;`	Incremented with each Packet (Network Order)
`FragOffset:Word;`	and IP Header Flags DF, MF etc (Network Order)
`TTL:Byte;`	Time to Live Seconds / Hops
`Protocol:Byte;`	IPPROTO_IP, IPPROTO_TCP etc
`Checksum:Word;`	1s Compliment checksum
`SourceIP:TInAddr;`	Source IP (Network Order)
`DestIP:TInAddr;`	Destination IP (Network Order)

`Code:Byte;`	IPOPT_TS
`Length:Byte;`	Size of structure (Variable)
`Index:Byte;`	Index of current entry
`FlagsOverflow:Byte;`	Flags (4 Bits) Overflow counter (4 Bits)
`case Integer of`
`0:(Timestamp:LongWord);`
`1:(TimestampAddress:TIPTimestampAddress);`

Note: 12 Bytes (Used by UDP/TCP Checksum)
`SourceIP:TInAddr;`	Source IP Network Order
`DestIP:TInAddr;`	Destination IP Network Order
`Mbz:Byte;`	Must Be Zero
`Protocol:Byte;`	IP Protocol Type IPPROTO_UDP, IPPROTO_TCP etc
`Length:Word;`	Length of UDP/TCP Header and Data

Note: 12 Bytes (Used by Fragment Buffer)
`Offset:Word;`	Offset of this Fragment in the Packet
`Size:Word;`	Size of this Fragment

`Prev:PIPFragment;`	Pointer to Prev Fragment
`Next:PIPFragment;`	Pointer to Next Fragment

Note: 56 Bytes (Used by Fragment Buffer)
`Lock:TMutexHandle;`	Packet Lock

`Id:Word;`	IP Id
`Protocol:Word;`	IP Protocol
`Dest:TInAddr;`	IP Dest
`Source:TInAddr;`	IP Source

`Data:Pointer;`	Pointer to Data
`Timeout:Int64;`	Packet Timeout
`Total:Word;`	IP Total Length
`Length:Word;`	IP Header Length
`Received:Word;`	Received Bytes

`Prev:PIPPacket;`	Pointer to Prev Packet
`Next:PIPPacket;`	Pointer to Next Packet

`First:PIPFragment;`	Pointer to First Fragment
`Last:PIPFragment;`	Pointer to Last Fragment

Note: Different to Socket Buffer.

`constructor Create(ATransport:TNetworkTransport);`
`destructor Destroy; override;`
private
`FFirst:PIPPacket;`
`FLast:PIPPacket;`

`function GetFragment(APacket:PIPPacket; AOffset,ASize:Word):PIPFragment;`
`function AddFragment(APacket:PIPPacket; AOffset,ASize:Word):PIPFragment;`
`function RemoveFragment(APacket:PIPPacket):Boolean;`
`procedure FlushFragments(APacket:PIPPacket);`
public
`function GetPacket(AId:Word; AProtocol:Byte; const ASource,ADest:TInAddr; ALock:Boolean):PIPPacket;`
`function AddPacket(AId:Word; AProtocol:Byte; const ASource,ADest:TInAddr; ALock:Boolean):PIPPacket;`
`function RemovePacket(APacket:PIPPacket):Boolean;`
`function UnlockPacket(APacket:PIPPacket):Boolean;`
`procedure FlushPackets(All:Boolean);`

`function PutHeader(APacket:PIPPacket; ABuffer:Pointer; ALength:Word):Boolean;`
`function PutFragment(APacket:PIPPacket; ABuffer:Pointer; AOffset,ASize,AFlags:Word):Boolean;`

`constructor Create;`
public
`Address:TInAddr;`
`Netmask:TInAddr;`
`Gateway:TInAddr;`
`Network:TInAddr;`
`Directed:TInAddr;`

`Server:TInAddr;`	DHCP Server
`LeaseTime:LongWord;`	DHCP Lease Time
`RetryTime:Int64;`	DHCP Retry Time
`ExpiryTime:Int64;`	DHCP Expiry Time
`RenewalTime:Int64;`	DHCP Renewal Time
`RebindingTime:Int64;`	DHCP Rebinding Time

`ConfigDefault:Word;`	BOOTP/DHCP/RARP/STATIC/PSEUDO/LOOPBACK
`ConfigAddress:TInAddr;`
`ConfigNetmask:TInAddr;`
`ConfigGateway:TInAddr;`
`ConfigServer:TInAddr;`

`Address:TInAddr;`
`Timestamp:LongWord;`

`constructor Create;`
private
`FLocalAddress:TInAddr;`	Host Order
`FRemoteAddress:TInAddr;`	Host Order

`procedure SetLocalAddress(const ALocalAddress:TInAddr);`
`procedure SetRemoteAddress(const ARemoteAddress:TInAddr);`
public
`property LocalAddress:TInAddr read FLocalAddress write SetLocalAddress;`
`property RemoteAddress:TInAddr read FRemoteAddress write SetRemoteAddress;`

Note: For Get/Set Options Level = IP_PROTO Option = ???

`constructor Create;`
`destructor Destroy; override;`
private
`FMemory:TMemoryStream;`
`FOptions:Pointer;`
`FLength:Integer;`

`FTOS:Byte;`	IPTOS_LOWDELAY etc
`FTTL:Byte;`	Time To Live
`FFlags:Word;`	IP_DF etc
`FHeader:Boolean;`	IP_HDRINCL
`FMulticastIF:TInAddr;`	IP_MULTICAST_IF
`FMulticastTTL:Byte;`	IP_MULTICAST_TTL
`FMulticastLOOP:Boolean;`	IP_MULTICAST_LOOP

`procedure SetTOS(ATOS:Byte);`
`procedure SetTTL(ATTL:Byte);`
`procedure SetFlags(AFlags:Word);`
`procedure SetHeader(AHeader:Boolean);`
`procedure SetMulticastIF(const AMulticastIF:TInAddr);`
`procedure SetMulticastTTL(AMulticastTTL:Byte);`
`procedure SetMulticastLOOP(AMulticastLOOP:Boolean);`

`procedure SetLength(ALength:Integer);`
public
`property TOS:Byte read FTOS write SetTOS;`
`property TTL:Byte read FTTL write SetTTL;`
`property Flags:Word read FFlags write SetFlags;`
`property Header:Boolean read FHeader write SetHeader;`
`property MulticastIF:TInAddr read FMulticastIF write SetMulticastIF;`
`property MulticastTTL:Byte read FMulticastTTL write SetMulticastTTL;`
`property MulticastLOOP:Boolean read FMulticastLOOP write SetMulticastLOOP;`

`property Options:Pointer read FOptions;`	IP_OPTIONS
`property Length:Integer read FLength write SetLength;`

`constructor Create;`
private
`FTOS:Byte;`	Default TOS for this Route
`FTTL:Byte;`	Default TTL for this Route
`FNetwork:TInAddr;`
`FNetmask:TInAddr;`
`FGateway:TInAddr;`
`FAddress:TInAddr;`

`procedure SetTOS(ATOS:Byte);`
`procedure SetTTL(ATTL:Byte);`
`procedure SetNetwork(const ANetwork:TInAddr);`
`procedure SetNetmask(const ANetmask:TInAddr);`
`procedure SetGateway(const AGateway:TInAddr);`
`procedure SetAddress(const AAddress:TInAddr);`
public
`property TOS:Byte read FTOS write SetTOS;`
`property TTL:Byte read FTTL write SetTTL;`
`property Network:TInAddr read FNetwork write SetNetwork;`
`property Netmask:TInAddr read FNetmask write SetNetmask;`
`property Gateway:TInAddr read FGateway write SetGateway;`
`property Address:TInAddr read FAddress write SetAddress;`

`constructor Create;`
private
`FAddresses:array[0..MAX_HOST_ALIASES - 1] of TInAddr;`

`function GetAddress:TInAddr;`
`procedure SetAddress(const AAddress:TInAddr);`
`function GetAddresses(Index:Integer):TInAddr;`
public
`property Address:TInAddr read GetAddress write SetAddress;`
`property Addresses[Index:Integer]:TInAddr read GetAddresses;`

`function FindAddress(const AAddress:TInAddr):Boolean;`

`function AddAddress(const AAddress:TInAddr):Boolean;`
`function RemoveAddress(const AAddress:TInAddr):Boolean;`

Note: Used for secondary addresses.

`constructor Create;`
private
`FAddress:TInAddr;`

`procedure SetAddress(const AAddress:TInAddr);`
public
`property Address:TInAddr read FAddress write SetAddress;`