Gambas文档
编译和安装
错误消息
代码片段
翻译
废弃的组件
教程
开发环境文档
开发文档
名词解释
如何操作
说明
维基手册
维基搜索
维基许可协议
文档
应用程序仓库
语言概览
语言索引
主题
组件
gb
gb.args
gb.cairo
gb.chart
gb.clipper
gb.complex
gb.compress
gb.crypt
gb.data
gb.db
gb.db.form
gb.db.mysql
gb.db.odbc
gb.db.postgresql
gb.db.sqlite2
gb.db.sqlite3
gb.dbus
gb.dbus.trayicon
gb.debug
gb.desktop
gb.desktop.x11
gb.eval
gb.eval.highlight
gb.form
gb.form.dialog
gb.form.editor
gb.form.htmlview
gb.form.mdi
gb.form.print
gb.form.terminal
gb.gmp
gb.gsl
gb.gtk
gb.gtk3
gb.gtk3.opengl
gb.gtk3.webview
gb.gui
gb.gui.qt
gb.gui.qt.ext
gb.gui.trayicon
gb.gui.webview
gb.hash
gb.highlight
gb.image
gb.image.effect
gb.image.io
gb.inotify
gb.logging
gb.map
gb.media
gb.media.form
gb.mime
gb.mysql
gb.ncurses
gb.net
DnsClient
Net
SerialPort
ServerSocket
Socket
UdpSocket
gb.net.curl
gb.net.pop3
gb.net.smtp
gb.opengl
gb.opengl.glsl
gb.opengl.glu
gb.opengl.sge
gb.openssl
gb.option
gb.pcre
gb.pdf
gb.poppler
gb.qt4
gb.qt4.ext
gb.qt4.opengl
gb.qt4.webkit
gb.qt4.webview
gb.qt5
gb.qt5.ext
gb.qt5.opengl
gb.qt5.webview
gb.qt6
gb.qt6.ext
gb.qt6.opengl
gb.qt6.webview
gb.report
gb.report2
gb.sdl
gb.sdl2
gb.sdl2.audio
gb.settings
gb.signal
gb.term
gb.test
gb.util
gb.util.web
gb.v4l
gb.vb
gb.web
gb.web.feed
gb.web.form
gb.web.gui
gb.xml
gb.xml.html
gb.xml.rpc
gb.xml.xslt
最近的修改

Socket (gb.net)

这个类用于套接字客户机,允许你的程序与套接字服务器连接。实现了TCP和本地(Unix套接字)连接。

该类继承于 Streamgb中.

该类是可创建

属性
Host  
LocalHost  
LocalPort  
Path  
Port  
RemoteHost  
RemotePort  
Server  
Status  
StatusText  
Timeout  

Inherited properties
Blocking  
ByteOrder  
EndOfFile  
EndOfLine  
Eof  
Handle  
IsTerm  
Lines   Dim hFile As File Dim sLine As String
NoShare  
NullTerminatedString  
Tag  
Term  

方法
Connect  
Peek  

Inherited methods
Begin  
Close  
Drop  
ReadLine  
Send  
Watch  

事件
Closed  
Error  
Found  
Read  
Ready  
Write  

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.