lnet localport incorrect
Original Reporter info from Mantis: greenfil
-
Reporter name: greenfil
Original Reporter info from Mantis: greenfil
- Reporter name: greenfil
Description:
When using "connect" local port I can't determine the local port
Steps to reproduce:
program Project1;
uses lNet, Sockets;
function GetLocalPort(Socket:TLSocket): Word;
var
a: TSockAddr;
l: Integer;
begin
Result := 0;
l := SizeOf(a);
if fpGetSockName(Socket.Handle, @a, @l) = 0 then
Result := NToHs(a.sin_port);
end;
var UDP:TLUdp;
const Port=7080; {any}
begin
UDP:=TLUdp.Create(nil);
UDP.Connect('127.0.0.1', Port);
UDP.SendMessage('Test'); //My detect local port doesn't work without Send
WriteLn(UDP.Iterator.LocalPort); //write Port - it is incorrect
WriteLn(GetLocalPort(UDP.Iterator)); //Write correct local port
UDP.Free;
end.
Mantis conversion info:
- Mantis ID: 36849
- OS: debian
- OS Build: 9
- Platform: x64