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

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

Func  ex1()

    TCPCloseSocket($iSocket)

    TCPShutdown()

EndFunc

Thanks！

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

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

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

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

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

		自动登录	找回密码
密码			加入

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

相关帖子