Problème des services Web Delphi 2005

Question

J'ai un problème pour accéder à un service Web via Delphi. J'ai consommé un fichier WSDL Java avec la version 2007 de l'outil WSDLimp et il semble que tous les objets aient été créés correctement. Quand je fais un programme de testeur cependant qui appelle le service, chaque objet est vide. Si je vide l'objet SOAPResponse dans la méthode HTTPRIOAfterExecute, je peux voir que j'ai récupéré un paquet de Soap XML correctement formaté qui contient toutes les données auxquelles je m'attendais, mais je ne peux pas y accéder via les objets. Alors, y a-t-il quelque chose qui me manque?

Answer 1

La réponse du service Web contient des espaces de noms aliasés pour chaque attribut. Ces alias ne sont pas définis dans le fichier WSDL. Par exemple, le WSDL contient un espace de noms de "http://www.example.com/SomeService" et les alias de requête qui sont à la volée en tant que xmlns: ns3 = "http://www.example.com/SomeService" dans le nœud de niveau supérieur. Les attributs de la réponse ressemblent donc à ns3: somePropertyName = "[value]".

Dans l'unité OPToSOAPDomConv, dans TSOAPDomConv.InitObjectFromSOAP, il tente de rechercher un nom d'attribut sans le préfixe d'espace de noms. Cela provoque l'échec de la recherche et la suppression de la propriété d'objet. Cela arrive même avec les fichiers source 2007.

La meilleure solution que je peux voir est de modifier la routine InitObjectFromSOAP.

Vers la ligne 4181, ajouter:

RemTypeRegistry.InfoToURI(PropList[i].PropType^, NS, PropName, IsScalar); 

et changer le AttrNode.HasAttribute pour passer la variable NS comme un second paramètre, il ressemble à:

if AttrNode.HasAttribute(ExternalPropName, NS) then 

En outre, quelques lignes vers le bas est un appel SetObjectPropFromText. Le dernier paramètre est la valeur d'attribut, et vous aurez besoin de changer Attr.Attributes [ExternalPropName] pour

SetObjectPropFromText(Instance, PropList[I], AttrNode.GetAttributeNS(ExternalPropName, NS)) 

Et bien sûr, déclarer le NS, PropName et IsScalar vars.

Answer 2

Vous pouvez essayer la solution discutée à http://www.borlandtalk.com/1-vt102378.html?start=0

Answer 3

Delphi a laissé tomber la balle sur le soutien du service Web après Delphi 7 et n'a pas obtenu leur acte nouveau ensemble jusqu'à Delphi 2007 (bien que 2006 a été une amélioration).

Si cela fonctionne pour vous dans Delphi 2007, vous pouvez probablement travailler dans Delphi 2005 en utilisant l'environnement d'exécution SOAP mis à jour.

http://cc.embarcadero.com/Item/24535

Answer 4

Je relis la question et le fait que c'est un service Web Java m'a rappelé quelque chose. Veillez à utiliser les dernières unités WSDLImp et SOAP. Recherchez dans l'unité importée l'appel à RegisterInvokeOptions. Le second paramètre devrait être ioDocument. Que se passe-t-il si vous changez cela en ioDefault?

Je me souviens d'un post quelque part qui suggérait cela pour les services web Java NetBeans (peut-être?), Mais je ne l'ai pas essayé.