PB_Includes
/
lweb
1
0
Fork 0
Code Issues 3 Pull Requests Projects 1 Releases 2 Wiki Activity

Add CloseSocket(SocketID)

This commit is contained in:
René Linder 2020-11-28 13:27:43 +01:00
parent e8f9161fad
commit 4f81308f22
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lsocket.pbi
View File

@ -41,7 +41,7 @@ DeclareModule lsocket
Declare WaitSocket(ServerSocket.i) ;Return new SocketID
Declare ReadSocket(ClientSocket.i, *Buffer, Length.i) ;Return Effective Read
Declare WriteSocket(ClientSocket.i, *Buffer, Length.i) ;Return Effective Writen
Declare CloseSocket(Socket.i)
EndDeclareModule
Module lsocket
@ -82,18 +82,22 @@ Module lsocket
ProcedureReturn ClientSID
EndProcedure
Procedure ReadSocket(ClientSocket.i, *Buffer, Length.i) ;Return Effective Read
Procedure ReadSocket(ClientSocket.i, Buffer, Length.i) ;Return Effective Read
Protected Effective.i
Effective = read_(ClientSocket, *Buffer, Length)
Effective = read_(ClientSocket, Buffer, Length)
ProcedureReturn Effective
EndProcedure
Procedure WriteSocket(ClientSocket.i, *Buffer, Length.i) ;Return Effective Writen
Procedure WriteSocket(ClientSocket.i, Buffer, Length.i) ;Return Effective Writen
Protected Effective.i
Effective = write_(ClientSocket, *Buffer, Length)
Effective = write_(ClientSocket, Buffer, Length)
ProcedureReturn Effective
EndProcedure
Procedure CloseSocket(Socket.i)
close_(Socket)
EndProcedure