Yo tengo este programa, miren (lean los comentarios porfavor)
' gambas module file
Public TCP As Socket
Public Sstring As String
Public Cantidad As Integer
Public Sub Main()
TCP = New Socket
TCP.Connect("miservidor-ejemplo.com", 42352)
Do While (TCP.Status <7> 0)
Wait 0.1
Loop
If TCP.Status <> 7 Then
Print "Error"
Quit
Endif
Sstring = "Hola\r\n\r\n"
Write #TCP, Sstring, Len(Sstring)
Do While Lof(TCP) = 0
Wait 0.1
Loop
If Cantidad < 4 Then ' Aqui empieza la parte del codigo que yo suponia que iba a crear nuevas conexiones en el mismo servidor
Cantidad = Cantidad + 1
Main()
Endif ' Y aqui termina
Do While TCP.Status <> 0
Read #TCP, Sstring, Lof(TCP)
Wait 0.1
Loop
End
Public TCP As Socket
Public Sstring As String
Public Cantidad As Integer
Public Sub Main()
TCP = New Socket
TCP.Connect("miservidor-ejemplo.com", 42352)
Do While (TCP.Status <7> 0)
Wait 0.1
Loop
If TCP.Status <> 7 Then
Print "Error"
Quit
Endif
Sstring = "Hola\r\n\r\n"
Write #TCP, Sstring, Len(Sstring)
Do While Lof(TCP) = 0
Wait 0.1
Loop
If Cantidad < 4 Then ' Aqui empieza la parte del codigo que yo suponia que iba a crear nuevas conexiones en el mismo servidor
Cantidad = Cantidad + 1
Main()
Endif ' Y aqui termina
Do While TCP.Status <> 0
Read #TCP, Sstring, Lof(TCP)
Wait 0.1
Loop
End
Este programa que yo hice lo que hace es que reinicia la conexion pero no me crea nuevas conexiones que es lo que yo quiero lograr. Yo quiero que el programa en vez de reiniciar la conexion, me cree otras conexiones nuevas en el mismo servidor. Porfavor, me podrian dar un ejemplo de como se hace correctamente?.
Y si por si acaso necesitan mas informacion (sobre mi OS, version del gambas, etc.) aqui esta
Manjaro Linux 0.8.10-i686
gambas 3.5.3
Openbox
gb, gb.form, gb.gui, gb.image, gb.net, gb.net.curl, gb.net.smtp
Ningun mensaje de error, es solo que no se como hacer lo que explique
No se como crear varias conexiones tcp en el mismo servidor usando un solo programa
NIngun error
Pues probe eso que señale en el comentario del codigo fuente que les mostre