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
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 |
|==============================================================================|
@@ -611,7 +611,6 @@ begin
PAnsichar(FBuffer), length(FBuffer), @ipo, pAnsichar(RBuff), length(RBuff), FTimeout);
if r > 0 then
begin
RBuff := #0 + #0 + RBuff;
ip6reply := PICMPV6_ECHO_REPLY(pointer(RBuff));
FPingTime := ip6reply^.RoundTripTime;
ip6reply^.Address.sin6_family := AF_INET6;