IntraWeb 表单可以按需同步吗？

Question

场景：我有一个 Delphi Intraweb 应用程序，屏幕上有一些编辑组件和按钮。在 TIWEdit.OnAsyncExit 和 TIWButton.OnClick 中设置了一个标志，应用程序中的另一个线程根据标志和一些其他应用程序数据设置按钮的启用属性。

当设置 TIWButton.Enabled 属性时，请求已经完成，并且下一个交互被取消，因为 IW 发现内部表示和 HTML 表单不同步。它会重新同步，您必须再次单击。

我想根据需要以某种方式刷新屏幕。

• 确定两者是否同步并发出刷新的计时器在流量和计时方面存在缺陷（我可以在计时器运行之前单击按钮）。
• 如果有一个可以推送数据的方法就太好了。
• 也许 IW 有可能在不取消我刚刚提交的操作的情况下进行非保存同步。

由于我的屏幕是模型驱动构建的（我无法预测屏幕上将出现哪些组件以及组件之间的相互依赖关系是什么，即业务逻辑中的依赖关系），因此我无法添加 JavaScript 来根据用户操作启用或禁用按钮。

Answer 1

我不完全确定你的问题是否与我的相同，但我认为有很多共同点。请参阅我在 Intraweb 论坛中发布的演示项目 (v2)。

根据 Jackson Gomes 的一些评论，我在长时间运行的线程启动之前启用 TIWTimer，并在线程结束后禁用它。请参阅：http://forums3.atozed.com/IntraWeb.aspx (atozedsoftware.intraweb.附件），线程“通过线程更新 IWLabel”，2009 年 10 月 15 日。OnASync

计时器事件每 500 毫秒触发一次，并使用一些带宽。在我的情况下可以接受（公司内网）。

格特

Answer 2

您可以使用 IWElite 组件包中的 Interop Web 模块。

本质上，您可以使用 XMLHTTPRequest (XHR) 对象编写一些 Javascript 来调用 IW 应用程序的 Web 模块操作，该操作会在处理完成时返回。如果您需要 IW 应用程序在进程运行时继续正常运行，您的 Javascript 可以打开一个进度窗口并从那里进行 XHR 调用。

IW 精英可以在这里找到：
http://code.google.com/p/iwelite/

XHR 请求将如下所示像这样：

function NewXHR() {
  if (typeof XMLHttpRequest == "undefined") {
    try { return new ActiveXObject('Msxml2.XMLHTTP.6.0');} catch(e) {}
    try { return new ActiveXObject('Msxml2.XMLHTTP.3.0');} catch(e) {}
    try { return new ActiveXObject('Msxml2.XMLHTTP');} catch(e) {}
    try { return new ActiveXObject('Microsoft.XMLHTTP');} catch(e) {}
    throw new Error('AJAX not supported in this browser.');
  } else {
    return = new XMLHttpRequest();
}

var xhr = NewXHR();
xhr.open("get", '/mywebaction', false);
xhr.send(null);
window.alert(xhr.responseText);

上面的代码将阻塞并等待响应。如果您希望它异步运行，您可以执行以下操作：

var xhr = NewXHR();
xhr.open("get", '/mywebaction', true);
xhr.onreadystatechange = function() {
  if(xhr.readyState == 4) {
    if ((xhr.status == 200) || (xhr.status == 304) || (xhr.status === 0)) {
      window.alert('Success: '+xhr.responseText);
    } else {
      window.alert('Error: ('+xhr.status+') '+xhr.statusText;
    }
  }
};
xhr.send(null);