pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

pingsend.pas - WIN64 data align fixes.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@117 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2010-01-24 10:18:37 +00:00
parent c0e29fd514
commit b810a57a1a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pingsend.pas
View File

@ -190,7 +190,7 @@ implementation
type type
{:Record for ICMP ECHO packet header.} {:Record for ICMP ECHO packet header.}
TIcmpEchoHeader = record TIcmpEchoHeader = packed record
i_type: Byte; i_type: Byte;
i_code: Byte; i_code: Byte;
i_checkSum: Word; i_checkSum: Word;
@ -201,7 +201,7 @@ type
{:record used internally by TPingSend for compute checksum of ICMPv6 packet {:record used internally by TPingSend for compute checksum of ICMPv6 packet
pseudoheader.} pseudoheader.}
TICMP6Packet = record TICMP6Packet = packed record
in_source: TInAddr6; in_source: TInAddr6;
in_dest: TInAddr6; in_dest: TInAddr6;
Length: integer; Length: integer;
@ -215,7 +215,7 @@ type
const const
DLLIcmpName = 'iphlpapi.dll'; DLLIcmpName = 'iphlpapi.dll';
type type
TIP_OPTION_INFORMATION = packed record TIP_OPTION_INFORMATION = record
TTL: Byte; TTL: Byte;
TOS: Byte; TOS: Byte;
Flags: Byte; Flags: Byte;
@ -224,7 +224,7 @@ type
end; end;
PIP_OPTION_INFORMATION = ^TIP_OPTION_INFORMATION; PIP_OPTION_INFORMATION = ^TIP_OPTION_INFORMATION;
TICMP_ECHO_REPLY = packed record TICMP_ECHO_REPLY = record
Address: TInAddr; Address: TInAddr;
Status: integer; Status: integer;
RoundTripTime: integer; RoundTripTime: integer;
@ -235,7 +235,7 @@ type
end; end;
PICMP_ECHO_REPLY = ^TICMP_ECHO_REPLY; PICMP_ECHO_REPLY = ^TICMP_ECHO_REPLY;
TICMPV6_ECHO_REPLY = packed record TICMPV6_ECHO_REPLY = record
Address: TSockAddrIn6; Address: TSockAddrIn6;
Status: integer; Status: integer;
RoundTripTime: integer; RoundTripTime: integer;