Difference between revisions of "Unit IPv6"

Revision as of 05:45, 24 March 2017

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

`FFragments:TIP6Buffer;`

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

`FDefaultAddress:TIn6Addr;`
`FLoopbackAddress:TIn6Addr;`
`FBroadcastAddress:TIn6Addr;`
`FNameservers:TIP6Nameservers;`	(Part of TNetworkList)
`FNameserverLock:TMutexHandle;`

`FDefaultHopLimit: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 GetNextIP6Id(AIncrement:Boolean):Word;`

`function GetIP6Nameserver(ACount:LongWord):TIn6Addr;`

`function GetAdapterConfigType(const AName:String):Word;`
`function GetAdapterConfigAddress(const AName:String):TIn6Addr;`
`function GetAdapterConfigNetmask(const AName:String):TIn6Addr;`
`function GetAdapterConfigGateway(const AName:String):TIn6Addr;`
`function GetAdapterConfigServer(const AName:String):TIn6Addr;`
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:TIP6Nameservers read FNameservers;`

`property DefaultHopLimit:LongWord read FDefaultHopLimit write FDefaultHopLimit;`

`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:TIn6Addr):Boolean;`
`function RemoveNameserver(const AAddress:TIn6Addr):Boolean;`

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

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

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

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

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

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

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

IPv6 state

[Expand]

TIP6State = class(TTransportState)

IPv6 options

[Expand]

TIP6Options = class(TTransportOptions)

IPv6 host entry

[Expand]

TIP6HostEntry = class(THostEntry)

IPv6 route entry

[Expand]

TIP6RouteEntry = class(TRouteEntry)

IPv6 address entry

[Expand]

TIP6AddressEntry = class(TAddressEntry)

IPv6 network entry

[Expand]

TIP6NetworkEntry = class(TNetworkEntry)

IPv6 service entry

[Expand]

TIP6ServEntry = class(TServEntry)

IPv6 protocol entry

[Expand]

TIP6ProtoEntry = class(TProtoEntry)

Public variables

None defined

Function declarations

Initialization functions

[Expand]

procedure IP6Init;

Description: To be documented

IPv6 functions

[Expand]

function CheckIP6(ABuffer:Pointer):Boolean;

Description: Verify that the packet is a valid IP6 packet

[Expand]

function GetIP6Protocol(ABuffer:Pointer):Byte;

Description: To be documented

[Expand]

function GetIP6HeaderOffset(ABuffer:Pointer):Word;

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

[Expand]

function GetIP6HeaderLength(ABuffer:Pointer):Word;

Description: Return Size of IP6 Header (Including Options)

[Expand]

function GetIP6DataOffset(ABuffer:Pointer):Word;

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

[Expand]

function GetIP6DataLength(ABuffer:Pointer):Word;

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

[Expand]

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

Description: Validate the IP6 Header and Options Checksum on Receive

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;">'''IP6 constants''' <code> IP6_HEADER_* </code></div>
+<div style="font-size: 14px; padding-left: 12px;">'''IPv6 header''' <code> IP6_HEADER_* </code></div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 {| class="wikitable" style="font-size: 14px; background: white;"
@@ Line 49: / Line 49: @@
 <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;">'''IP6 extension header constants''' <code> IP6_HEADER_* </code></div>
+<div style="font-size: 14px; padding-left: 12px;">'''IPv6 extension header''' <code> IP6_HEADER_* </code></div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 {| class="wikitable" style="font-size: 14px; background: white;"

`MIN_IP6_PACKET = 40;`	Not Counting Adapter Header
`MAX_IP6_PACKET = 1500;`	Not Counting Adapter Header

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

`IP6_HEADER_SIZE = 40;`	SizeOf(TIP6Header); Does Not Allow for Extensions

See: https://en.wikipedia.org/wiki/List_of_IP_protocol_numbers

`IP6_HEADER_HOP = 0;`	Hop-by-hop option header
`IP6_HEADER_TCP = 6;`	Next header is a TCP segment (The payload)
`IP6_HEADER_UDP = 17;`	Next header is a UDP message (The payload)
`IP6_HEADER_IPV6 = 41;`	Next header is a IPv6 packet (IPv6 Encapsulation) (The payload)
`IP6_HEADER_ROUTING = 43;`	Next header is a Routing header
`IP6_HEADER_FRAGMENT = 44;`	Next header is a Fragmentation/reassembly header
`IP6_HEADER_GRE = 47;`	Next header is a GRE header
`IP6_HEADER_ESP = 50;`	Next header is a Encapsulating security payload
`IP6_HEADER_AUTH = 51;`	Next header is a Authentication header
`IP6_HEADER_ICMP = 58;`	Next header is a ICMP for IPv6 message
`IP6_HEADER_NONE = 59;`	There is no next header (Do not process payload)
`IP6_HEADER_DEST = 60;`	Next header is a Destination options header
`IP6_HEADER_SCTP = 132;`	Next header is a SCTP message (The payload)
`IP6_HEADER_MOBILITY = 135;`	Next header is a Mobility header

`IP6_MTU = MAX_IP6_PACKET;`

Note: 40 Bytes
`VersionClassLabel:LongWord;`	Version (4 bits)(Always 6) / Traffic Class (8 bits) / Flow Label (20 bits)
`PayloadLength:Word;`	The size of the payload in octets, including any extension headers (The length is set to zero when a Hop-by-Hop extension header carries a Jumbo Payload option)
`NextHeader:Byte;`	Specifies the type of the next header (When extension headers are present in the packet this field indicates which extension header follows)
`HopLimit:Byte;`	This value is decremented by one at each intermediate node visited by the packet. When the counter reaches 0 the packet is discarded (Replaces the time to live field of IPv4)
`SourceIP:TIn6Addr;`	Source IP
`DestIP:TIn6Addr;`	Destination IP

Note: 2 Bytes (Common Header of all Extension Headers)
`NextHeader:Byte;`	Specifies the type of the next header (If zero discard the packet)
`ExtensionLength:Byte;`

Difference between revisions of "Unit IPv6"

Revision as of 05:45, 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

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

Note: ?? Bytes (Used by Fragment Buffer)
`Offset:LongWord;`	Offset of this Fragment in the Packet
`Size:Word;`	Size of this Fragment
`Prev:PIP6Fragment;`	Pointer to Prev Fragment
`Next:PIP6Fragment;`	Pointer to Next Fragment

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

`Id:LongWord;`	IP6 Id
`Dest:TIn6Addr;`	IP6 Dest
`Source:TIn6Addr;`	IP6 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:PIP6Packet;`	Pointer to Prev Packet
`Next:PIP6Packet;`	Pointer to Next Packet
`First:PIP6Fragment;`	Pointer to First Fragment
`Last:PIP6Fragment;`	Pointer to Last Fragment

Note: Different to Socket Buffer.

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

`function GetFragment(APacket:PIP6Packet; AOffset:LongWord; ASize:Word):PIP6Fragment;`
`function AddFragment(APacket:PIP6Packet; AOffset:LongWord; ASize:Word):PIP6Fragment;`
`function RemoveFragment(APacket:PIP6Packet):Boolean;`
`procedure FlushFragments(APacket:PIP6Packet);`
public
`function GetPacket(AId:LongWord; const ASource,ADest:TIn6Addr; ALock:Boolean):PIP6Packet;`
`function AddPacket(AId:LongWord; const ASource,ADest:TIn6Addr; ALock:Boolean):PIP6Packet;`
`function RemovePacket(APacket:PIP6Packet):Boolean;`
`function UnlockPacket(APacket:PIP6Packet):Boolean;`
`procedure FlushPackets(All:Boolean);`

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

`constructor Create;`
private
`Address:TIn6Addr;`
`Netmask:TIn6Addr;`
`Gateway:TIn6Addr;`
`Network:TIn6Addr;`
`Directed:TIn6Addr;`

`Server:TIn6Addr;`	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:TIn6Addr;`
`ConfigNetmask:TIn6Addr;`
`ConfigGateway:TIn6Addr;`
`ConfigServer:TIn6Addr;`

`constructor Create;`
private
`FLocalAddress:TIn6Addr;`
`FRemoteAddress:TIn6Addr;`

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

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

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

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

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

`constructor Create;`
private
`FNetwork:TIn6Addr;`
`FNetmask:TIn6Addr;`
`FGateway:TIn6Addr;`
`FAddress:TIn6Addr;`

`procedure SetNetwork(const ANetwork:TIn6Addr);`
`procedure SetNetmask(const ANetmask:TIn6Addr);`
`procedure SetGateway(const AGateway:TIn6Addr);`
`procedure SetAddress(const AAddress:TIn6Addr);`
public
`property Network:TIn6Addr read FNetwork write SetNetwork;`
`property Netmask:TIn6Addr read FNetmask write SetNetmask;`
`property Gateway:TIn6Addr read FGateway write SetGateway;`
`property Address:TIn6Addr read FAddress write SetAddress;`

Note: Used for secondary addresses.

`constructor Create;`
private
`FAddress:TIn6Addr;`

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