论坛 › 『 提问交流 』 › TCP监听的放在循环的那个位置?小问题,请教大家

xtanxin 发表于 2011-8-25 23:19:56

TCP监听的放在循环的那个位置?小问题,请教大家

Global $ServerPORT=8880
Global $ClientPort=8888


TCPStartup()
$MainSocket = TCPListen(@IPAddress1, $ClientPort,100)
If $MainSocket = -1 Then Exit


While 1       
        Local $msg = TrayGetMsg()
        NetPortMonitor()        ;监听端口的函数放这里对吗?
        Select
                Case $msg = 0
                        ContinueLoop                       
                Case $msg = $exititem
                        ExitLoop
        EndSelect
WEnd

TCPShutdown()


ProcessClose(@AutoItPID)

Func NetPortMonitor();TCP端口监听命令接收       
        $ConnectedSocket = TCPAccept($MainSocket)       
        If $ConnectedSocket >= 0 Then ;与客户端连接成功
                $rev = TCPRecv($ConnectedSocket,2048)
                If StringLen($rev) > 0 Then       
                        ClientRevCommand($rev)                                       
                        TCPCloseSocket($ConnectedSocket)
                        $ConnectedSocket = -1
                EndIf
        EndIf       
        TCPCloseSocket($ConnectedSocket)
EndFunc
我放在上面循环结构的位置,结果造成很卡,其他功能没有办法流畅运行了.怎么处理更好呢?
在线等......

sunafter 发表于 2011-8-26 00:48:06

while 1
select
.........
endselect
$ConnectedSocket = TCPAccept($MainSocket)
If $ConnectedSocket >= 0 Then
   while 1
                $rev = TCPRecv($ConnectedSocket,2048)
                If StringLen($rev) > 0 Then      
                ................
   Wend
endif
Wend

xtanxin 发表于 2011-8-26 01:09:41

我删去了接受的while,这个是关键?

其他的

Case Else
    我把调用函数,放这里了.也可以吧.

不过感觉和在select 语句外面,是一个效果吗?

查看完整版本: TCP监听的放在循环的那个位置?小问题,请教大家