使用delphi webservice删除表中的数据

Question

我的delphi程序有这个问题。我想使用以下请求网址删除表中的数据：http://localhost:8001/delete/woodSpecie?json={"SessionID":"MVykZKX31d19dYnywxsXM1MdPy0U7VW8","wood_specie_id":"80"}

我实际上正在创建一个网络服务。

以下是我的delphi代码：

dm.SessionValidate(SessionID);

dshWoodSpecie := TDSHandlerWoodSpecie.Create(nil, dm);

try
  if dshWoodSpecie.Dataset.isEmpty then
    raise Exception.Create('Wood Specie table is empty.')
  else
  begin
    if Params.Field['wood_specie_id'] = nil then
    begin
      raise Exception.Create('Wood Specie ID is empty.');
    end
    else
    begin
      dshWoodSpecie.AddFilter('wood_specie_id', sqlcmprEqual,
        Params.Field['wood_specie_id'].Value);
    end;
    dshWoodSpecie.ExecSQLWhereHaving;
    dshWoodSpecie.Delete;
    dshWoodSpecie.ApplyUpdates;
  end;
finally
  dshWoodSpecie.Free;
end;

发生的事情是它会返回此错误消息：

-
error: {
    msg: "Server Error: Wood Specie table is empty."
    class: "EDatabaseError"
}

我真的不知道出了什么问题。我无法删除，而且我的表首先不为空。 而且，我无法看到所有的例外情况。

Answer 1

从你的问题来看，不可能说出为什么你的表可能是空的，但我的预感是 webService 调用是无状态的，并且你认为你正在访问的数据集实例超出了你的调用上下文的范围，并且你而是获取一个新的空实例。

您应该跟踪“dshWoodSpecie := TDSHandlerWoodSpecie.Create(nil, dm);”并在运行时检查实例的状态。

至于调试：如果您正在运行 Web 调试应用程序，您可以像使用任何 exe 一样进行跟踪 - 但如果您在真实的 Web 服务器（即 IIS）中运行，则在虚拟中构建 Web 服务 DLL目录本身，启动 Web 服务进程，然后使用 run->attach to process 附加到它。

如果您需要有关如何调试的更多信息，请告诉我们您正在运行的 Delphi 版本以及如何部署您的 webService。

“我无法看到所有异常”

你是什么意思？如果数据集为空，您应该看到一个异常 - 一旦抛出该异常并且未处理（如您的代码中），就没有更多可看的 - 您的调用堆栈会因第一个未处理的期望而终止。

华泰