java - 为什么从 TCL WS 客户端调用 java webservice 时返回额外的 header 信息

Question

我开始学习如何使用tclws通过TCL客户端调用JAX-WS Web服务API。我在 glassfish 服务器上部署了一个简单的计算 Web 服务(使用 java/jaxws/netbeans 编写)，它由我的 tcl Web 服务客户端成功调用。肥皂消息交换看起来很好。但是，在客户端调用 glassfish webservice 后，我收到额外的 header ，我不确定它是如何返回的、如何处理以及为什么它显示在我的屏幕上

set xns [dict get [::WS::Utils::GetServiceTypeDef Client CalculatorWS tns1:add] xns] definition {param1 {type xs:int comment {}} param2 {type xs:int comment {}}} xns tns1result is :7

here is my sample tcl ws client code:

package require WS::Client
::WS::Client::GetAndParseWsdl http://xxxx.xx.xx.com:8099/CalculatorWS/CalculatorWS?wsdl
set param1 5
set param2 2
set inputs [list param1 $param1 param2 $param2]
set result [ ::WS::Client::DoCall CalculatorWS add $inputs]
set res [dict get $result return]
puts "result is :$res"

任何人都可以帮助我如何防止打印/显示此标题吗？我错过了什么吗？

Answer 1

Johannes13 在评论中所说的话。

在我的旧版 tclws 上不会发生这种情况，但是下载最新版本时，只剩下一堆用于调试的 put 语句。这很奇怪，因为 tclws 使用日志包，并且代码中还有大量::log::log 调试语句，这将使打开/关闭变得更容易。

要解决您的问题，您可以只 grep tclws 包并删除这些行，或者用::log::log debug 替换这些 put 语句。这不是简单的搜索和替换，因为 tclws 确实使用 put 来写入服务器代码中的套接字。但如果您仅使用客户端，则 ClientSide.tcl 和 Utilities.tcl 文件中几乎没有足够的实例可供手动处理。