Question

我的应用程序使用一些Web服务。呼叫段在下面。

try
  intf := getInterface(urlString);
  request := TransaccionWS1.VentaDispositivoConvenioWSINTO.Create;
  // here request field are initiated
  //
  //
  AddToLogFile(format('Transaction Send: tid=%s authid=%s prod=%s',
    [request.idExterno, request.nroReserva, elem.codProducto]), log_debug);

  rs := intf.ventaDispositivoConvenio(request);
  AddToLogFile(format('Transaction Recv: OK=%d result=%s auth_result=%s ' +
              'descr=%s ticketnr=%s amount=%s text=%s',
    [ord(rs.OK), rs.codigoRetorno, rs.codigoAutorizacion, rs.descripcionRetorno,
     rs.nroTicket, rs.importeTicket, rs.textoLegal]), log_debug);
except
  on e:exception do begin
    AddToLogFile(format('**** Transaction: %s', [e.message]), log_exceptions);
    raise;
  end
end;

一般来说它工作正常但有时候我有问题我可以在log＆＃39; Transaction Send＆＃39;中看到但是看不到没有＆＃39; Transaction Recv＆＃39;也不例外。

另一件我无法解释的事情，有时候我会在日志中看到

03/01/2014 14：32：35.453交易发送：tid = 266996 authid = 0000001958472 prod = 86

03/01/2014 14：36：09.046 ****交易：与服务器的连接已重置

此处异常在4分钟后引发，而客户端使用默认超时值30秒

可能有人指向哪里搜索？

Answer 1

你假设你的代码是错的，但也许它是环保的？使用SoapUI使用WSDL并运行一些测试以查看Web服务是否稳定且可访问。

Delphi soap客户端 - 服务器没有响应

1 个答案: