Difference between revisions of "TICMPProtocol"
From Ultibo.org
(Created page with "Return to Unit ICMP __TOC__ === Description === ---- ''To be documented'' === Class definitions === ---- <div class="toccolours mw-collapsible mw-collapse...") |
(No difference)
|
Revision as of 03:24, 18 May 2018
Return to Unit ICMP
Description
To be documented
Class definitions
TICMPProtocol = class(TNetworkProtocol)
constructor Create(AManager:TProtocolManager; const AName:String);
|
|
destructor Destroy; override;
|
|
private
| |
FNextICMPId:Word;
|
|
FNextICMPLock:TMutexHandle;
|
|
function PacketHandler(AHandle:THandle; ASource,ADest,APacket:Pointer; ASize:Integer; ABroadcast:Boolean):Boolean;
|
|
function ControlHandler(AHandle:THandle; ASource,ADest:Pointer; AProtocol,ACommand,ACode:Word; AAddress,AData:Pointer; ASize:Integer):Boolean;
|
|
function GetNextICMPId(AIncrement:Boolean):Word;
|
|
function SendICMPUnreach(ASocket:TICMPSocket; ASource,ADest:Pointer; ACode:Byte; AData:Pointer; ASize:Integer):Boolean;
|
|
function SendICMPRedirect(ASocket:TICMPSocket; ASource,ADest:Pointer; ACode:Byte; AAddress,AData:Pointer; ASize:Integer):Boolean;
|
|
function SendICMPTimeExceeded(ASocket:TICMPSocket; ASource,ADest:Pointer; ACode:Byte; AData:Pointer; ASize:Integer):Boolean;
|
|
function SendICMPSourceQuench(ASocket:TICMPSocket; ASource,ADest:Pointer; AData:Pointer; ASize:Integer):Boolean;
|
|
function SendICMPParamProblem(ASocket:TICMPSocket; ASource,ADest:Pointer; ACode,APointer:Byte; AData:Pointer; ASize:Integer):Boolean;
|
|
function SendICMPEchoReply(ASocket:TICMPSocket; ASource,ADest,AData:Pointer; ASize:Integer):Boolean;
|
|
function SendICMPInfoReply(ASocket:TICMPSocket; ASource,ADest,AData:Pointer; ASize:Integer):Boolean;
|
|
function SendICMPMaskReply(ASocket:TICMPSocket; ASource,ADest,AData:Pointer; ASize:Integer):Boolean;
|
|
function SendICMPTimestampReply(ASocket:TICMPSocket; ASource,ADest,AData:Pointer; ASize:Integer):Boolean;
|
|
function SendICMPEchoRequest(ASocket:TICMPSocket ;ASource,ADest:Pointer; ASize:Integer):Boolean;
|
|
function SendICMPInfoRequest(ASocket:TICMPSocket; ASource,ADest:Pointer):Boolean;
|
|
function SendICMPMaskRequest(ASocket:TICMPSocket; ASource,ADest:Pointer):Boolean;
|
|
function SendICMPTimestampRequest(ASocket:TICMPSocket; ASource,ADest:Pointer):Boolean;
|
|
function SendICMPRouterAdvert(ASocket:TICMPSocket; ASource,ADest,AAddress:Pointer):Boolean;
|
|
function SendICMPRouterSolicit(ASocket:TICMPSocket; ASource,ADest:Pointer):Boolean;
|
|
protected
| |
function SelectCheck(ASource,ADest:PFDSet; ACode:Integer):Integer; override;
|
|
function SelectWait(ASocket:TProtocolSocket; ACode:Integer; ATimeout:LongWord):Integer; override;
|
|
function SendPacket(ASocket:TProtocolSocket; ASource,ADest:Pointer; ASourcePort,ADestPort:Word; APacket:PPacketFragment; ASize,AFlags:Integer):Integer; override;
|
|
public
| |
function Accept(ASocket:TProtocolSocket; ASockAddr:PSockAddr; AAddrLength:PInteger):TProtocolSocket; override;
|
|
function Bind(ASocket:TProtocolSocket; var ASockAddr:TSockAddr; AAddrLength:Integer):Integer; override;
|
|
function CloseSocket(ASocket:TProtocolSocket):Integer; override;
|
|
function Connect(ASocket:TProtocolSocket; var ASockAddr:TSockAddr; AAddrLength:Integer):Integer; override;
|
|
function IoctlSocket(ASocket:TProtocolSocket; ACmd:DWORD; var AArg:u_long):Integer; override;
|
|
function GetPeerName(ASocket:TProtocolSocket; var ASockAddr:TSockAddr; var AAddrLength:Integer):Integer; override;
|
|
function GetSockName(ASocket:TProtocolSocket; var ASockAddr:TSockAddr; var AAddrLength:Integer):Integer; override;
|
|
function GetSockOpt(ASocket:TProtocolSocket; ALevel,AOptName:Integer; AOptValue:PChar; var AOptLength:Integer):Integer; override;
|
|
function Listen(ASocket:TProtocolSocket; ABacklog:Integer):Integer; override;
|
|
function Recv(ASocket:TProtocolSocket; var ABuffer; ALength,AFlags:Integer):Integer; override;
|
|
function RecvFrom(ASocket:TProtocolSocket; var ABuffer; ALength,AFlags:Integer; var AFromAddr:TSockAddr; var AFromLength:Integer):Integer; override;
|
|
function Select(ANfds:Integer; AReadfds,AWritefds,AExceptfds:PFDSet; ATimeout:PTimeVal):LongInt; override;
|
|
function Send(ASocket:TProtocolSocket; var ABuffer; ALength,AFlags:Integer):Integer; override;
|
|
function SendTo(ASocket:TProtocolSocket; var ABuffer; ALength,AFlags:Integer; var AToAddr:TSockAddr; AToLength:Integer):Integer; override;
|
|
function SetSockOpt(ASocket:TProtocolSocket; ALevel,AOptName:Integer; AOptValue:PChar; AOptLength:Integer):Integer; override;
|
|
function Shutdown(ASocket:TProtocolSocket; AHow:Integer):Integer; override;
|
|
function Socket(AFamily,AStruct,AProtocol:Integer):TProtocolSocket; override;
|
|
function AddTransport(ATransport:TNetworkTransport):Boolean; override;
|
|
function RemoveTransport(ATransport:TNetworkTransport):Boolean; override;
|
|
function FindSocket(AFamily,AStruct,AProtocol:Word; ALocalAddress,ARemoteAddress:Pointer; ALocalPort,ARemotePort:Word; ABroadcast,AListen,ALock:Boolean; AState:LongWord):TProtocolSocket; override;
|
|
procedure FlushSockets(All:Boolean); override;
|
|
function StartProtocol:Boolean; override;
|
|
function StopProtocol:Boolean; override;
|
|
function ProcessProtocol:Boolean; override;
|
|
Function declarations
constructor TICMPProtocol.Create(AManager:TProtocolManager; const AName:String);
Description: To be documented
| Note | None documented |
|---|
destructor TICMPProtocol.Destroy;
Description: To be documented
| Note | None documented |
|---|
function TICMPProtocol.PacketHandler(AHandle:THandle; ASource,ADest,APacket:Pointer; ASize:Integer; ABroadcast:Boolean):Boolean;
Description: Process a packet received by a Transport
| Handle | The Handle of the Protocol Transport the packet was received from |
|---|---|
| Source | The source address of the received packet (Set by Transport) |
| Dest | The destination address of the received packet (Set by Transport) |
| Packet | The received packet (The complete packet including Transport header) |
| Size | The size of the received packet in bytes |
| Broadcast | True if the destination address is a broadcast address |
function TICMPProtocol.ControlHandler(AHandle:THandle; ASource,ADest:Pointer; AProtocol,ACommand,ACode:Word; AAddress,AData:Pointer; ASize:Integer):Boolean;
Description: Process a network control request from a Transport
| Handle | The Handle of the Protocol Transport the control request is from |
|---|---|
| Source | The source address of the control request (Set by Transport) |
| Dest | The destination address of the control request (Set by Transport) |
| Protocol | The control protocol requested |
| Command | The control command to send |
| Code | The control code to send |
| Address | The control address to send |
| Data | The control data to send |
| Size | The size of the control data in bytes |
function TICMPProtocol.GetNextICMPId(AIncrement:Boolean):Word;
Description: Get the next ICMP packet id number
| Increment | If True increment the next id |
|---|
function TICMPProtocol.SendICMPUnreach(ASocket:TICMPSocket; ASource,ADest:Pointer; ACode:Byte; AData:Pointer; ASize:Integer):Boolean;
Description: Send an ICMP unreachable message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Code | The unreachable message code |
| Data | The data to send for the message (The original packet including Transport Header) |
| Size | The size of the data in bytes |
| Note | Caller must ensure Source and Dest are not Broadcast}
{Note: Caller must hold the Socket lock |
function TICMPProtocol.SendICMPRedirect(ASocket:TICMPSocket; ASource,ADest:Pointer; ACode:Byte; AAddress,AData:Pointer; ASize:Integer):Boolean;
Description: Send an ICMP redirect message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Code | The redirect message code |
| Address | The address to send for the message |
| Data | The data to send for the message (The original packet including Transport Header) |
| Size | The size of the data in bytes |
| Note | Caller must ensure Source and Dest are not Broadcast
Caller must hold the Socket lock |
function TICMPProtocol.SendICMPTimeExceeded(ASocket:TICMPSocket; ASource,ADest:Pointer; ACode:Byte; AData:Pointer; ASize:Integer):Boolean;
Description: Send an ICMP time exceeded message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Code | The time exceeded message code |
| Data | The data to send for the message (The original packet including Transport Header) |
| Size | The size of the data in bytes |
| Note | Caller must ensure Source and Dest are not Broadcast
Caller must hold the Socket lock |
function TICMPProtocol.SendICMPSourceQuench(ASocket:TICMPSocket; ASource,ADest:Pointer; AData:Pointer; ASize:Integer):Boolean;
Description: Send an ICMP source quench message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Data | The data to send for the message (The original packet including Transport Header) |
| Size | The size of the data in bytes |
| Note | Caller must ensure Source and Dest are not Broadcast
Caller must hold the Socket lock |
function TICMPProtocol.SendICMPParamProblem(ASocket:TICMPSocket; ASource,ADest:Pointer; ACode,APointer:Byte; AData:Pointer; ASize:Integer):Boolean;
Description: Send an ICMP param problem message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Code | The param problem message code |
| Data | The data to send for the message (The original packet including Transport Header) |
| Size | The size of the data in bytes |
| Note | Caller must ensure Source and Dest are not Broadcast
Caller must hold the Socket lock |
function TICMPProtocol.SendICMPEchoReply(ASocket:TICMPSocket; ASource,ADest,AData:Pointer; ASize:Integer):Boolean;
Description: Send an ICMP echo reply message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Data | The data to send for the message (The ICMP packet without Transport Header) |
| Size | The size of the data in bytes |
| Note | Caller must ensure Source and Dest are not Broadcast
Caller must hold the Socket lock |
function TICMPProtocol.SendICMPInfoReply(ASocket:TICMPSocket; ASource,ADest,AData:Pointer; ASize:Integer):Boolean;
Description: Send an ICMP info reply message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Data | The data to send for the message (The ICMP packet without Transport Header) |
| Size | The size of the data in bytes |
| Note | Source and Dest may be Default and Source may be Broadcast
Caller must hold the Socket lock |
function TICMPProtocol.SendICMPMaskReply(ASocket:TICMPSocket; ASource,ADest,AData:Pointer; ASize:Integer):Boolean;
Description: Send an ICMP mask reply message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Data | The data to send for the message (The ICMP packet without Transport Header) |
| Size | The size of the data in bytes |
| Note | Source will usually be Broadcast, Dest should be valid.
Caller must hold the Socket lock |
function TICMPProtocol.SendICMPTimestampReply(ASocket:TICMPSocket; ASource,ADest,AData:Pointer; ASize:Integer):Boolean;
Description: Send an ICMP timestamp reply message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Data | The data to send for the message (The ICMP packet without Transport Header) |
| Size | The size of the data in bytes |
| Note | Source will usually be Broadcast, Dest should be valid.
Caller must hold the Socket lock |
function TICMPProtocol.SendICMPEchoRequest(ASocket:TICMPSocket; ASource,ADest:Pointer; ASize:Integer):Boolean;
Description: Send an ICMP echo request message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Size | The Size of the Data to Send not including the ICMP Header |
| Note | It is assumed Source and Dest are not Broadcast / Default
Caller must hold the Socket lock |
function TICMPProtocol.SendICMPInfoRequest(ASocket:TICMPSocket; ASource,ADest:Pointer):Boolean;
Description: Send an ICMP info request message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Note | It is assumed Source and Dest are not Broadcast / Default
Caller must hold the Socket lock |
function TICMPProtocol.SendICMPMaskRequest(ASocket:TICMPSocket; ASource,ADest:Pointer):Boolean;
Description: Send an ICMP mask request message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Note | It is assumed Source and Dest are not Broadcast / Default
Caller must hold the Socket lock |
function TICMPProtocol.SendICMPTimestampRequest(ASocket:TICMPSocket; ASource,ADest:Pointer):Boolean;
Description: Send an ICMP timestamp request message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Note | It is assumed Source and Dest are not Broadcast / Default
Caller must hold the Socket lock |
function TICMPProtocol.SendICMPRouterAdvert(ASocket:TICMPSocket; ASource,ADest,AAddress:Pointer):Boolean;
Description: Send an ICMP router advert message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Address | The address to send for the message |
| Note | Source will usually be Default and Dest will usually be Broadcast
Caller must hold the Socket lock |
function TICMPProtocol.SendICMPRouterSolicit(ASocket:TICMPSocket; ASource,ADest:Pointer):Boolean;
Description: Send an ICMP router solicit message
| Socket | The socket to use for sending the message |
|---|---|
| Source | The source address to use for the message |
| Dest | The destination address to use for the message |
| Note | Source will usually be Default and Dest will usually be Broadcast
Caller must hold the Socket lock |
function TICMPProtocol.SelectCheck(ASource,ADest:PFDSet; ACode:Integer):Integer;
Description: To be documented
| Source | Source is the working set to check |
|---|---|
| Dest | Dest is the set passed to Select |
function TICMPProtocol.SelectWait(ASocket:TProtocolSocket; ACode:Integer; ATimeout:LongWord):Integer;
Description: To be documented
| Socket | Socket is the single socket to check |
|---|---|
| Code | Code is the type of check |
| Timeout | Timeout is how long to wait |
function TICMPProtocol.SendPacket(ASocket:TProtocolSocket; ASource,ADest:Pointer; ASourcePort,ADestPort:Word; APacket:PPacketFragment; ASize,AFlags:Integer):Integer;
Description: Send a Packet by adding the Protocol Header and other details to the Data
| Socket | The socket to use for sending the packet |
|---|---|
| Source | The source address of the packet (Host Order) |
| Dest | The destination address of the packet (Host Order) |
| SourcePort | The source port of the packet (Host Order) |
| DestPort | The destination port of the packet (Host Order) |
| Packet | The packet data to send |
| Size | The size of the packet data in bytes |
| Flags | Any protocol specific flags for sending |
| Note | For ICMP the Data is the Header so the packet is not changed
Caller must hold the Socket lock |
function TICMPProtocol.Accept(ASocket:TProtocolSocket; ASockAddr:PSockAddr; AAddrLength:PInteger):TProtocolSocket;
Description: BSD compatible Accept
| Socket | The socket to accept from |
|---|---|
| SockAddr | The socket address (Network Order) |
| AddrLength | The socket address length |
| Note | Caller must hold the Socket lock |
function TICMPProtocol.Bind(ASocket:TProtocolSocket; var ASockAddr:TSockAddr; AAddrLength:Integer):Integer;
Description: BSD compatible Bind
| Socket | The socket to bind |
|---|---|
| SockAddr | The socket address (Network Order) |
| AddrLength | The socket address length |
| Note | Sets the LocalAddress for future Sends and Receives, Address can be specified as INADDR_ANY which allows Listening or auto assignment.
Caller must hold the Socket lock |
function TICMPProtocol.CloseSocket(ASocket:TProtocolSocket):Integer;
Description: BSD compatible Close Socket
| Socket | The socket to close |
|---|---|
| Note | Closes and removes the socket, does not perform Linger.
Caller must hold the Socket lock |
function TICMPProtocol.Connect(ASocket:TProtocolSocket; var ASockAddr:TSockAddr; AAddrLength:Integer):Integer;
Description: BSD compatible Connect
| Socket | The socket to connect |
|---|---|
| SockAddr | The socket address (Network Order) |
| AddrLength | The socket address length |
| Note | Sets the RemoteAddress of future Sends and Receives, if Bind has not been called then the LocalAddress will be set appropriately as well based on the route to the RemoteAddress.
Caller must hold the Socket lock |
function TICMPProtocol.IoctlSocket(ASocket:TProtocolSocket; ACmd:DWORD; var AArg:u_long):Integer;
Description: BSD compatible IO Control Socket
| Socket | The socket to control |
|---|---|
| Cmd | The socket command |
| Arg | The command argument |
| Note | Caller must hold the Socket lock |
function TICMPProtocol.GetPeerName(ASocket:TProtocolSocket; var ASockAddr:TSockAddr; var AAddrLength:Integer):Integer;
Description: BSD compatible Get Peer Name (Remote)
| Socket | The socket to get from |
|---|---|
| SockAddr | The socket address (Network Order) |
| AddrLength | The socket address length |
| Note | Caller must hold the Socket lock |
| Socket | The socket to get from |
|---|---|
| SockAddr | The socket address (Network Order) |
| AddrLength | The socket address length |
| Note | Caller must hold the Socket lock |
function TICMPProtocol.GetSockOpt(ASocket:TProtocolSocket; ALevel,AOptName:Integer; AOptValue:PChar; var AOptLength:Integer):Integer;
Description: BSD compatible Get Socket Option
| Socket | The socket to get the option from |
|---|---|
| Level | The protocol level for the option |
| OptName | The name of the option to get |
| OptValue | The value of the option |
| OptLength | The length of the option |
| Note | Caller must hold the Socket lock |
function TICMPProtocol.Listen(ASocket:TProtocolSocket; ABacklog:Integer):Integer;
Description: BSD compatible Listen
| Socket | The socket to listen on |
|---|---|
| Backlog | Queue depth for accepted connections |
| Note | Caller must hold the Socket lock |
function TICMPProtocol.Recv(ASocket:TProtocolSocket; var ABuffer; ALength,AFlags:Integer):Integer;
Description: BSD compatible Receive
| Socket | The socket to receive from |
|---|---|
| Buffer | Buffer for received data |
| Length | Length of buffer in bytes |
| Flags | Protocol specific receive flags |
| Note | Caller must hold the Socket lock |
function TICMPProtocol.RecvFrom(ASocket:TProtocolSocket; var ABuffer; ALength,AFlags:Integer; var AFromAddr:TSockAddr; var AFromLength:Integer):Integer;
Description: BSD compatible Receive From
| Socket | The socket to receive from |
|---|---|
| Buffer | Buffer for received data |
| Length | Length of buffer in bytes |
| Flags | Protocol specific receive flags |
| FromAddr | The address the data was received from (Network Order) |
| FromLength | The length of the address |
| Note | Caller must hold the Socket lock |
function TICMPProtocol.Send(ASocket:TProtocolSocket; var ABuffer; ALength,AFlags:Integer):Integer;
Description: BSD compatible Send
| Socket | The socket to send to |
|---|---|
| Buffer | Buffer for data to send |
| Length | Length of buffer in bytes |
| Flags | Protocol specific send flags |
| Note | Caller must hold the Socket lock |
function TICMPProtocol.SendTo(ASocket:TProtocolSocket; var ABuffer; ALength,AFlags:Integer; var AToAddr:TSockAddr; AToLength:Integer):Integer;
Description: BSD compatible Send To
| Socket | The socket to send to |
|---|---|
| Buffer | Buffer for data to send |
| Length | Length of buffer in bytes |
| Flags | Protocol specific send flags |
| ToAddr | The socket address to send to (Network Order) |
| ToLength | The length of the socket address |
| Note | Caller must hold the Socket lock |
function TICMPProtocol.SetSockOpt(ASocket:TProtocolSocket; ALevel,AOptName:Integer; AOptValue:PChar; AOptLength:Integer):Integer;
Description: BSD compatible Set Socket Option
| Socket | The socket to set the option for |
|---|---|
| Level | The protocol level for the option |
| OptName | The name of the option to set |
| OptValue | The value of the option |
| OptLength | The length of the option |
| Note | Caller must hold the Socket lock |
function TICMPProtocol.Shutdown(ASocket:TProtocolSocket; AHow:Integer):Integer;
Description: BSD compatible Shutdown
| Socket | The socket to shutdown |
|---|---|
| How | The direction to shutdown the socket |
| Note | Shutdown does not result in CloseSocket so Closed must not get set
Caller must hold the Socket lock |
function TICMPProtocol.Socket(AFamily,AStruct,AProtocol:Integer):TProtocolSocket;
Description: BSD compatible Socket (Create a new socket)
| Family | Socket address family (eg AF_INET) |
|---|---|
| Struct | Socket type (eg SOCK_DGRAM) |
| Protocol | Socket protocol (eg IPPROTO_UDP) |
function TICMPProtocol.AddTransport(ATransport:TNetworkTransport):Boolean;
Description: Add a transport to this protocol
| Transport | The transport to add |
|---|
function TICMPProtocol.RemoveTransport(ATransport:TNetworkTransport):Boolean;
Description: Remove a transport from this protocol
| Transport | The transport to remove |
|---|
function TICMPProtocol.FindSocket(AFamily,AStruct,AProtocol:Word; ALocalAddress,ARemoteAddress:Pointer; ALocalPort,ARemotePort:Word; ABroadcast,AListen,ALock:Boolean; AState:LongWord):TProtocolSocket;
Description: Find a protocol socket based on all relevant parameters
| Family | Socket address family (eg AF_INET) |
|---|---|
| Struct | Socket type (eg SOCK_DGRAM) |
| Protocol | Socket protocol (eg IPPROTO_UDP) |
| LocalAddress | Local transport address to match (Host Order) |
| RemoteAddress | Remote transport address to match (Host Order) |
| LocalPort | Local port to match (Host Order) |
| RemotePort | Remote port to match (Host Order) |
| Broadcast | If True then match broadcast addresses |
| Listen | If True then match only listening sockets |
| Lock | If True then lock the found entry before returning |
procedure TICMPProtocol.FlushSockets(All:Boolean);
Description: Flush sockets from the socket cache
| All | If True flush all sockets, otherwise flush expired sockets. |
|---|
function TICMPProtocol.StartProtocol:Boolean;
Description: Start this protocol ready for sending and receiving
| Note | None documented |
|---|
function TICMPProtocol.StopProtocol:Boolean;
Description: Stop this protocol ready for removal
| Note | None documented |
|---|
function TICMPProtocol.ProcessProtocol:Boolean;
Description: Process periodic tasks for this protocol
| Note | None documented |
|---|
Return to Unit Reference
