Error WS - Sin respuesta.

[iMia]

Buenas a todo@s...

Estoy teniendo un problema que me trae por el camino de la amargura....

En el en mensaje : https://www.clubdelphi.com/foros/sho...97&postcount=7 del hilo : https://www.clubdelphi.com/foros/showthread.php?t=95967 puse un ejemplo de utilización del servicio de validación de NIF/CIFs de la AEAT.

Me funciona perfectamente en muchos equipos que tengo en clientes, pero en varios de ellos no hay forma que funcione y me devuelve el error:

El documento XML debe tener un elemento de nivel superior
Line: 0

es decir no hay respuesta...

Me copio los datos en mi equipo (ejecutables, certificados etc... ) y funciona perfectamente...

No entiendo que puede estar pasando... ¿alguna pista?

gracias.

[Casimiro Notevi]

A lo mejor si pones una copia del xml para que le echemos un vistazo, si es posible.
Normalmente, por lo que he visto en algunos casos, es porque no está bien estructurado.

[Neftali [Germán.Estévez]]

Si has copiado los mismos ficheros en otro equipo, y la cosa no funciona, puede ser indicativo de que sea un problema de diferente configuración en los diferentes equipos.
Todo el tema de XML, según el código que estés utilizando, se apoya en DLLs y configuraciones del equipo (IE, protocolos,...)

Revisa y compara versiones del sistema operativo, versiones de protocolos,...

[iMia]

Empezado por Neftali [Germán.Estévez]

Si has copiado los mismos ficheros en otro equipo, y la cosa no funciona, puede ser indicativo de que sea un problema de diferente configuración en los diferentes equipos.
Todo el tema de XML, según el código que estés utilizando, se apoya en DLLs y configuraciones del equipo (IE, protocolos,...)

Revisa y compara versiones del sistema operativo, versiones de protocolos,...

Creo que podría venir por aquí...

He conseguido llegar a que si ejecuto desde dentro del entorno de Delphi con un Run, funciona perfectamete, pero lanzando el ejecutable desde el propio S.O. , es cuando no hay respuesta...
Es como si el capicom o las librerias de openssl (libeay32.dll o ssleay32.dll) no fuesen las correctas: Desde Delphi está utilizando unas y desde el ejecutable, otras (o algo así) y no incluya bien el certificado o no sé exactamente qué pasa con la llamada y por eso no hay respuesta... pero por otra parte, cuando la llamada no es correcta, el servidor debería responder con error, pero es que no hay error, simplemente no hay respuesta...

[iMia]

Empezado por Casimiro Notevi

A lo mejor si pones una copia del xml para que le echemos un vistazo, si es posible.
Normalmente, por lo que he visto en algunos casos, es porque no está bien estructurado.

pues no tengo respuesta... ese es el problema...

Capturo la respuesta así:

Al httpRio asigno el evento OnAfterExecute y lo defino así...

Código Delphi [-]
procedure TMainForm.HTTPOnAfterExecute(const MethodName: string; SOAPResponse: TStream);
var
  ts: TStringList;
begin
    SOAPResponse.Position := 0;
    ts := TStringList.Create;
    try
      ts.LoadFromStream(SOAPResponse);
      SOAPResponse.Size := 0;
      SOAPResponse.Position := 0;
      ts.SaveToStream(SOAPResponse);
      ts.saveToFile(ExtractFilePath(Application.ExeName) + ChangeFileExt(ExtractFileName(Application.ExeName), '.debug.respuesta.txt'));
    finally
      ts.Free;
    end;
end;

pero siempre está vacío...

Edito:

Cuando responde todo va bien y sí llego a capturar el mensaje de restuesta

<?xml version="1.0" encoding="UTF-8"?><env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><env:Body><VNifV2Sal:VNifV2Sal xmlns:VNifV2Sal="http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Sal.xsd"><VNifV2Sal:Contribuyente><VNifV2Sal:Nif>XXXXXX</VNifV2Sal:Nif><VNifV2Sal:Nombre>XXXXX</VNifV2Sal:Nombre><VNifV2Sal:Resultado>IDENTIFICADO</VNifV2Sal:Resultado></VNifV2Sal:Contribuyente></VNifV2Sal:VNifV2Sal></env:Body></env:Envelope>

[Casimiro Notevi]

Puede ser que no exista el nif que se esté consultando.

[iMia]

Empezado por Casimiro Notevi

Puede ser que no exista el nif que se esté consultando.

Buenos días Casimiro,
no, no es ese el problema...
Cuando no se identifica, si hay mensaje de respuesta, devuelve el mensaje de NO IDENTIFICADO.

Código Delphi [-]
B33333333CERES NO IDENTIFICADO

[iMia]

Empezado por iMia

Buenos días Casimiro,
no, no es ese el problema...
Cuando no se identifica, si hay mensaje de respuesta, devuelve el mensaje de NO IDENTIFICADO.

<?xml version="1.0" encoding="UTF-8"?><env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><env:Body><VNifV2Sal:VNifV2Sal xmlns:VNifV2Sal="http://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2Sal.xsd"><VNifV2Sal:Contribuyente><VNifV2Sal:Nif>B33333333</VNifV2Sal:Nif><VNifV2Sal:Nombre>CERES </VNifV2Sal:Nombre><VNifV2Sal:Resultado>NO IDENTIFICADO</VNifV2Sal:Resultado></VNifV2Sal:Contribuyente></VNifV2Sal:VNifV2Sal></env:Body></env:Envelope>

He cambiado los tags para que se vea el mensaje.