paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-19 19:16:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix localport detection. Fixes issue #36849

Browse Source
This commit is contained in:
Michaël Van Canneyt 2026-02-15 09:31:47 +01:00
parent b4c70305bc
commit 4684e4c57e
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/fppkg/lnet/lnet.pp
View File

@ -801,8 +801,14 @@ begin
end;
function TLSocket.GetLocalPort: Word;
var
a: TSockAddr;
l: Integer;
begin
Result := ntohs(FAddress.IPv4.sin_port);
Result := 0;
l := SizeOf(a);
if fpGetSockName(FHandle, @a, @l) = 0 then
Result := ntohs(a.sin_port);
end;
function TLSocket.GetPeerPort: Word;