Ciao,
Avrei bisogno di qualche esempio per l'utilizzo del ServerSocket e del Socket.
Avrei la necessità di passare informazioni da un client al server usando una connessione TCPIP
Ho provato ad utilizzare gli esempi della documentazione relativi a gb.net sia per il server che per il client ma ho problemi, ad esempio usando la classe ClsServer:
' Gambas class file
STATIC Server AS ClsServer
PUBLIC Clients AS Object[]
PUBLIC Srv AS ServerSocket
PUBLIC SUB Socket_Read()
DIM sCad AS String
READ #LAST,sCad,Lof(LAST)
PRINT "Received data -->" & sCad
WRITE #LAST,"bye",3
END
PUBLIC SUB Socket_Closed()
PRINT "Connection closed"
Clients.Remove(Clients.Find(LAST))
END
PUBLIC SUB Srv_Connection(Host AS String)
DIM MySock AS Socket
PRINT "Accepting connection from --> " & Host
MySock=Srv.Accept()
Clients.Add(MySock)
END
PUBLIC SUB _New()
Clients =NEW Object[]
Srv=NEW ServerSocket AS "Srv"
Srv.Port=3450
Srv.Type=ServerSocket.Internet
Srv.Listen()
END
STATIC PUBLIC SUB Main()
Server=NEW ClsServer
END
se eseguo il codice mi va in errore sulla linea:
Srv.Type=ServerSocket.Internet
posso proseguire solo se cambio in
Srv.Type=1
all'esecuzione mi ritrovo con un messaggio di Warning: circular references detected.
Nelle proprietà del progetto ho solo i riferiemnti a gb, gb.form, gb.gui e gb.net
Serve qualche cosa in più?
Sto eseguendo Gambas su Ubuntu8.04 in VirtualBox su Vista.
Grazie
