pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Bugfix #71, ICMPv6 on Windows (thanks to Armin)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@270 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2023-03-26 16:17:46 +00:00
parent 6dc5eee863
commit 543d02b07c
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pingsend.pas
View File

@ -1,5 +1,5 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 004.000.003 | | Project : Ararat Synapse | 004.000.004 |
|==============================================================================| |==============================================================================|
| Content: PING sender | | Content: PING sender |
|==============================================================================| |==============================================================================|
@ -611,7 +611,6 @@ begin
PAnsichar(FBuffer), length(FBuffer), @ipo, pAnsichar(RBuff), length(RBuff), FTimeout); PAnsichar(FBuffer), length(FBuffer), @ipo, pAnsichar(RBuff), length(RBuff), FTimeout);
if r > 0 then if r > 0 then
begin begin
RBuff := #0 + #0 + RBuff;
ip6reply := PICMPV6_ECHO_REPLY(pointer(RBuff)); ip6reply := PICMPV6_ECHO_REPLY(pointer(RBuff));
FPingTime := ip6reply^.RoundTripTime; FPingTime := ip6reply^.RoundTripTime;
ip6reply^.Address.sin6_family := AF_INET6; ip6reply^.Address.sin6_family := AF_INET6;