lamant 发表于 2014-7-2 16:39:02

（已解决）服务端收不到客户端发过来的数据，请帮忙看看代码吗

本帖最后由 lamant 于 2014-7-2 17:27 编辑

Opt('TrayAutoPause', 0)

TCPStartup()

OnAutoItExitRegister("ex1")

Local $iSocket = TCPListen("192.168.4.123", 65432)

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

Local $sRecv, $StringRev

While 1

   $sRecv = TCPRecv($iSocket, 2048)

    If $sRecv <> "" Then

    $StringRev = $sRecv

    $StringRev = BinaryToString($sRecv, 4)

    MsgBox(0,"提示",$StringRev)

    EndIf

WEnd

Funcex1()

    TCPCloseSocket($iSocket)

    TCPShutdown()

EndFuncThanks！

shqf 发表于 2014-7-2 17:08:09

缺少TCPAccept()，怎能行呢？
帮助里有许多现成的例子啊。

lamant 发表于 2014-7-2 17:26:59

回复 2# shqf
谢谢楼上！
看过了很多帮助文档，还是没想到~~~

joyran 发表于 2014-7-2 21:38:25

{:face (382):}
页: [1]
查看完整版本: （已解决）服务端收不到客户端发过来的数据，请帮忙看看代码吗