启动服务器失败！是哪里出问题了吗

淡墨寻思

<火山程序 类型 = "通常" 版本 = 1 />

类 我的主窗口 <基础类 = 窗口 注释 = "样例主窗口" 折叠2 @视窗.布局 = "client_size = \"645, 402\"" 标题 = "我的主窗口">
{
    变量 按钮_关闭服务 <类型 = 按钮 折叠2 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"21, 62, 80, 40\"" 标题 = "关闭服务器">
    变量 按钮_启动服务 <类型 = 按钮 折叠2 隐藏值属性 = "0" @视窗.布局 = "id = 102\r\npos = \"21, 14, 80, 40\"" 标题 = "启动服务器">
    变量 编辑框_日志 <类型 = 编辑框 折叠2 隐藏值属性 = "0" @视窗.布局 = "id = 103\r\npos = \"109, 14, 528, 88\"" 是否允许多行 = 真
            滚动条 = 纵向滚动条 对齐方式 = 左边 禁止 = 真>
    变量 HPTCP <类型 = HPSocket_TcPull服务>
    变量 全_服务句柄 <类型 = 变整数>

    方法 我的主窗口_创建完毕 <接收事件 类型 = 整数 注释 = "当本组件及其中所有子组件均被创建完毕后发送此事件.">
    参数 来源对象 <类型 = 我的主窗口 注释 = "提供事件产生的具体来源对象">
    参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
    {
        按钮_关闭服务.禁止 = 真
        HPTCP.创建监听器 ()
        全_服务句柄 = HPTCP.创建服务 ()
        HPTCP.绑定监听事件 ()

        返回 (0)
    }

    方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件">
    参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象" 折叠>
    参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
    {
        如果 (来源对象 == 按钮_启动服务)
        {
            如果 (HPTCP.启动服务 (全_服务句柄, "0.0.0.0,9550", ) == 真)
            {
                编辑框_日志.加入文本行 ("服务器启动成功！")
                按钮_启动服务.禁止 = 真
                按钮_关闭服务.禁止 = 假
            }
            否则
            {
                编辑框_日志.加入文本行 ("服务器启动失败！")

            }
        }
        否则 (来源对象 == 按钮_关闭服务)
        {
            如果 (HPTCP.关闭服务 (全_服务句柄) == 真)
            {
                编辑框_日志.加入文本行 ("服务器关闭成功！")
                按钮_关闭服务.禁止 = 真
                按钮_启动服务.禁止 = 假
            }
            否则
            {
                编辑框_日志.加入文本行 ("服务器关闭失败！")

            }
        }
        返回 (0)
    }

    方法 HPSocket_TcPull服务_客户进入事件函数 <接收事件 类型 = 整数>
    参数 来源对象 <类型 = HPSocket_TcPull服务 注释 = "提供事件产生的具体来源对象" 折叠>
    参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
    参数 服务句柄 <类型 = 变整数>
    参数 连接ID <类型 = 变整数>
    参数 客户套接字 <类型 = 变整数>
    {
        如果 (来源对象 == HPTCP)
        {
            编辑框_日志.加入文本行 ("用户已连接,ID是；" + 到文本 (连接ID))


        }
        返回 (0)
    }

    方法 HPSocket_TcPull服务_连接断开事件函数 <接收事件 类型 = 整数>
    参数 来源对象 <类型 = HPSocket_TcPull服务 注释 = "提供事件产生的具体来源对象" 折叠>
    参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
    参数 服务句柄 <类型 = 变整数>
    参数 连接ID <类型 = 变整数>
    参数 操作码 <类型 = 整数>
    参数 错误代码 <类型 = 整数>
    {
        如果 (来源对象 == HPTCP)
        {
            编辑框_日志.加入文本行 ("用户已断开,ID是；" + 到文本 (连接ID))

        }
        返回 (0)
    }

    方法 HPSocket_TcPull服务_收到数据事件函数 <接收事件 类型 = 整数>
    参数 来源对象 <类型 = HPSocket_TcPull服务 注释 = "提供事件产生的具体来源对象">
    参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
    参数 服务句柄 <类型 = 变整数>
    参数 连接ID <类型 = 变整数>
    参数 数据指针 <类型 = 变整数>
    参数 数据大小 <类型 = 整数>
    {
        变量 字节集 <类型 = 字节集类>
        字节集 = HPTCP.抓取数据 (服务句柄, 连接ID, 数据大小)
        编辑框_日志.加入文本行 ("用户数据；" + UTF8到文本 (字节集))
        如果 (来源对象 == HPTCP)
        {
            HPTCP.发送字节集 (全_服务句柄, 连接ID, 文本到UTF8 ("1", ))
        }
        返回 (0)
    }
}

创世魂

端口被占用