[Сеть, интернет] Помогите запустить сервер на много подключений

[max1300]

вот имеется такой код
код сервера,мне нужно чтобы на сервер подключилось больше ну предположим человек а не один ну например 30 или 3 человека

TCPStartup()

$duyay = TCPListen(@IPAddress1,80)

Do

$bro = TCPAccept($duyay)

Until $bro <> -1  ;пропускает только одно подключение 

TCPShutdown()

 

[firex]

#Include <Array.au3>

Local $aClients[50] = [ 0 ]

TCPStartup()
$duyay = TCPListen(@IPAddress1,80)

While 1
	If $aClients[0] < 30 Then ;30 клиентов
		$bro = TCPAccept($duyay)
		If $bro <> -1 Then
			$Idx = $aClients[0] + 1
			; -
			$aClients[0] = $Idx
			$aClients[$Idx] = $bro
		EndIf
	EndIf

	For $Idx = 1 To $aClients[0] Step 1
		;Получаем данные с этого клиента
		TCPRecv( $aClients[$Idx] ...

		; ...

		;Отключаем этого клиента
		If ... Then
			TCPCloseSocket( $aClients[$Idx] )
			_ArrayDelete( $aClients, $Idx )
			$aClients[0] -= 1
		EndIf
	Next
WEnd

TCPShutdown()

 

[alex33]

Вот и я написал код (писал быстро, не проверял).

Global $duyay, $bro, $aConnections[0]
TCPStartup()

$duyay = TCPListen(@IPAddress1,80)

While 1
If UBound($aConnections) >= 10 Then ExitLoop; установить лимит в 10 подключений
$bro = TCPAccept($duyay)
If $bro <> -1 Then
ReDim $aConnections[UBound($aConnections)+1]
$aConnections[UBound($aConnections)-1] = $bro
ConsoleWrite("New connection: "&UBound($aConnections)&@CRLF)
EndIf
WEnd

 

[max1300]

проверим



Добавлено:

Сообщение автоматически объединено: 3 Янв 2015

алекс ты не мог бы написать то же самый код но со считыванием данных с клиента

 

[firex]

max1300
Держи, полагаю в таком быдло-виде тебе проще усвоить:

#Include <Array.au3>

Local $aClients[50] = [ 0 ]

TCPStartup()
$duyay = TCPListen("127.0.0.1",1337)
While 1
If $aClients[0] < 30 Then ;30 клиентов
$bro = TCPAccept($duyay)
If $bro <> -1 Then
$Idx = $aClients[0] + 1
$aClients[0] = $Idx
$aClients[$Idx] = $bro
EndIf
EndIf
For $Idx = 1 To $aClients[0] Step 1
$sRecv = TCPRecv( $aClients[$Idx], 1024 )
Switch @error
Case -1
;Клиент молчит
Case 0
If $sRecv = "disconnect" Then
ContinueCase
Else
ConsoleWrite( $Idx & " Принято: " & $sRecv & @CRLF )
EndIf
Case Else
ConsoleWrite( $Idx & "Отключен" & @CRLF )
TCPCloseSocket( $aClients[$Idx] )
_ArrayDelete( $aClients, $Idx )
$aClients[0] -= 1
EndSwitch
$sRecv = ''
Next
WEnd
TCPShutdown()

 

[max1300]

файрекс твой прошлый код содержал много синтаксических ошибок :stars: