Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Opa galerinha, blza?
Meu problema é bastante complicado, não sei se conseguirão ajudar mas ai vai.
Tenho uma aplicação, que em determinado momento chamo um webservice para realizar algumas consultas e me retorna alguns dados do usuário.
O problema é que se fico uns 2 minutos sem utilizar o webservice, ao utilizá-lo, demora certa de 21s para retornar os dados, mas só na primeira vez, já na segunda, terceira o tempo tende a diminuir cada vez mais.
Abaixo o código da página ASP que chama e recebe os dados do webservice ...
<%
On Error Resume Next
'-- Query Customer Party
Dim objXmlHttp, strPOST, strRESPONSE, vCODE
Dim vANI, vIP_POST
'/ Criacao do Objeto XML para o POST
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.setOption(2) = SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
'/ Set Timeouts
lResolve = 30 * 1000
lConnect = 30 * 1000
lSend = 30 * 1000
lReceive = 30 * 1000
objXmlHttp.setTimeouts lResolve, lConnect, lSend, lReceive
'/APONTAMENTOS - release Julho de 2011
vIP_POST="https://XPTO" 'Producao
'Variaveis de entrada é o ID do cliente
p_numero = "XPTO"
'Preparando a String que será enviada na consulta
strPOST = "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:quer= 'http://xmlns.oracle.com/ABCSImpl/URA/QueryCustomerPartyURAReqABCSImpl'>"
strPOST = strPOST & " <soapenv:Header/>"
strPOST = strPOST & " <soapenv:Body>"
strPOST = strPOST & " <quer:QueryCustomerPartyReqMsg>"
strPOST = strPOST & " <quer:QueryCustomerParty>"
strPOST = strPOST & " <quer:Identification>" & p_numero & "</quer:Identification>"
strPOST = strPOST & " </quer:QueryCustomerParty>"
strPOST = strPOST & " </quer:QueryCustomerPartyReqMsg>"
strPOST = strPOST & " </soapenv:Body>"
strPOST = strPOST & "</soapenv:Envelope>"
'/ Instanciando conexão e enviando objeto
objXmlHttp.Open "POST", vIP_POST , False
objXmlHttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
Response.write "<BR>Inicio:" & Time()
objXmlHttp.Send(strPOST)
strRESPONSE = objXmlHttp.responseText
Response.write "<BR>Fim:" & Time()
response.write "<BR>Requisicao: " & strPOST & "<BR><BR>"Set objXmlHttp = Nothing
'Recuperando os dados do objeto
Dim xmlDoc
Set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.4.0")
xmlDoc.async= False
xmlDoc.setProperty "SelectionLanguage", "XPath"
xmlDoc.resolveExternals = False
xmlDoc.loadXML(strRESPONSE)
response.write "<BR>Retorno: " & strRESPONSE & "<BR><BR>"
xmlDoc.setProperty "SelectionNamespaces","xmlns='http://xmlns.oracle.com/ABCSImpl/URA/QueryCustomerPartyURAReqABCSImpl' xmlns:env='http://schemas.xmlsoap.org/soap/envelope/' xmlns:ns0='http://xmlns.oracle.com/ABCSImpl/URA/QueryCustomerPartyURAReqABCSImpl'"
If xmlDoc.parseError.errorCode <> 0 and len(strRESPONSE)=0 Then
response.Write "-------------------- ERRO ------------------ " & "<BR>"
Response.Write "Código do erro: "& xmlDoc.parseError.ErrorCode &"<br />"
Response.Write "Posição no arquivo: "& xmlDoc.parseError.FilePos &"<br />"
Response.Write "Linha: "& xmlDoc.parseError.Line &"<br />"
Response.Write "Posição na linha: "& xmlDoc.parseError.LinePos &"<br />"
Response.Write "Descrição: "& xmlDoc.parseError.Reason &"<br />"
Response.Write "Texto que causa o erro: "& xmlDoc.parseError.srcText &"<br />"
Response.Write "Arquivo com problemas: " & xmlDoc.parseError.URL' Get Items
erro = xmlDoc.documentElement.selectNodes("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ErrorCode/").text
erroMsg = xmlDoc.documentElement.selectNodes("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ErrorMessage/").text
''If (N = 0)Then 'Verificando se nao recebeu erro no XML
if (erro<>0) then
'Check for Error
response.Write "-------------------- RETORNO ------------------ " & "<BR>"
Response.Write "Código do erro: "& erro &"<br />"
Response.Write "Mensagem: "& erroMsg &"<br />"
Else
v_MemberNumber = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:MemberNumber").text
v_Name = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:Name").text
v_LoginName = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:LoginName").text
v_CPF = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:CPF").text
v_ContactId = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:ContactId").text
v_Email = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:Email").text
v_PontosVencer90Dias = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:PontosVencer90Dias").text
v_Status = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:Status").text
v_AvailablePoints = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:AvailablePoints").text
v_StreetName = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:StreetName").text
v_Number = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:Number").text
v_Complements = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:Complements").text
v_Neighbourhood = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:Neighbourhood").text
v_Municipality = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:Municipality").text
v_State = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:State").text
v_PostalCode = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:PostalCode").text
v_Country = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:Country").text
v_SiebelRowId = xmlDoc.selectSingleNode("/env:Envelope/env:Body/ns0:QueryCustomerPartyRespMsg/ns0:QueryCustomerPartyResponse/ns0:SiebelRowId").text
'response.Write (strRESPONSE)
response.Write "Member Number = " & v_MemberNumber & "<BR>"
response.Write "Name = " & v_Name & "<BR>"
response.Write "Login Name = " & v_LoginName & "<BR>"
response.Write "CPF = " & v_CPF & "<BR>"
response.Write "ContactId = " & v_ContactId & "<BR>"
response.Write "Email = " & v_Email & "<BR>"
response.Write "PontosVencer90Dias = " & v_PontosVencer90Dias & "<BR>"
response.Write "Status = " & v_Status & "<BR>"
response.Write "AvailablePoints = " & v_AvailablePoints & "<BR>"
response.Write "Number = " & v_Number & "<BR>"
response.Write "Complements = " & v_Complements & "<BR>"
response.Write "Neighbourhood = " & v_Neighbourhood & "<BR>"
response.Write "Municipality = " & v_Municipality & "<BR>"
response.Write "State = " & v_State & "<BR>"
response.Write "PostalCode = " & v_PostalCode & "<BR>"
response.Write "Country = " & v_Country & "<BR>"
response.Write "SiebelRowId = " & v_SiebelRowId & "<BR>"
vCODE = 0
End ifresponse.Write "<br>"
response.Write date & "<br>" & time%>
O meu ambiente de produção:
Já trocamos para Windows 2008, IIS 7.5, mas o problema persiste. A mesma biblioteca é utilizada em outro web service, que responde sempre que instantaneamente, portanto estou quase descartando a possibilidade dela ser o problema.
Alguém já enfrentou isso antes?
Grande Abraço!
Carregando comentários...