[网络通信] (已解决)一个服务端、客户端，Socket正常，但不能接受到客户端数据。 SOS...

Opt('TrayAutoPause', 0)

ssetup()

Func ssetup()

    TCPStartup()

    Global $S_IP, $S_Port, $iSocket

    $S_IP = IniRead("iP.ini", "服务器地址", "IP", "")

    $S_Port = IniRead("iP.ini", "服务器地址", "Port", "")

    $iSocket = TCPListen($S_IP, $S_Port)

    If $iSocket = -1 Then Exit ; 创建监听不成功就退出

EndFunc

Local $sRecv, $StringRev, $ConnectedSocket

While 1

   $ConnectedSocket = TCPAccept($iSocket)

    If $ConnectedSocket <> -1 Then

       MsgBox(0,"服务端检测到连接", "binggo!")

           while 1

              $sRecv = TCPRecv($iSocket, 2048)

              If $sRecv <> "" Then

             MsgBox(0,"服务端接收到数据", "binggo!") ;接收到不为空的数据，弹框提示！ 可是这个框框从来没有弹出来过！

                 $StringRev =  BinaryToString($sRecv, 4)

             MsgBox(0,"服务端提示",$StringRev) ;弹框提示客户端传来的读取到的最后一行文本。也是从来没有成功过！

              EndIf

       WEnd

        EndIf

WEnd

;OnAutoItExitRegister("ex1") ；因为服务端要常开，因此不需要此段？

;Func  ex1()

    ;TCPCloseSocket($iSocket)

    ;TCPShutdown()

;EndFunc

#include <WinAPIFiles.au3>

#include <APIFilesConstants.au3>

#include <WinAPI.au3>

#include <MsgBoxConstants.au3>


Opt('TrayAutoPause', 0)

Global Const $sPath = "D:\AutoIt3"

Global $hObj[1]

$hObj[0] = _WinAPI_FindFirstChangeNotification($sPath, $FILE_NOTIFY_CHANGE_LAST_WRITE)

Local $tObj = DllStructCreate('ptr;ptr')

Local $pObj = DllStructGetPtr($tObj)

DllStructSetData($tObj, 1, $hObj[0])

TCPStartup()

;OnAutoItExitRegister("ex1")

Global $S_IP, $S_Port, $iSocket

$S_IP = IniRead("iP.ini", "服务器地址", "IP", "")

$S_Port = IniRead("iP.ini", "服务器地址", "Port", "")

$iSocket = TCPConnect($S_IP, $S_Port)

If $iSocket = -1 Then Exit

Local $ID, $sFileRead, $str1, $strl_1

$Str1 = 1

While 1

        Sleep(100)

    $ID = _WinAPI_WaitForMultipleObjects(1, $pObj, 0, 0)

    Switch $ID

        Case 0

           $sFileRead = FileReadLine("D:\AutoIt3\1.txt",-1)

                   if  $sFileRead <> $Str1 Then ;与上一次读取的最后一行比较，如果不一样就输出

                            MsgBox(0,"客户端提示",$sFileRead) ;程序运行正常，这个框框读取的值是正确的。

                                $str1 = $sFileRead

                            $str1_1 = StringToBinary($sFileRead, 4)

                            TCPSend($iSocket, $str1_1) ;发送读取到的最后一行文本到服务端,好像没有发送出去

                   EndIf

        Case Else

            ContinueLoop

    EndSwitch

    If Not _WinAPI_FindNextChangeNotification($hObj[0]) Then Exit

WEnd

Func  ex1()

    TCPCloseSocket($iSocket)

    TCPShutdown()

EndFunc