963 lines
35 KiB
ObjectPascal
963 lines
35 KiB
ObjectPascal
{*******************************************************}
|
|
{ MiTeC Common Routines }
|
|
{ Windows Sockets 2 API }
|
|
{ }
|
|
{ Copyright (c) 2015-2018 Michal Mutl }
|
|
{ }
|
|
{*******************************************************}
|
|
|
|
{$INCLUDE Compilers.Inc}
|
|
|
|
unit MiTeC_Ws2_32;
|
|
|
|
interface
|
|
|
|
uses {$IFDEF RAD9PLUS}
|
|
WinAPI.Windows, System.SysUtils, WinAPI.WinSock,
|
|
{$ELSE}
|
|
Windows, SysUtils, Winsock,
|
|
{$ENDIF}
|
|
MiTeC_Windows;
|
|
|
|
type
|
|
WSAEVENT = THandle;
|
|
{$EXTERNALSYM WSAEVENT}
|
|
LPWSAEVENT = PHandle;
|
|
{$EXTERNALSYM LPWSAEVENT}
|
|
WSAOVERLAPPED = OVERLAPPED;
|
|
{$EXTERNALSYM WSAOVERLAPPED}
|
|
LPWSAOVERLAPPED = ^OVERLAPPED;
|
|
{$EXTERNALSYM LPWSAOVERLAPPED}
|
|
TWsaEvent = WSAEVENT;
|
|
PWsaEvent = LPWSAEVENT;
|
|
TWsaOverlapped = WSAOVERLAPPED;
|
|
PWsaOverlapped = LPWSAOVERLAPPED;
|
|
|
|
_WSABUF = record
|
|
len: u_long; // the length of the buffer
|
|
buf: PAnsiChar; // the pointer to the buffer
|
|
end;
|
|
{$EXTERNALSYM _WSABUF}
|
|
WSABUF = _WSABUF;
|
|
{$EXTERNALSYM WSABUF}
|
|
LPWSABUF = ^_WSABUF;
|
|
{$EXTERNALSYM LPWSABUF}
|
|
TWsaBuf = WSABUF;
|
|
PWsaBuf = LPWSABUF;
|
|
|
|
LPWSAOVERLAPPED_COMPLETION_ROUTINE = procedure(dwError, cbTransferred: DWORD; lpOverlapped: LPWSAOVERLAPPED; dwFlags: DWORD); stdcall;
|
|
{$EXTERNALSYM LPWSAOVERLAPPED_COMPLETION_ROUTINE}
|
|
|
|
const
|
|
AF_INET6 = 23; // Internetwork Version 6
|
|
NI_MAXHOST = 1025; // Max size of a fully-qualified domain name
|
|
|
|
INET_ADDRSTRLEN = 16; // Max size of numeric form of IPv4 address
|
|
INET6_ADDRSTRLEN = 46; // Max size of numeric form of IPv6 address
|
|
|
|
NI_NOFQDN = $1 ; // Only return nodename portion for local hosts.
|
|
NI_NUMERICHOST = $2 ; // Return numeric form of the host's address.
|
|
NI_NAMEREQD = $4 ; // Error if the host's name not in DNS.
|
|
NI_NUMERICSERV = $8 ; // Return numeric form of the service (port #).
|
|
NI_DGRAM = $10 ; // Service is a datagram service.
|
|
|
|
_SS_MAXSIZE = 128; // Maximum size.
|
|
_SS_ALIGNSIZE = SizeOf(Int64); // Desired alignment.
|
|
_SS_PAD1SIZE = _SS_ALIGNSIZE - SizeOf(short);
|
|
_SS_PAD2SIZE = _SS_MAXSIZE - (SizeOf(short) + _SS_PAD1SIZE + _SS_ALIGNSIZE);
|
|
|
|
AI_PASSIVE = $00000001; // Socket address will be used in bind() call
|
|
AI_CANONNAME = $00000002; // Return canonical name in first ai_canonname
|
|
AI_NUMERICHOST = $00000004; // Nodename must be a numeric address string
|
|
AI_NUMERICSERV = $00000008; // Servicename must be a numeric port number
|
|
AI_ALL = $00000100; // Query both IP6 and IP4 with AI_V4MAPPED
|
|
AI_ADDRCONFIG = $00000400; // Resolution only if global address configured
|
|
AI_V4MAPPED = $00000800; // On v6 failure, query v4 and convert to V4MAPPED format (Vista or later)
|
|
AI_NON_AUTHORITATIVE = $00004000; // LUP_NON_AUTHORITATIVE (Vista or later)
|
|
AI_SECURE = $00008000; // LUP_SECURE (Vista or later and applies only to NS_EMAIL namespace.)
|
|
AI_RETURN_PREFERRED_NAMES = $00010000; // LUP_RETURN_PREFERRED_NAMES (Vista or later and applies only to NS_EMAIL namespace.)
|
|
AI_FQDN = $00020000; // Return the FQDN in ai_canonname (Windows 7 or later)
|
|
AI_FILESERVER = $00040000; // Resolving fileserver name resolution (Windows 7 or later)
|
|
AI_DISABLE_IDN_ENCODING = $00080000; // Disable Internationalized Domain Names handling
|
|
|
|
|
|
type
|
|
TIPv6Byte = array [0..15] of Byte;
|
|
|
|
{$if not defined(RAD5PLUS) and not defined(FPC)}
|
|
ULONG_PTR = LongWord;
|
|
{$ifend}
|
|
SIZE_T = ULONG_PTR;
|
|
|
|
in6_addr = record
|
|
case Integer of
|
|
0: (Byte: TIPv6Byte);
|
|
1: (Word: array[0..7] of u_short);
|
|
2: (s6_bytes: array [0..15] of u_char);
|
|
3: (s6_addr: array [0..15] of u_char);
|
|
4: (s6_words: array[0..7] of u_short);
|
|
end;
|
|
TIn6Addr = in6_addr;
|
|
PIn6Addr = ^in6_addr;
|
|
|
|
ipv6_mreq = record
|
|
ipv6mr_multiaddr: in6_addr; // IPv6 multicast address
|
|
ipv6mr_interface: Cardinal; // Interface index
|
|
end;
|
|
TIpV6MReq = ipv6_mreq;
|
|
PIpV6MReq = ^ipv6_mreq;
|
|
|
|
type
|
|
in_addr6 = record
|
|
s6_addr: array [0..15] of u_char; // IPv6 address
|
|
end;
|
|
TInAddr6 = in_addr6;
|
|
PInAddr6 = ^in_addr6;
|
|
|
|
// Old IPv6 socket address structure (retained for sockaddr_gen definition below)
|
|
|
|
type
|
|
sockaddr_in6_old = record
|
|
sin6_family: short; // AF_INET6
|
|
sin6_port: u_short; // Transport level port number
|
|
sin6_flowinfo: u_long; // IPv6 flow information
|
|
sin6_addr: in6_addr; // IPv6 address
|
|
end;
|
|
TSockAddrIn6Old = sockaddr_in6_old;
|
|
PSockAddrIn6Old = ^sockaddr_in6_old;
|
|
|
|
// IPv6 socket address structure, RFC 2553
|
|
|
|
SOCKADDR_IN6 = record
|
|
sin6_family: short; // AF_INET6
|
|
sin6_port: u_short; // Transport level port number
|
|
sin6_flowinfo: u_long; // IPv6 flow information
|
|
sin6_addr: in6_addr; // IPv6 address
|
|
sin6_scope_id: u_long; // set of interfaces for a scope
|
|
end;
|
|
PSOCKADDR_IN6 = ^SOCKADDR_IN6;
|
|
LPSOCKADDR_IN6 = ^SOCKADDR_IN6;
|
|
TSockAddrIn6 = SOCKADDR_IN6;
|
|
PSockAddrIn6 = LPSOCKADDR_IN6;
|
|
|
|
LPADDRINFO = ^addrinfo;
|
|
addrinfo = record
|
|
ai_flags: Integer; // AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST
|
|
ai_family: Integer; // PF_xxx
|
|
ai_socktype: Integer; // SOCK_xxx
|
|
ai_protocol: Integer; // 0 or IPPROTO_xxx for IPv4 and IPv6
|
|
ai_addrlen: size_t; // Length of ai_addr
|
|
ai_canonname: PChar; // Canonical name for nodename
|
|
ai_addr: PSockAddr; // Binary address
|
|
ai_next: LPADDRINFO; // Next structure in linked list
|
|
end;
|
|
TAddrInfo = addrinfo;
|
|
PAddrInfo = LPADDRINFO;
|
|
|
|
LPSOCKADDR = ^sockaddr_in;
|
|
|
|
sockaddr_storage = record
|
|
ss_family: short; // Address family.
|
|
__ss_pad1: array [0.._SS_PAD1SIZE - 1] of AnsiChar; // 6 byte pad, this is to make
|
|
// implementation specific pad up to
|
|
// alignment field that follows explicit
|
|
// in the data structure.
|
|
__ss_align: Int64; // Field to force desired structure.
|
|
__ss_pad2: array [0.._SS_PAD2SIZE - 1] of AnsiChar; // 112 byte pad to achieve desired size;
|
|
// _SS_MAXSIZE value minus size of
|
|
// ss_family, __ss_pad1, and
|
|
// __ss_align fields is 112.
|
|
end;
|
|
TSockAddrStorage = sockaddr_storage;
|
|
PSockAddrStorage = ^sockaddr_storage;
|
|
|
|
PSOCKADDR_STORAGE = ^sockaddr_storage;
|
|
LPSOCKADDR_STORAGE = ^sockaddr_storage;
|
|
|
|
LPSOCKET_ADDRESS = ^SOCKET_ADDRESS;
|
|
PSOCKET_ADDRESS = ^SOCKET_ADDRESS;
|
|
_SOCKET_ADDRESS = record
|
|
lpSockaddr: LPSOCKADDR_STORAGE;//LPSOCKADDR;
|
|
iSockaddrLength: Integer;
|
|
end;
|
|
SOCKET_ADDRESS = _SOCKET_ADDRESS;
|
|
TSocketAddress = SOCKET_ADDRESS;
|
|
PSocketAddress = PSOCKET_ADDRESS;
|
|
|
|
const
|
|
FD_MAX_EVENTS = 10;
|
|
FD_ALL_EVENTS = (1 shl FD_MAX_EVENTS) - 1;
|
|
|
|
type
|
|
_WSANETWORKEVENTS = record
|
|
lNetworkEvents: Longint;
|
|
iErrorCode: array [0..FD_MAX_EVENTS - 1] of Integer;
|
|
end;
|
|
WSANETWORKEVENTS = _WSANETWORKEVENTS;
|
|
LPWSANETWORKEVENTS = ^WSANETWORKEVENTS;
|
|
TWsaNetworkEvents = WSANETWORKEVENTS;
|
|
PWsaNetworkEvents = LPWSANETWORKEVENTS;
|
|
|
|
const
|
|
MAX_PROTOCOL_CHAIN = 7;
|
|
BASE_PROTOCOL = 1;
|
|
LAYERED_PROTOCOL = 0;
|
|
|
|
type
|
|
_WSAPROTOCOLCHAIN = record
|
|
ChainLen: Integer; // the length of the chain,
|
|
// length = 0 means layered protocol,
|
|
// length = 1 means base protocol,
|
|
// length > 1 means protocol chain
|
|
ChainEntries: array [0..MAX_PROTOCOL_CHAIN - 1] of DWORD; // a list of dwCatalogEntryIds
|
|
end;
|
|
WSAPROTOCOLCHAIN = _WSAPROTOCOLCHAIN;
|
|
LPWSAPROTOCOLCHAIN = ^WSAPROTOCOLCHAIN;
|
|
TWsaProtocolChain = WSAPROTOCOLCHAIN;
|
|
PWsaProtocolChain = LPWSAPROTOCOLCHAIN;
|
|
|
|
const
|
|
WSAPROTOCOL_LEN = 255;
|
|
|
|
type
|
|
_WSAPROTOCOL_INFOA = record
|
|
dwServiceFlags1: DWORD;
|
|
dwServiceFlags2: DWORD;
|
|
dwServiceFlags3: DWORD;
|
|
dwServiceFlags4: DWORD;
|
|
dwProviderFlags: DWORD;
|
|
ProviderId: TGUID;
|
|
dwCatalogEntryId: DWORD;
|
|
ProtocolChain: WSAPROTOCOLCHAIN;
|
|
iVersion: Integer;
|
|
iAddressFamily: Integer;
|
|
iMaxSockAddr: Integer;
|
|
iMinSockAddr: Integer;
|
|
iSocketType: Integer;
|
|
iProtocol: Integer;
|
|
iProtocolMaxOffset: Integer;
|
|
iNetworkByteOrder: Integer;
|
|
iSecurityScheme: Integer;
|
|
dwMessageSize: DWORD;
|
|
dwProviderReserved: DWORD;
|
|
szProtocol: array [0..WSAPROTOCOL_LEN] of AnsiChar;
|
|
end;
|
|
WSAPROTOCOL_INFOA = _WSAPROTOCOL_INFOA;
|
|
LPWSAPROTOCOL_INFOA = ^WSAPROTOCOL_INFOA;
|
|
TWsaProtocolInfoA = WSAPROTOCOL_INFOA;
|
|
PWsaProtocolInfoA = LPWSAPROTOCOL_INFOA;
|
|
|
|
_WSAPROTOCOL_INFOW = record
|
|
dwServiceFlags1: DWORD;
|
|
dwServiceFlags2: DWORD;
|
|
dwServiceFlags3: DWORD;
|
|
dwServiceFlags4: DWORD;
|
|
dwProviderFlags: DWORD;
|
|
ProviderId: TGUID;
|
|
dwCatalogEntryId: DWORD;
|
|
ProtocolChain: WSAPROTOCOLCHAIN;
|
|
iVersion: Integer;
|
|
iAddressFamily: Integer;
|
|
iMaxSockAddr: Integer;
|
|
iMinSockAddr: Integer;
|
|
iSocketType: Integer;
|
|
iProtocol: Integer;
|
|
iProtocolMaxOffset: Integer;
|
|
iNetworkByteOrder: Integer;
|
|
iSecurityScheme: Integer;
|
|
dwMessageSize: DWORD;
|
|
dwProviderReserved: DWORD;
|
|
szProtocol: array [0..WSAPROTOCOL_LEN] of WideChar;
|
|
end;
|
|
WSAPROTOCOL_INFOW = _WSAPROTOCOL_INFOW;
|
|
LPWSAPROTOCOL_INFOW = ^WSAPROTOCOL_INFOW;
|
|
TWsaProtocolInfoW = WSAPROTOCOL_INFOW;
|
|
PWsaProtocolInfoW = LPWSAPROTOCOL_INFOW;
|
|
|
|
{$IFDEF UNICODE}
|
|
WSAPROTOCOL_INFO = WSAPROTOCOL_INFOW;
|
|
LPWSAPROTOCOL_INFO = LPWSAPROTOCOL_INFOW;
|
|
TWsaProtocolInfo = TWsaProtocolInfoW;
|
|
PWsaProtocolInfo = PWsaProtocolInfoW;
|
|
{$ELSE}
|
|
WSAPROTOCOL_INFO = WSAPROTOCOL_INFOA;
|
|
LPWSAPROTOCOL_INFO = LPWSAPROTOCOL_INFOA;
|
|
TWsaProtocolInfo = TWsaProtocolInfoA;
|
|
PWsaProtocolInfo = PWsaProtocolInfoA;
|
|
{$ENDIF UNICODE}
|
|
|
|
// Winsock2 ATM API
|
|
|
|
const
|
|
ATMPROTO_AALUSER = $00; (* User-defined AAL *)
|
|
{$EXTERNALSYM ATMPROTO_AALUSER}
|
|
ATMPROTO_AAL1 = $01; (* AAL 1 *)
|
|
{$EXTERNALSYM ATMPROTO_AAL1}
|
|
ATMPROTO_AAL2 = $02; (* AAL 2 *)
|
|
{$EXTERNALSYM ATMPROTO_AAL2}
|
|
ATMPROTO_AAL34 = $03; (* AAL 3/4 *)
|
|
{$EXTERNALSYM ATMPROTO_AAL34}
|
|
ATMPROTO_AAL5 = $05; (* AAL 5 *)
|
|
{$EXTERNALSYM ATMPROTO_AAL5}
|
|
|
|
SAP_FIELD_ABSENT = DWORD($FFFFFFFE);
|
|
{$EXTERNALSYM SAP_FIELD_ABSENT}
|
|
SAP_FIELD_ANY = DWORD($FFFFFFFF);
|
|
{$EXTERNALSYM SAP_FIELD_ANY}
|
|
SAP_FIELD_ANY_AESA_SEL = DWORD($FFFFFFFA);
|
|
{$EXTERNALSYM SAP_FIELD_ANY_AESA_SEL}
|
|
SAP_FIELD_ANY_AESA_REST = DWORD($FFFFFFFB);
|
|
{$EXTERNALSYM SAP_FIELD_ANY_AESA_REST}
|
|
|
|
ATM_E164 = $01 (* E.164 addressing scheme *);
|
|
{$EXTERNALSYM ATM_E164}
|
|
ATM_NSAP = $02 (* NSAP-style ATM Endsystem Address scheme *);
|
|
{$EXTERNALSYM ATM_NSAP}
|
|
ATM_AESA = $02 (* NSAP-style ATM Endsystem Address scheme *);
|
|
{$EXTERNALSYM ATM_AESA}
|
|
|
|
ATM_ADDR_SIZE = 20;
|
|
{$EXTERNALSYM ATM_ADDR_SIZE}
|
|
|
|
type
|
|
ATM_ADDRESS = record
|
|
AddressType: DWORD; (* E.164 or NSAP-style ATM Endsystem Address *)
|
|
NumofDigits: DWORD; (* number of digits; *)
|
|
Addr: array [0..ATM_ADDR_SIZE - 1] of UCHAR; (* IA5 digits for E164, BCD encoding for NSAP *)
|
|
(* format as defined in the ATM Forum UNI 3.1 *)
|
|
end;
|
|
{$EXTERNALSYM ATM_ADDRESS}
|
|
TAtmAddress = ATM_ADDRESS;
|
|
PAtmAddress = ^ATM_ADDRESS;
|
|
|
|
const
|
|
BLLI_L2_ISO_1745 = $01; (* Basic mode ISO 1745 *)
|
|
{$EXTERNALSYM BLLI_L2_ISO_1745}
|
|
BLLI_L2_Q921 = $02; (* CCITT Rec. Q.921 *)
|
|
{$EXTERNALSYM BLLI_L2_Q921}
|
|
BLLI_L2_X25L = $06; (* CCITT Rec. X.25, link layer *)
|
|
{$EXTERNALSYM BLLI_L2_X25L}
|
|
BLLI_L2_X25M = $07; (* CCITT Rec. X.25, multilink *)
|
|
{$EXTERNALSYM BLLI_L2_X25M}
|
|
BLLI_L2_ELAPB = $08; (* Extended LAPB; for half duplex operation *)
|
|
{$EXTERNALSYM BLLI_L2_ELAPB}
|
|
BLLI_L2_HDLC_ARM = $09; (* HDLC ARM (ISO 4335) *)
|
|
{$EXTERNALSYM BLLI_L2_HDLC_ARM}
|
|
BLLI_L2_HDLC_NRM = $0A; (* HDLC NRM (ISO 4335) *)
|
|
{$EXTERNALSYM BLLI_L2_HDLC_NRM}
|
|
BLLI_L2_HDLC_ABM = $0B; (* HDLC ABM (ISO 4335) *)
|
|
{$EXTERNALSYM BLLI_L2_HDLC_ABM}
|
|
BLLI_L2_LLC = $0C; (* LAN logical link control (ISO 8802/2) *)
|
|
{$EXTERNALSYM BLLI_L2_LLC}
|
|
BLLI_L2_X75 = $0D; (* CCITT Rec. X.75, single link procedure *)
|
|
{$EXTERNALSYM BLLI_L2_X75}
|
|
BLLI_L2_Q922 = $0E; (* CCITT Rec. Q.922 *)
|
|
{$EXTERNALSYM BLLI_L2_Q922}
|
|
BLLI_L2_USER_SPECIFIED = $10; (* User Specified *)
|
|
{$EXTERNALSYM BLLI_L2_USER_SPECIFIED}
|
|
BLLI_L2_ISO_7776 = $11; (* ISO 7776 DTE-DTE operation *)
|
|
{$EXTERNALSYM BLLI_L2_ISO_7776}
|
|
|
|
BLLI_L3_X25 = $06; (* CCITT Rec. X.25, packet layer *)
|
|
{$EXTERNALSYM BLLI_L3_X25}
|
|
BLLI_L3_ISO_8208 = $07; (* ISO/IEC 8208 (X.25 packet layer for DTE *)
|
|
{$EXTERNALSYM BLLI_L3_ISO_8208}
|
|
BLLI_L3_X223 = $08; (* X.223/ISO 8878 *)
|
|
{$EXTERNALSYM BLLI_L3_X223}
|
|
BLLI_L3_SIO_8473 = $09; (* ISO/IEC 8473 (OSI connectionless) *)
|
|
{$EXTERNALSYM BLLI_L3_SIO_8473}
|
|
BLLI_L3_T70 = $0A; (* CCITT Rec. T.70 min. network layer *)
|
|
{$EXTERNALSYM BLLI_L3_T70}
|
|
BLLI_L3_ISO_TR9577 = $0B; (* ISO/IEC TR 9577 Network Layer Protocol ID*)
|
|
{$EXTERNALSYM BLLI_L3_ISO_TR9577}
|
|
BLLI_L3_USER_SPECIFIED = $10; (* User Specified *)
|
|
{$EXTERNALSYM BLLI_L3_USER_SPECIFIED}
|
|
|
|
BLLI_L3_IPI_SNAP = $80; (* IEEE 802.1 SNAP identifier *)
|
|
{$EXTERNALSYM BLLI_L3_IPI_SNAP}
|
|
BLLI_L3_IPI_IP = $CC; (* Internet Protocol (IP) identifier *)
|
|
{$EXTERNALSYM BLLI_L3_IPI_IP}
|
|
|
|
type
|
|
ATM_BLLI = record
|
|
Layer2Protocol: DWORD; (* User information layer 2 protocol *)
|
|
Layer2UserSpecifiedProtocol: DWORD; (* User specified layer 2 protocol information *)
|
|
Layer3Protocol: DWORD; (* User information layer 3 protocol *)
|
|
Layer3UserSpecifiedProtocol: DWORD; (* User specified layer 3 protocol information *)
|
|
Layer3IPI: DWORD; (* ISO/IEC TR 9577 Initial Protocol Identifier *)
|
|
SnapID: array [0..4] of UCHAR; (* SNAP ID consisting of OUI and PID *)
|
|
end;
|
|
{$EXTERNALSYM ATM_BLLI}
|
|
TAtmBLLI = ATM_BLLI;
|
|
PAtmBLLI = ^ATM_BLLI;
|
|
|
|
const
|
|
BHLI_ISO = $00; (* ISO *)
|
|
{$EXTERNALSYM BHLI_ISO}
|
|
BHLI_UserSpecific = $01; (* User Specific *)
|
|
{$EXTERNALSYM BHLI_UserSpecific}
|
|
BHLI_HighLayerProfile = $02; (* High layer profile (only in UNI3.0) *)
|
|
{$EXTERNALSYM BHLI_HighLayerProfile}
|
|
BHLI_VendorSpecificAppId = $03; (* Vendor-Specific Application ID *)
|
|
{$EXTERNALSYM BHLI_VendorSpecificAppId}
|
|
|
|
type
|
|
ATM_BHLI = record
|
|
HighLayerInfoType: DWORD; (* High Layer Information Type *)
|
|
HighLayerInfoLength: DWORD; (* number of bytes in HighLayerInfo *)
|
|
HighLayerInfo: array [0..7] of UCHAR; (* the value dependent on the *)
|
|
(* HighLayerInfoType field *)
|
|
end;
|
|
{$EXTERNALSYM ATM_BHLI}
|
|
TAtmBHLI = ATM_BHLI;
|
|
PAtmBHLI = ^ATM_BHLI;
|
|
|
|
SOCKADDR_ATM = record
|
|
satm_family: u_short; (* address family should be AF_ATM *)
|
|
satm_number: ATM_ADDRESS; (* ATM address *)
|
|
satm_blli: ATM_BLLI; (* B-LLI *)
|
|
satm_bhli: ATM_BHLI; (* B-HLI *)
|
|
end;
|
|
{$EXTERNALSYM SOCKADDR_ATM}
|
|
PSOCKADDR_ATM = ^SOCKADDR_ATM;
|
|
LPSOCKADDR_ATM = ^SOCKADDR_ATM;
|
|
TSockAddrAtm = SOCKADDR_ATM;
|
|
PSockAddrAtm = LPSOCKADDR_ATM;
|
|
|
|
Q2931_IE_TYPE = (
|
|
IE_AALParameters,
|
|
IE_TrafficDescriptor,
|
|
IE_BroadbandBearerCapability,
|
|
IE_BHLI,
|
|
IE_BLLI,
|
|
IE_CalledPartyNumber,
|
|
IE_CalledPartySubaddress,
|
|
IE_CallingPartyNumber,
|
|
IE_CallingPartySubaddress,
|
|
IE_Cause,
|
|
IE_QOSClass,
|
|
IE_TransitNetworkSelection);
|
|
{$EXTERNALSYM Q2931_IE_TYPE}
|
|
TQ2931IEType = Q2931_IE_TYPE;
|
|
PQ2931IEType = ^Q2931_IE_TYPE;
|
|
|
|
Q2931_IE = record
|
|
IEType: Q2931_IE_TYPE;
|
|
IELength: ULONG;
|
|
IE: array [0..0] of UCHAR;
|
|
end;
|
|
{$EXTERNALSYM Q2931_IE}
|
|
TQ2931IE = Q2931_IE;
|
|
PQ2931IE = ^Q2931_IE;
|
|
|
|
const
|
|
AALTYPE_5 = 5; (* AAL 5 *)
|
|
{$EXTERNALSYM AALTYPE_5}
|
|
AALTYPE_USER = 16; (* user-defined AAL *)
|
|
{$EXTERNALSYM AALTYPE_USER}
|
|
|
|
type
|
|
AAL_TYPE = DWORD;
|
|
{$EXTERNALSYM AAL_TYPE}
|
|
TAALType = AAL_TYPE;
|
|
PAALType = ^AAL_TYPE;
|
|
|
|
const
|
|
AAL5_MODE_MESSAGE = $01;
|
|
{$EXTERNALSYM AAL5_MODE_MESSAGE}
|
|
AAL5_MODE_STREAMING = $02;
|
|
{$EXTERNALSYM AAL5_MODE_STREAMING}
|
|
|
|
AAL5_SSCS_NULL = $00;
|
|
{$EXTERNALSYM AAL5_SSCS_NULL}
|
|
AAL5_SSCS_SSCOP_ASSURED = $01;
|
|
{$EXTERNALSYM AAL5_SSCS_SSCOP_ASSURED}
|
|
AAL5_SSCS_SSCOP_NON_ASSURED = $02;
|
|
{$EXTERNALSYM AAL5_SSCS_SSCOP_NON_ASSURED}
|
|
AAL5_SSCS_FRAME_RELAY = $04;
|
|
{$EXTERNALSYM AAL5_SSCS_FRAME_RELAY}
|
|
|
|
type
|
|
AAL5_PARAMETERS = record
|
|
ForwardMaxCPCSSDUSize: ULONG;
|
|
BackwardMaxCPCSSDUSize: ULONG;
|
|
Mode: UCHAR; (* only available in UNI 3.0 *)
|
|
SSCSType: UCHAR;
|
|
end;
|
|
{$EXTERNALSYM AAL5_PARAMETERS}
|
|
TAAL5Parameters = AAL5_PARAMETERS;
|
|
PAAL5Parameters = ^AAL5_PARAMETERS;
|
|
|
|
AALUSER_PARAMETERS = record
|
|
UserDefined: ULONG;
|
|
end;
|
|
{$EXTERNALSYM AALUSER_PARAMETERS}
|
|
TAALUserParameters = AALUSER_PARAMETERS;
|
|
PAALUserParameters = ^AALUSER_PARAMETERS;
|
|
|
|
AAL_PARAMETERS_IE = record
|
|
AALType: AAL_TYPE;
|
|
case Integer of
|
|
0: (AAL5Parameters: AAL5_PARAMETERS);
|
|
1: (AALUserParameters: AALUSER_PARAMETERS);
|
|
end;
|
|
{$EXTERNALSYM AAL_PARAMETERS_IE}
|
|
TAALParametersIE = AAL_PARAMETERS_IE;
|
|
PAALParametersIE = ^AAL_PARAMETERS_IE;
|
|
|
|
ATM_TD = record
|
|
PeakCellRate_CLP0: ULONG;
|
|
PeakCellRate_CLP01: ULONG;
|
|
SustainableCellRate_CLP0: ULONG;
|
|
SustainableCellRate_CLP01: ULONG;
|
|
MaxBurstSize_CLP0: ULONG;
|
|
MaxBurstSize_CLP01: ULONG;
|
|
Tagging: BOOL;
|
|
end;
|
|
{$EXTERNALSYM ATM_TD}
|
|
TAtmTD = ATM_TD;
|
|
PAtmTD = ^ATM_TD;
|
|
|
|
ATM_TRAFFIC_DESCRIPTOR_IE = record
|
|
Forward_: ATM_TD;
|
|
Backward: ATM_TD;
|
|
BestEffort: BOOL;
|
|
end;
|
|
{$EXTERNALSYM ATM_TRAFFIC_DESCRIPTOR_IE}
|
|
TAtmTrafficDescriptorIE = ATM_TD;
|
|
PAtmTrafficDescriptorIE = ^ATM_TD;
|
|
|
|
const
|
|
BCOB_A = $01; (* Bearer class A *)
|
|
{$EXTERNALSYM BCOB_A}
|
|
BCOB_C = $03; (* Bearer class C *)
|
|
{$EXTERNALSYM BCOB_C}
|
|
BCOB_X = $10; (* Bearer class X *)
|
|
{$EXTERNALSYM BCOB_X}
|
|
|
|
TT_NOIND = $00; (* No indication of traffic type *)
|
|
{$EXTERNALSYM TT_NOIND}
|
|
TT_CBR = $04; (* Constant bit rate *)
|
|
{$EXTERNALSYM TT_CBR}
|
|
TT_VBR = $08; (* Variable bit rate *)
|
|
{$EXTERNALSYM TT_VBR}
|
|
|
|
TR_NOIND = $00; (* No timing requirement indication *)
|
|
{$EXTERNALSYM TR_NOIND}
|
|
TR_END_TO_END = $01; (* End-to-end timing required *)
|
|
{$EXTERNALSYM TR_END_TO_END}
|
|
TR_NO_END_TO_END = $02; (* End-to-end timing not required *)
|
|
{$EXTERNALSYM TR_NO_END_TO_END}
|
|
|
|
CLIP_NOT = $00; (* Not susceptible to clipping *)
|
|
{$EXTERNALSYM CLIP_NOT}
|
|
CLIP_SUS = $20; (* Susceptible to clipping *)
|
|
{$EXTERNALSYM CLIP_SUS}
|
|
|
|
UP_P2P = $00; (* Point-to-point connection *)
|
|
{$EXTERNALSYM UP_P2P}
|
|
UP_P2MP = $01; (* Point-to-multipoint connection *)
|
|
{$EXTERNALSYM UP_P2MP}
|
|
|
|
type
|
|
ATM_BROADBAND_BEARER_CAPABILITY_IE = record
|
|
BearerClass: UCHAR;
|
|
TrafficType: UCHAR;
|
|
TimingRequirements: UCHAR;
|
|
ClippingSusceptability: UCHAR;
|
|
UserPlaneConnectionConfig: UCHAR;
|
|
end;
|
|
{$EXTERNALSYM ATM_BROADBAND_BEARER_CAPABILITY_IE}
|
|
TAtmBroadbandBearerCapabilityIE = ATM_BROADBAND_BEARER_CAPABILITY_IE;
|
|
PAtmBroadbandBearerCapabilityIE = ^ATM_BROADBAND_BEARER_CAPABILITY_IE;
|
|
|
|
ATM_BHLI_IE = ATM_BHLI;
|
|
{$EXTERNALSYM ATM_BHLI_IE}
|
|
TAtmBHLIIE = ATM_BHLI_IE;
|
|
PAtmBHLIIE = ^ATM_BHLI_IE;
|
|
|
|
const
|
|
BLLI_L2_MODE_NORMAL = $40;
|
|
{$EXTERNALSYM BLLI_L2_MODE_NORMAL}
|
|
BLLI_L2_MODE_EXT = $80;
|
|
{$EXTERNALSYM BLLI_L2_MODE_EXT}
|
|
|
|
BLLI_L3_MODE_NORMAL = $40;
|
|
{$EXTERNALSYM BLLI_L3_MODE_NORMAL}
|
|
BLLI_L3_MODE_EXT = $80;
|
|
{$EXTERNALSYM BLLI_L3_MODE_EXT}
|
|
|
|
BLLI_L3_PACKET_16 = $04;
|
|
{$EXTERNALSYM BLLI_L3_PACKET_16}
|
|
BLLI_L3_PACKET_32 = $05;
|
|
{$EXTERNALSYM BLLI_L3_PACKET_32}
|
|
BLLI_L3_PACKET_64 = $06;
|
|
{$EXTERNALSYM BLLI_L3_PACKET_64}
|
|
BLLI_L3_PACKET_128 = $07;
|
|
{$EXTERNALSYM BLLI_L3_PACKET_128}
|
|
BLLI_L3_PACKET_256 = $08;
|
|
{$EXTERNALSYM BLLI_L3_PACKET_256}
|
|
BLLI_L3_PACKET_512 = $09;
|
|
{$EXTERNALSYM BLLI_L3_PACKET_512}
|
|
BLLI_L3_PACKET_1024 = $0A;
|
|
{$EXTERNALSYM BLLI_L3_PACKET_1024}
|
|
BLLI_L3_PACKET_2048 = $0B;
|
|
{$EXTERNALSYM BLLI_L3_PACKET_2048}
|
|
BLLI_L3_PACKET_4096 = $0C;
|
|
{$EXTERNALSYM BLLI_L3_PACKET_4096}
|
|
|
|
type
|
|
ATM_BLLI_IE = record
|
|
Layer2Protocol: DWORD; (* User information layer 2 protocol *)
|
|
Layer2Mode: UCHAR;
|
|
Layer2WindowSize: UCHAR;
|
|
Layer2UserSpecifiedProtocol: DWORD; (* User specified layer 2 protocol information *)
|
|
Layer3Protocol: DWORD; (* User information layer 3 protocol *)
|
|
Layer3Mode: UCHAR;
|
|
Layer3DefaultPacketSize: UCHAR;
|
|
Layer3PacketWindowSize: UCHAR;
|
|
Layer3UserSpecifiedProtocol: DWORD; (* User specified layer 3 protocol information *)
|
|
Layer3IPI: DWORD; (* ISO/IEC TR 9577 Initial Protocol Identifier *)
|
|
SnapID: array [0..4] of UCHAR; (* SNAP ID consisting of OUI and PID *)
|
|
end;
|
|
{$EXTERNALSYM ATM_BLLI_IE}
|
|
TAtmBLLIIE = ATM_BLLI_IE;
|
|
PAtmBLLIIE = ^ATM_BLLI_IE;
|
|
|
|
ATM_CALLED_PARTY_NUMBER_IE = ATM_ADDRESS;
|
|
{$EXTERNALSYM ATM_CALLED_PARTY_NUMBER_IE}
|
|
TAtmCalledPartyNumberIE = ATM_CALLED_PARTY_NUMBER_IE;
|
|
PAtmCalledPartyNumberIE = ^ATM_CALLED_PARTY_NUMBER_IE;
|
|
ATM_CALLED_PARTY_SUBADDRESS_IE = ATM_ADDRESS;
|
|
{$EXTERNALSYM ATM_CALLED_PARTY_SUBADDRESS_IE}
|
|
TAtmCalledPartySubAddressIE = ATM_CALLED_PARTY_SUBADDRESS_IE;
|
|
PAtmCalledPartySubAddressIE = ^ATM_CALLED_PARTY_SUBADDRESS_IE;
|
|
|
|
const
|
|
PI_ALLOWED = $00;
|
|
{$EXTERNALSYM PI_ALLOWED}
|
|
PI_RESTRICTED = $40;
|
|
{$EXTERNALSYM PI_RESTRICTED}
|
|
PI_NUMBER_NOT_AVAILABLE = $80;
|
|
{$EXTERNALSYM PI_NUMBER_NOT_AVAILABLE}
|
|
|
|
SI_USER_NOT_SCREENED = $00;
|
|
{$EXTERNALSYM SI_USER_NOT_SCREENED}
|
|
SI_USER_PASSED = $01;
|
|
{$EXTERNALSYM SI_USER_PASSED}
|
|
SI_USER_FAILED = $02;
|
|
{$EXTERNALSYM SI_USER_FAILED}
|
|
SI_NETWORK = $03;
|
|
{$EXTERNALSYM SI_NETWORK}
|
|
|
|
type
|
|
ATM_CALLING_PARTY_NUMBER_IE = record
|
|
ATM_Number: ATM_ADDRESS;
|
|
Presentation_Indication: UCHAR;
|
|
Screening_Indicator: UCHAR;
|
|
end;
|
|
{$EXTERNALSYM ATM_CALLING_PARTY_NUMBER_IE}
|
|
TAtmCallingPartyNumberIE = ATM_CALLING_PARTY_NUMBER_IE;
|
|
PAtmCallingPartyNumberIE = ^ATM_CALLING_PARTY_NUMBER_IE;
|
|
|
|
ATM_CALLING_PARTY_SUBADDRESS_IE = ATM_ADDRESS;
|
|
{$EXTERNALSYM ATM_CALLING_PARTY_SUBADDRESS_IE}
|
|
TAtmCallingPartySubAddressIE = ATM_CALLING_PARTY_SUBADDRESS_IE;
|
|
PAtmCallingPartySubAddressIE = ^ATM_CALLING_PARTY_SUBADDRESS_IE;
|
|
|
|
const
|
|
CAUSE_LOC_USER = $00;
|
|
{$EXTERNALSYM CAUSE_LOC_USER}
|
|
CAUSE_LOC_PRIVATE_LOCAL = $01;
|
|
{$EXTERNALSYM CAUSE_LOC_PRIVATE_LOCAL}
|
|
CAUSE_LOC_PUBLIC_LOCAL = $02;
|
|
{$EXTERNALSYM CAUSE_LOC_PUBLIC_LOCAL}
|
|
CAUSE_LOC_TRANSIT_NETWORK = $03;
|
|
{$EXTERNALSYM CAUSE_LOC_TRANSIT_NETWORK}
|
|
CAUSE_LOC_PUBLIC_REMOTE = $04;
|
|
{$EXTERNALSYM CAUSE_LOC_PUBLIC_REMOTE}
|
|
CAUSE_LOC_PRIVATE_REMOTE = $05;
|
|
{$EXTERNALSYM CAUSE_LOC_PRIVATE_REMOTE}
|
|
CAUSE_LOC_INTERNATIONAL_NETWORK = $07;
|
|
{$EXTERNALSYM CAUSE_LOC_INTERNATIONAL_NETWORK}
|
|
CAUSE_LOC_BEYOND_INTERWORKING = $0A;
|
|
{$EXTERNALSYM CAUSE_LOC_BEYOND_INTERWORKING}
|
|
|
|
CAUSE_UNALLOCATED_NUMBER = $01;
|
|
{$EXTERNALSYM CAUSE_UNALLOCATED_NUMBER}
|
|
CAUSE_NO_ROUTE_TO_TRANSIT_NETWORK = $02;
|
|
{$EXTERNALSYM CAUSE_NO_ROUTE_TO_TRANSIT_NETWORK}
|
|
CAUSE_NO_ROUTE_TO_DESTINATION = $03;
|
|
{$EXTERNALSYM CAUSE_NO_ROUTE_TO_DESTINATION}
|
|
CAUSE_VPI_VCI_UNACCEPTABLE = $0A;
|
|
{$EXTERNALSYM CAUSE_VPI_VCI_UNACCEPTABLE}
|
|
CAUSE_NORMAL_CALL_CLEARING = $10;
|
|
{$EXTERNALSYM CAUSE_NORMAL_CALL_CLEARING}
|
|
CAUSE_USER_BUSY = $11;
|
|
{$EXTERNALSYM CAUSE_USER_BUSY}
|
|
CAUSE_NO_USER_RESPONDING = $12;
|
|
{$EXTERNALSYM CAUSE_NO_USER_RESPONDING}
|
|
CAUSE_CALL_REJECTED = $15;
|
|
{$EXTERNALSYM CAUSE_CALL_REJECTED}
|
|
CAUSE_NUMBER_CHANGED = $16;
|
|
{$EXTERNALSYM CAUSE_NUMBER_CHANGED}
|
|
CAUSE_USER_REJECTS_CLIR = $17;
|
|
{$EXTERNALSYM CAUSE_USER_REJECTS_CLIR}
|
|
CAUSE_DESTINATION_OUT_OF_ORDER = $1B;
|
|
{$EXTERNALSYM CAUSE_DESTINATION_OUT_OF_ORDER}
|
|
CAUSE_INVALID_NUMBER_FORMAT = $1C;
|
|
{$EXTERNALSYM CAUSE_INVALID_NUMBER_FORMAT}
|
|
CAUSE_STATUS_ENQUIRY_RESPONSE = $1E;
|
|
{$EXTERNALSYM CAUSE_STATUS_ENQUIRY_RESPONSE}
|
|
CAUSE_NORMAL_UNSPECIFIED = $1F;
|
|
{$EXTERNALSYM CAUSE_NORMAL_UNSPECIFIED}
|
|
CAUSE_VPI_VCI_UNAVAILABLE = $23;
|
|
{$EXTERNALSYM CAUSE_VPI_VCI_UNAVAILABLE}
|
|
CAUSE_NETWORK_OUT_OF_ORDER = $26;
|
|
{$EXTERNALSYM CAUSE_NETWORK_OUT_OF_ORDER}
|
|
CAUSE_TEMPORARY_FAILURE = $29;
|
|
{$EXTERNALSYM CAUSE_TEMPORARY_FAILURE}
|
|
CAUSE_ACCESS_INFORMAION_DISCARDED = $2B;
|
|
{$EXTERNALSYM CAUSE_ACCESS_INFORMAION_DISCARDED}
|
|
CAUSE_NO_VPI_VCI_AVAILABLE = $2D;
|
|
{$EXTERNALSYM CAUSE_NO_VPI_VCI_AVAILABLE}
|
|
CAUSE_RESOURCE_UNAVAILABLE = $2F;
|
|
{$EXTERNALSYM CAUSE_RESOURCE_UNAVAILABLE}
|
|
CAUSE_QOS_UNAVAILABLE = $31;
|
|
{$EXTERNALSYM CAUSE_QOS_UNAVAILABLE}
|
|
CAUSE_USER_CELL_RATE_UNAVAILABLE = $33;
|
|
{$EXTERNALSYM CAUSE_USER_CELL_RATE_UNAVAILABLE}
|
|
CAUSE_BEARER_CAPABILITY_UNAUTHORIZED = $39;
|
|
{$EXTERNALSYM CAUSE_BEARER_CAPABILITY_UNAUTHORIZED}
|
|
CAUSE_BEARER_CAPABILITY_UNAVAILABLE = $3A;
|
|
{$EXTERNALSYM CAUSE_BEARER_CAPABILITY_UNAVAILABLE}
|
|
CAUSE_OPTION_UNAVAILABLE = $3F;
|
|
{$EXTERNALSYM CAUSE_OPTION_UNAVAILABLE}
|
|
CAUSE_BEARER_CAPABILITY_UNIMPLEMENTED = $41;
|
|
{$EXTERNALSYM CAUSE_BEARER_CAPABILITY_UNIMPLEMENTED}
|
|
CAUSE_UNSUPPORTED_TRAFFIC_PARAMETERS = $49;
|
|
{$EXTERNALSYM CAUSE_UNSUPPORTED_TRAFFIC_PARAMETERS}
|
|
CAUSE_INVALID_CALL_REFERENCE = $51;
|
|
{$EXTERNALSYM CAUSE_INVALID_CALL_REFERENCE}
|
|
CAUSE_CHANNEL_NONEXISTENT = $52;
|
|
{$EXTERNALSYM CAUSE_CHANNEL_NONEXISTENT}
|
|
CAUSE_INCOMPATIBLE_DESTINATION = $58;
|
|
{$EXTERNALSYM CAUSE_INCOMPATIBLE_DESTINATION}
|
|
CAUSE_INVALID_ENDPOINT_REFERENCE = $59;
|
|
{$EXTERNALSYM CAUSE_INVALID_ENDPOINT_REFERENCE}
|
|
CAUSE_INVALID_TRANSIT_NETWORK_SELECTION = $5B;
|
|
{$EXTERNALSYM CAUSE_INVALID_TRANSIT_NETWORK_SELECTION}
|
|
CAUSE_TOO_MANY_PENDING_ADD_PARTY = $5C;
|
|
{$EXTERNALSYM CAUSE_TOO_MANY_PENDING_ADD_PARTY}
|
|
CAUSE_AAL_PARAMETERS_UNSUPPORTED = $5D;
|
|
{$EXTERNALSYM CAUSE_AAL_PARAMETERS_UNSUPPORTED}
|
|
CAUSE_MANDATORY_IE_MISSING = $60;
|
|
{$EXTERNALSYM CAUSE_MANDATORY_IE_MISSING}
|
|
CAUSE_UNIMPLEMENTED_MESSAGE_TYPE = $61;
|
|
{$EXTERNALSYM CAUSE_UNIMPLEMENTED_MESSAGE_TYPE}
|
|
CAUSE_UNIMPLEMENTED_IE = $63;
|
|
{$EXTERNALSYM CAUSE_UNIMPLEMENTED_IE}
|
|
CAUSE_INVALID_IE_CONTENTS = $64;
|
|
{$EXTERNALSYM CAUSE_INVALID_IE_CONTENTS}
|
|
CAUSE_INVALID_STATE_FOR_MESSAGE = $65;
|
|
{$EXTERNALSYM CAUSE_INVALID_STATE_FOR_MESSAGE}
|
|
CAUSE_RECOVERY_ON_TIMEOUT = $66;
|
|
{$EXTERNALSYM CAUSE_RECOVERY_ON_TIMEOUT}
|
|
CAUSE_INCORRECT_MESSAGE_LENGTH = $68;
|
|
{$EXTERNALSYM CAUSE_INCORRECT_MESSAGE_LENGTH}
|
|
CAUSE_PROTOCOL_ERROR = $6F;
|
|
{$EXTERNALSYM CAUSE_PROTOCOL_ERROR}
|
|
|
|
CAUSE_COND_UNKNOWN = $00;
|
|
{$EXTERNALSYM CAUSE_COND_UNKNOWN}
|
|
CAUSE_COND_PERMANENT = $01;
|
|
{$EXTERNALSYM CAUSE_COND_PERMANENT}
|
|
CAUSE_COND_TRANSIENT = $02;
|
|
{$EXTERNALSYM CAUSE_COND_TRANSIENT}
|
|
|
|
CAUSE_REASON_USER = $00;
|
|
{$EXTERNALSYM CAUSE_REASON_USER}
|
|
CAUSE_REASON_IE_MISSING = $04;
|
|
{$EXTERNALSYM CAUSE_REASON_IE_MISSING}
|
|
CAUSE_REASON_IE_INSUFFICIENT = $08;
|
|
{$EXTERNALSYM CAUSE_REASON_IE_INSUFFICIENT}
|
|
|
|
CAUSE_PU_PROVIDER = $00;
|
|
{$EXTERNALSYM CAUSE_PU_PROVIDER}
|
|
CAUSE_PU_USER = $08;
|
|
{$EXTERNALSYM CAUSE_PU_USER}
|
|
|
|
CAUSE_NA_NORMAL = $00;
|
|
{$EXTERNALSYM CAUSE_NA_NORMAL}
|
|
CAUSE_NA_ABNORMAL = $04;
|
|
{$EXTERNALSYM CAUSE_NA_ABNORMAL}
|
|
|
|
type
|
|
ATM_CAUSE_IE = record
|
|
Location: UCHAR;
|
|
Cause: UCHAR;
|
|
DiagnosticsLength: UCHAR;
|
|
Diagnostics: array [0..3] of UCHAR;
|
|
end;
|
|
{$EXTERNALSYM ATM_CAUSE_IE}
|
|
TAtmCauseIE = ATM_CAUSE_IE;
|
|
PAtmCauseIE = ^ATM_CAUSE_IE;
|
|
|
|
const
|
|
QOS_CLASS0 = $00;
|
|
{$EXTERNALSYM QOS_CLASS0}
|
|
QOS_CLASS1 = $01;
|
|
{$EXTERNALSYM QOS_CLASS1}
|
|
QOS_CLASS2 = $02;
|
|
{$EXTERNALSYM QOS_CLASS2}
|
|
QOS_CLASS3 = $03;
|
|
{$EXTERNALSYM QOS_CLASS3}
|
|
QOS_CLASS4 = $04;
|
|
{$EXTERNALSYM QOS_CLASS4}
|
|
|
|
type
|
|
ATM_QOS_CLASS_IE = record
|
|
QOSClassForward: UCHAR;
|
|
QOSClassBackward: UCHAR;
|
|
end;
|
|
{$EXTERNALSYM ATM_QOS_CLASS_IE}
|
|
TAtmQosClassIE = ATM_QOS_CLASS_IE;
|
|
PAtmQosClassIE = ^ATM_QOS_CLASS_IE;
|
|
|
|
const
|
|
TNS_TYPE_NATIONAL = $40;
|
|
{$EXTERNALSYM TNS_TYPE_NATIONAL}
|
|
|
|
TNS_PLAN_CARRIER_ID_CODE = $01;
|
|
{$EXTERNALSYM TNS_PLAN_CARRIER_ID_CODE}
|
|
|
|
type
|
|
ATM_TRANSIT_NETWORK_SELECTION_IE = record
|
|
TypeOfNetworkId: UCHAR;
|
|
NetworkIdPlan: UCHAR;
|
|
NetworkIdLength: UCHAR;
|
|
NetworkId: array [0..0] of UCHAR;
|
|
end;
|
|
{$EXTERNALSYM ATM_TRANSIT_NETWORK_SELECTION_IE}
|
|
TAtmTransitNetworkSelectionIE = ATM_TRANSIT_NETWORK_SELECTION_IE;
|
|
PAtmTransitNetworkSelectionIE = ^ATM_TRANSIT_NETWORK_SELECTION_IE;
|
|
|
|
const
|
|
SIO_GET_NUMBER_OF_ATM_DEVICES = $50160001;
|
|
{$EXTERNALSYM SIO_GET_NUMBER_OF_ATM_DEVICES}
|
|
SIO_GET_ATM_ADDRESS = DWORD($d0160002);
|
|
{$EXTERNALSYM SIO_GET_ATM_ADDRESS}
|
|
SIO_ASSOCIATE_PVC = DWORD($90160003);
|
|
{$EXTERNALSYM SIO_ASSOCIATE_PVC}
|
|
SIO_GET_ATM_CONNECTION_ID = $50160004;
|
|
{$EXTERNALSYM SIO_GET_ATM_CONNECTION_ID}
|
|
|
|
type
|
|
ATM_CONNECTION_ID = record
|
|
DeviceNumber: DWORD;
|
|
VPI: DWORD;
|
|
VCI: DWORD;
|
|
end;
|
|
{$EXTERNALSYM ATM_CONNECTION_ID}
|
|
TAtmConnectionID = ATM_CONNECTION_ID;
|
|
PAtmConnectionID = ^ATM_CONNECTION_ID;
|
|
|
|
(*
|
|
ATM_PVC_PARAMS = record
|
|
PvcConnectionId: ATM_CONNECTION_ID;
|
|
PvcQos: QOS;
|
|
end;
|
|
{$EXTERNALSYM ATM_PVC_PARAMS}
|
|
TAtmPvcParams = ATM_PVC_PARAMS;
|
|
PAtmPvcParams = ^ATM_PVC_PARAMS;
|
|
*)
|
|
|
|
type
|
|
Tgetnameinfo = function (sa: PSockAddr; salen: integer; host: PChar; hostlen: DWORD; serv: PChar; servlen: DWORD; flags: Integer): Integer; stdcall;
|
|
Tgetaddrinfo = function (nodename, servname: PChar; hints: PAddrInfo; var res: PAddrInfo): Integer; stdcall;
|
|
Tfreeaddrinfo = procedure (ai: PAddrInfo); stdcall;
|
|
TInetNtop = function(Family: Integer; pAddr: Pointer; pStringBuf: {$IFDEF UNICODE}PWideChar{$ELSE}PAnsiChar{$ENDIF}; StringBufSize: SIZE_T): {$IFDEF UNICODE}PWideChar{$ELSE}PAnsiChar{$ENDIF}; stdcall;
|
|
TInetPton = function(Family: Integer; pStringBuf: {$IFDEF UNICODE}PWideChar{$ELSE}PAnsiChar{$ENDIF}; pAddr: Pointer): integer; stdcall;
|
|
{TGetAddrInfoExA = function(pName : PAnsiChar; pServiceName : PAnsiChar;
|
|
const dwNameSpace: DWord; lpNspId : LPGUID; hints : PADDRINFOEXA;
|
|
ppResult : PADDRINFOEXA; timeout : Ptimeval; lpOverlapped : LPWSAOVERLAPPED;
|
|
lpCompletionRoutine : LPLOOKUPSERVICE_COMPLETION_ROUTINE;
|
|
var lpNameHandle : THandle) : Integer; stdcall;
|
|
TGetAddrInfoExW = function(pName : PWideChar; pServiceName : PWideChar;
|
|
const dwNameSpace: DWord; lpNspId : LPGUID;hints : PADDRINFOEXW;
|
|
ppResult : PADDRINFOEXW; timeout : Ptimeval; lpOverlapped : LPWSAOVERLAPPED;
|
|
lpCompletionRoutine : LPLOOKUPSERVICE_COMPLETION_ROUTINE;
|
|
var lpNameHandle : THandle) : Integer; stdcall;}
|
|
|
|
TWSAAddressToString = function(lpsaAddress: LPSOCKADDR; dwAddressLength: DWORD;
|
|
lpProtocolInfo: {$IFDEF UNICODE}LPWSAPROTOCOL_INFOW{$ELSE}LPWSAPROTOCOL_INFOA{$ENDIF}; lpszAddressString: {$IFDEF UNICODE}LPWSTR{$ELSE}LPSTR{$ENDIF};
|
|
var lpdwAddressStringLength: DWORD): Integer; stdcall;
|
|
TWSAStringToAddress = function(AddressString: {$IFDEF UNICODE}LPWSTR{$ELSE}LPSTR{$ENDIF}; AddressFamily: Integer;
|
|
lpProtocolInfo: {$IFDEF UNICODE}LPWSAPROTOCOL_INFOW{$ELSE}LPWSAPROTOCOL_INFOA{$ENDIF}; lpAddress: LPSOCKADDR;
|
|
var lpAddressLength: Integer): Integer; stdcall;
|
|
TWSACreateEvent = function: WSAEVENT; stdcall;
|
|
TWSARecv = function(s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD; var lpNumberOfBytesRecvd, lpFlags: DWORD; lpOverlapped: LPWSAOVERLAPPED;
|
|
lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
|
|
TWSAGetLastError = function: Integer; stdcall;
|
|
TWSAWaitForMultipleEvents = function(cEvents: DWORD; lphEvents: PWSAEVENT; fWaitAll: BOOL; dwTimeout: DWORD; fAlertable: BOOL): DWORD; stdcall;
|
|
TWSAGetOverlappedResult = function(s: TSocket; lpOverlapped: LPWSAOVERLAPPED; var lpcbTransfer: DWORD; fWait: BOOL; var lpdwFlags: DWORD): BOOL; stdcall;
|
|
TWSAResetEvent = function(hEvent: WSAEVENT): BOOL; stdcall;
|
|
TWSACloseEvent = function(hEvent: WSAEVENT): BOOL; stdcall;
|
|
|
|
var
|
|
getnameinfo: Tgetnameinfo = nil;
|
|
getaddrinfo: Tgetaddrinfo = nil;
|
|
freeaddrinfo: Tfreeaddrinfo = nil;
|
|
InetNtop: TInetNtop = nil;
|
|
InetPton: TInetPton = nil;
|
|
|
|
WSAAddressToString: TWSAAddressToString = nil;
|
|
WSAStringToAddress: TWSAStringToAddress = nil;
|
|
WSACreateEvent: TWSACreateEvent = nil;
|
|
WSARecv: TWSARecv = nil;
|
|
WSAGetLastError: TWSAGetLastError = nil;
|
|
WSAWaitForMultipleEvents: TWSAWaitForMultipleEvents = nil;
|
|
WSAGetOverlappedResult: TWSAGetOverlappedResult = nil;
|
|
WSAResetEvent: TWSAResetEvent = nil;
|
|
WSACloseEvent: TWSACloseEvent = nil;
|
|
|
|
implementation
|
|
|
|
procedure InitWS2;
|
|
var
|
|
h: THandle;
|
|
begin
|
|
h:=GetModuleHandle('ws2_32.dll');
|
|
if h=0 then
|
|
Exit;
|
|
{$IFDEF UNICODE}
|
|
@getnameinfo:=GetProcAddress(h,PAnsiChar('GetNameInfoW'));
|
|
@getaddrinfo:=GetProcAddress(h,PAnsiChar('GetAddrInfoW'));
|
|
@freeaddrinfo:=GetProcAddress(h,PAnsiChar('FreeAddrInfoW'));
|
|
@InetNtop:=GetProcAddress(h,PAnsiChar('InetNtopW'));
|
|
@InetPton:=GetProcAddress(h,PAnsiChar('InetPtonW'));
|
|
@WSAAddressToString:=GetProcAddress(h,PAnsiChar('WSAAddressToStringW'));
|
|
@WSAStringToAddress:=GetProcAddress(h,PAnsiChar('WSAStringToAddressW'));
|
|
{$ELSE}
|
|
@getnameinfo:=GetProcAddress(h,PAnsiChar('getnameinfo'));
|
|
@getaddrinfo:=GetProcAddress(h,PAnsiChar('getaddrinfo'));
|
|
@freeaddrinfo:=GetProcAddress(h,PAnsiChar('freeaddrinfo'));
|
|
@InetNtop:=GetProcAddress(h,PAnsiChar('InetNtopA'));
|
|
@InetPton:=GetProcAddress(h,PAnsiChar('InetPtonA'));
|
|
@WSAAddressToString:=GetProcAddress(h,PAnsiChar('WSAAddressToStringA'));
|
|
@WSAStringToAddress:=GetProcAddress(h,PAnsiChar('WSAStringToAddressA'));
|
|
{$ENDIF}
|
|
@WSACreateEvent:=GetProcAddress(h,PAnsiChar('WSACreateEvent'));
|
|
@WSARecv:=GetProcAddress(h,PAnsiChar('WSARecv'));
|
|
@WSAGetLastError:=GetProcAddress(h,PAnsiChar('WSAGetLastError'));
|
|
@WSAWaitForMultipleEvents:=GetProcAddress(h,PAnsiChar('WSAWaitForMultipleEvents'));
|
|
@WSAGetOverlappedResult:=GetProcAddress(h,PAnsiChar('WSAGetOverlappedResult'));
|
|
@WSAResetEvent:=GetProcAddress(h,PAnsiChar('WSAResetEvent'));
|
|
@WSACloseEvent:=GetProcAddress(h,PAnsiChar('WSACloseEvent'));
|
|
end;
|
|
|
|
initialization
|
|
InitWS2;
|
|
end.
|
|
|