From b0180ed9b50b3dacfaadee5c0c953ca3693b4672 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= Date: Sun, 17 Sep 2023 17:17:15 +0200 Subject: [PATCH] * Fix issue #40244 --- utils/fppkg/lnet/lnet.pp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/utils/fppkg/lnet/lnet.pp b/utils/fppkg/lnet/lnet.pp index 0d78badfb7..49064e72bb 100644 --- a/utils/fppkg/lnet/lnet.pp +++ b/utils/fppkg/lnet/lnet.pp @@ -749,7 +749,8 @@ end; function TLSocket.DoSend(const aData; const aSize: Integer): Integer; var - AddressLength: Longint = SizeOf(FPeerAddress); + AddressLength: Longint = SizeOf(FPeerAddress.IPv4); + begin if FSocketType = SOCK_STREAM then Result := Sockets.fpSend(FHandle, @aData, aSize, LMSG) @@ -759,7 +760,7 @@ end; function TLSocket.DoGet(out aData; const aSize: Integer): Integer; var - AddressLength: Longint = SizeOf(FPeerAddress); + AddressLength: Longint = SizeOf(FPeerAddress.IPv4); begin if FSocketType = SOCK_STREAM then Result := sockets.fpRecv(FHandle, @aData, aSize, LMSG)