| Properties | Methods | Events | |||
| ByteOrder EndOfFile EndOfLine Handle Host Id LocalHost LocalPort /comp/gb.net/socket/path Port RemoteHost RemotePort Status | Close Connect Peek | Closed Error Found Read Ready |
This class performs its work asynchronously, so the program will not be stopped while connecting, sending or receiving data.
This class is a derived from the class Stream, so you can use standard Stream & Input/Output functions to send and receive data, and to close the socket.
Sockets can be used if the library "gb.net" is included in the project. To include this library use the menu [Project] [Properties] [Components] tick the component "gb.net".
' Gambas class file
PUBLIC MySock AS Socket
PUBLIC SUB Button1_Click()
DIM sBuf AS String
MySock = NEW Socket
MySock.Connect("localhost", 7000)
DO WHILE (MySock.Status <> 7) AND (MySock.Status > 0)
WAIT 0.1
LOOP
IF MySock.Status <> 7 THEN
PRINT "Error"
QUIT
END IF
sBuf = "Hello over there.\n"
WRITE #MySock, sBuf, Len(sBuf)
DO WHILE Lof(MySock) = 0
WAIT 0.1
LOOP
READ #MySock, sBuf, Lof(MySock)
PRINT sBuf
CLOSE #MySock
END