paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 17:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-net: fixed typo

Browse Source
This commit is contained in:
mattias 2022-02-23 11:12:07 +01:00
parent 5738a6ccf1
commit 49f1f4d26e
2 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
nohup.out Normal file
View File

@ -0,0 +1,3 @@
_IceTransSocketUNIXConnect: Cannot connect to non-local host ubuntu1804
_IceTransSocketUNIXConnect: Cannot connect to non-local host ubuntu1804
Qt: Session management error: Could not open network socket

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

@ -14,7 +14,6 @@
unit ssockets; unit ssockets;
interface interface
uses uses
@ -210,7 +209,7 @@ type
Public Public
Procedure Bind; Override; Procedure Bind; Override;
Constructor Create(APort: Word); Constructor Create(APort: Word);
Constructor Create(const aHost: string; const APort: Word; AHAndler : TSocketHandler = Nil); Constructor Create(const aHost: string; const APort: Word; AHandler : TSocketHandler = Nil);
Property Port : Word Read FPort; Property Port : Word Read FPort;
Property Host : string Read FHost; Property Host : string Read FHost;
end; end;
@ -274,7 +273,6 @@ type
end; end;
{$endif} {$endif}
Implementation Implementation
uses uses
@ -849,7 +847,7 @@ begin
Result:=fpSetSockOpt(FSocket,ALevel,AOptName,@optval,optlen)<>-1; Result:=fpSetSockOpt(FSocket,ALevel,AOptName,@optval,optlen)<>-1;
end; end;
Function TInetServer.GetConnection : TSocketStream; function TInetServer.GetConnection: TSocketStream;
var var
NewSocket : longint; NewSocket : longint;
@ -903,7 +901,7 @@ begin
Stream:=Nil; Stream:=Nil;
if Assigned(Stream) then if Assigned(Stream) then
begin begin
Inc (NoConnections); Inc(NoConnections);
DoConnect(Stream); DoConnect(Stream);
end; end;
except except
@ -1050,13 +1048,14 @@ end;
TInetServer TInetServer
---------------------------------------------------------------------} ---------------------------------------------------------------------}
Constructor TInetServer.Create(APort: Word); constructor TInetServer.Create(APort: Word);
begin begin
Create('0.0.0.0', aPort); Create('0.0.0.0', aPort);
end; end;
Constructor TInetServer.Create(const aHost: string; const APort: Word; AHAndler : TSocketHandler = Nil); constructor TInetServer.Create(const aHost: string; const APort: Word;
AHandler: TSocketHandler);
Var S : longint; Var S : longint;
@ -1069,7 +1068,7 @@ begin
Inherited Create(S,AHandler); Inherited Create(S,AHandler);
end; end;
Procedure TInetServer.Bind; procedure TInetServer.Bind;
begin begin
Faddr.sin_family := AF_INET; Faddr.sin_family := AF_INET;
@ -1080,7 +1079,7 @@ begin
FBound:=True; FBound:=True;
end; end;
Function TInetServer.SockToStream (ASocket : Longint) : TSocketStream; function TInetServer.SockToStream(ASocket: Longint): TSocketStream;
Var Var
H : TSocketHandler; H : TSocketHandler;
A : Boolean; A : Boolean;
@ -1107,7 +1106,7 @@ begin
ShutDownH; ShutDownH;
end; end;
Function TInetServer.Accept : Longint; function TInetServer.Accept: Longint;
Var Var
L : longint; L : longint;