paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 07:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-net: no ESocketError after closing the connection

Browse Source
This commit is contained in:
mattias 2022-02-25 19:15:22 +01:00
parent 6b8ab2c4d2
commit d36761f4a4
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -856,7 +856,10 @@ begin
Result:=Nil;
NewSocket:=Accept;
if (NewSocket<0) then
Raise ESocketError.Create(seAcceptFailed,[Socket,SocketError]);
if not FAccepting then
exit
else
Raise ESocketError.Create(seAcceptFailed,[Socket,SocketError]);
If FAccepting and DoConnectQuery(NewSocket) Then
Result:=SockToStream(NewSocket)
else

4
packages/fcl-web/src/websocket/fpwebsocket.pp
View File

@ -164,8 +164,6 @@ type
{$INTERFACES CORBA}
{ TWSTransport }
{ IWSTransport }
IWSTransport = Interface
@ -1635,7 +1633,7 @@ begin
else if ReadMessage then
Result:=irOK
else
Result:=irClose
Result:=irClose;
end;
constructor TWSClientConnection.Create(aOwner: TComponent; aTransport: TWSClientTransport; aOptions : TWSOptions);