Socket (gb.net)
这个类用于套接字客户机,允许你的程序与套接字服务器连接。实现了TCP和本地(Unix套接字)连接。
属性
Inherited properties
方法
Inherited methods
事件
Socket采用异步执行方式,因此当处于连接、发送或接收数据时不会停止程序。
这个类派生自类
Stream,因此你可以使用标准的
流与输入/输出功能来发送和接收数据,并关闭套接字。
如果项目中包含组件库“gb.net”,则可以使用套接字。
要包含此组件库,请使用菜单[Project][Properties][Components]并勾选组件“gb.net”。
Example
' 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 <> Net.Connected) AND (MySock.Status > 0)
WAIT 0.1
LOOP
IF MySock.Status <> Net.connected 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
关于本示例的备注:
-
尽管这里显示使用了轮询,但你确实应该使用回调功能来对不同的状态做出反应。
-
请参阅 网络编程, 有关使用网络编程的教程。 这个例子的每一行都有注释。
-
在发行版的网络例程中还有另外一个例子:ClientSocket.