paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 18:51:28 +01: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; end;
{$endif} {$endif}
{ TInetSocket }
TInetSocket = Class(TSocketStream) TInetSocket = Class(TSocketStream)
Private Private
FHost : String; FHost : String;
@ -152,7 +154,6 @@ type
Public Public
Constructor Create(ASocket : longint); Override; Overload; Constructor Create(ASocket : longint); Override; Overload;
Constructor Create(const AHost: String; APort: Word); Overload; Constructor Create(const AHost: String; APort: Word); Overload;
Destructor destroy; override;
Property Host : String Read FHost; Property Host : String Read FHost;
Property Port : Word Read FPort; Property Port : Word Read FPort;
end; end;
@ -576,7 +577,7 @@ begin
try try
If Not NameLookup(FHost) then If Not NameLookup(FHost) then
raise ESocketError.Create(seHostNotFound, [FHost]); raise ESocketError.Create(seHostNotFound, [FHost]);
A:=HostAddress; A:=NetHostAddress;
finally finally
free; free;
end; end;