Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-03-2023
iMia iMia is offline
Miembro
 
Registrado: jul 2010
Posts: 141
Poder: 14
iMia Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
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

Código:
<?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>

Última edición por iMia fecha: 10-03-2023 a las 17:06:56. Razón: Poner etiquetas [delphi] [/delphi] al código.
Responder Con Cita
  #2  
Antiguo 11-03-2023
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.107
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Puede ser que no exista el nif que se esté consultando.
Responder Con Cita
  #3  
Antiguo 13-03-2023
iMia iMia is offline
Miembro
 
Registrado: jul 2010
Posts: 141
Poder: 14
iMia Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
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
Responder Con Cita
  #4  
Antiguo 13-03-2023
iMia iMia is offline
Miembro
 
Registrado: jul 2010
Posts: 141
Poder: 14
iMia Va por buen camino
Cita:
Empezado por iMia Ver Mensaje
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:
<?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.
Responder Con Cita
  #5  
Antiguo 14-03-2023
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.339
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Ahí en el menaje de respuesta tienes un "NO IDENTIFICADO"
Tendrías que saber a qué se refiere. Si es al certificado, si es por el DNI,...

Si está relacionado con librerías (SSL) deberías buscar en tu sistema a ver si tienes más de una versión. No sea que según desde dónde lo ejecutas te esté cogiendo unas u otras (path).
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #6  
Antiguo 14-03-2023
iMia iMia is offline
Miembro
 
Registrado: jul 2010
Posts: 141
Poder: 14
iMia Va por buen camino
Cita:
Empezado por Neftali [Germán.Estévez] Ver Mensaje
Ahí en el menaje de respuesta tienes un "NO IDENTIFICADO"
Tendrías que saber a qué se refiere. Si es al certificado, si es por el DNI,...

Si está relacionado con librerías (SSL) deberías buscar en tu sistema a ver si tienes más de una versión. No sea que según desde dónde lo ejecutas te esté cogiendo unas u otras (path).
Siempre que hay una respuesta "NO IDENTIFICADO", es que la llamada (y certificado) es correcto... simplemente que el NIF que se consulta, es incorrecto o no corresponde con el nombre.

El tema de las DLL tampoco lo tengo claro, por que solo tengo unas... sigo con esta linea de investigación a ver si veo algo...

Gracias a todos por mirarlo y perder unos minutos a pensar en ello...
Responder Con Cita
  #7  
Antiguo 15-03-2023
iMia iMia is offline
Miembro
 
Registrado: jul 2010
Posts: 141
Poder: 14
iMia Va por buen camino
Sigo con el tema DLLs...

Desde el entorno de programación funciona OK, pero desde el S.O. llamando al ejecutable no.

¿Es relamente problema de las dll's...? ni libeay32.dll ni ssleay32.dll son llamadas desde mi proceso (Ejecutable desde SO)

Hasta ahora pensaba utilizaba las dlls (libeay32.dll y ssleay32.dll) pero ahora creo que no las utiliza... por eso al copiar varias versiones de dll de libeay32 y ssleay32 junto al ejecutable, pasa de ellas...

¿No seran otras dlls?

P.D.: Cómo saber qué DLL se están llamando... (sea del SO o del entrono de programación)
desde liena de comandos: C:\Windows\System32\perfmon.exe /res -> Pestaña CPU y seleccionar el proceso y las dlls aparecen en el apartado "módulos Asociados"

vaya lio....
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Respuesta al ListBox Dannell Varios 5 28-11-2012 19:30:51
Tiempos de Respuesta Maury Manosalva MySQL 2 01-02-2007 17:59:46
mensaje de respuesta a error jhcaboverde Varios 1 23-01-2007 18:18:53
Respuesta danytorres Varios 2 16-07-2003 20:55:43


La franja horaria es GMT +2. Ahora son las 22:50:17.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi