paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-05 22:47:11 +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;
interface
uses
@ -210,7 +209,7 @@ type
Public
Procedure Bind; Override;
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 Host : string Read FHost;
end;
@ -274,7 +273,6 @@ type
end;
{$endif}
Implementation
uses
@ -849,7 +847,7 @@ begin
Result:=fpSetSockOpt(FSocket,ALevel,AOptName,@optval,optlen)<>-1;
end;
Function TInetServer.GetConnection : TSocketStream;
function TInetServer.GetConnection: TSocketStream;
var
NewSocket : longint;
@ -903,7 +901,7 @@ begin
Stream:=Nil;
if Assigned(Stream) then
begin
Inc (NoConnections);
Inc(NoConnections);
DoConnect(Stream);
end;
except
@ -1050,13 +1048,14 @@ end;
TInetServer
---------------------------------------------------------------------}
Constructor TInetServer.Create(APort: Word);
constructor TInetServer.Create(APort: Word);
begin
Create('0.0.0.0', aPort);
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;
@ -1069,7 +1068,7 @@ begin
Inherited Create(S,AHandler);
end;
Procedure TInetServer.Bind;
procedure TInetServer.Bind;
begin
Faddr.sin_family := AF_INET;
@ -1080,7 +1079,7 @@ begin
FBound:=True;
end;
Function TInetServer.SockToStream (ASocket : Longint) : TSocketStream;
function TInetServer.SockToStream(ASocket: Longint): TSocketStream;
Var
H : TSocketHandler;
A : Boolean;
@ -1107,7 +1106,7 @@ begin
ShutDownH;
end;
Function TInetServer.Accept : Longint;
function TInetServer.Accept: Longint;
Var
L : longint;