paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix wrong lookup address order in TInetSocket

Browse Source 
git-svn-id: trunk@17471 -
This commit is contained in:
michael 2011-05-15 15:42:52 +00:00
parent 7de8972e5c
commit 2ab9fe2775
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-net/src/ssockets.pp
View File

@ -143,6 +143,8 @@ type
end;
{$endif}
{ TInetSocket }
TInetSocket = Class(TSocketStream)
Private
FHost : String;
@ -152,7 +154,6 @@ type
Public
Constructor Create(ASocket : longint); Override; Overload;
Constructor Create(const AHost: String; APort: Word); Overload;
Destructor destroy; override;
Property Host : String Read FHost;
Property Port : Word Read FPort;
end;
@ -576,7 +577,7 @@ begin
try
If Not NameLookup(FHost) then
raise ESocketError.Create(seHostNotFound, [FHost]);
A:=HostAddress;
A:=NetHostAddress;
finally
free;
end;