1

我想在我的应用程序中设置一个需要永久循环的 Web 服务器。循环中的waits 允许 GUI 继续处理界面事件。

但是如果我启动循环，那么我就不能退出它来启动 GUI。

如果我已经在 GUI 中，那么虽然我可以使用按钮让用户启动 Web 服务器，但我想自动执行此操作。

我尝试在 RebGUI 中将 Web 服务器代码附加到一个按钮，然后：

开始：按钮“开始”[永远[..网络服务器代码...]]

后来开始使用

开始/动作​​/点击开始

但这不起作用。

4

1 回答 1

2

在网络服务器的永远循环中，您可以在某些情况发生时启动 gui。

或者，如果您想已经在 GUI 中，请为您的 gui 创建一个循环（包括短暂的等待），并在某些情况发生时启动 webserver 循环。

例如：

REBOL [
    purpose: {Demonstrate breaking from one event loop to go to another.}
]

view/new layout [
    origin 0
    h1 400 rate 1 feel [
        engage: func [face act evt] [
            face/text: reform [now/time mode]
            show face
        ]
    ]
] 200x100

mode: "Initial Loop"
started: now
while [now < (started + 00:00:04)] [
    wait 0.1
]

mode: "Final Loop"
wait none
于 2014-07-19T04:27:17.747 回答