Discussion :

[Nono23]

Bonjour tout le monde!

Je suis de retour avec mes problèmes de Web Services.
J'ai mis en place sur un serveur IIS (Sur Windows Serveur 2008 R2) un Service Web.

Dans ce service Web, j'ai deux fonction.

Une fonction "Bonjour", qui me retourne simplement le texte "Bonjour !"
Une fonction xxx qui me retourne des valeurs en fonction des paramètres que je lui fournis (Une IP,Un nom de société,Un nom de fonction interne, un nom de fichier, des paramètres) Tous ces paramètres sont des chaînes de caractères.

Lorsque j'accède à ce webservice via Internet Explorer, pas de problème, tout fonctionne, le webservice fait son travail et me retourne les résultats souhaités.

Le problème arrive quand j'accède au WebService depuis Delphi 6.
La fonction "Bonjour" fonctionne parfaitement et me retourne le texte
"Bonjour !".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
Var
   Res : String;
begin
     Res:=GetService1Soap.Bonjour;
     Memo1.Text:=Res;
end;

La fonction xxx par contre n'arrive même pas jusqu'au Web Service, son appel, avec exactement les mêmes paramètres que sont appel depuis Internet Explorer, est pris en charge par le gestionnaire d'exception.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.Button2Click(Sender: TObject);
Var
   Res,IP,CPNY,Fct_Name,Para : AnsiString;
begin
     IP:='x.x.x.x';
     CPNY:='F';
     Fct_Name:='Fonction';
     Para:='x,y,z';
 
     Try
         Res:=Navision1.GetService1Soap.xxx(IP,CPNY,Fct_Name,'',Para);
     Except
           On E:Exception Do Res:=E.Message;
     End;
     Memo2.Text:=Res;
end;

L'erreur retournée est la suivante :

System.Web.Services.Protocols.SoapException: Le serveur n'a pas pu traiter la demande. ---> System.Messaging.MessageQueueException: Le nom du format donné n'est pas valide.
à System.Messaging.MessageQueue.MQCacheableInfo.get_WriteHandle()
à System.Messaging.MessageQueue.StaleSafeSendMessage(MQPROPS properties, IntPtr transaction)
à System.Messaging.MessageQueue.SendInternal(Object obj, MessageQueueTransaction internalTransaction, MessageQueueTransactionType transactionType)
à Service1.xxx(String ServerIPAddress, String CompanyName, String FunctionName, String FileName, String Parameter)
--- Fin de la trace de la pile d'exception interne ---

Avez-vous une idée d'où peut bien provenir cette erreur? Est-ce encore un problème au niveau de l'importateur WSDL?

Edit :
J'ai regardé de plus près dans les fichiers Log du Web Service et voilà ce que j'obtiens :

2010-07-12 11:14:04 192.168.x.x POST /xxx/xxx.asmx/xxx- 80 - 192.168.x.x Mozilla/4.0+(compatible;+MSIE+7.0;+Windows+NT+6.1;+Trident/4.0;+GTB0.0;+SLCC2;+.NET+CLR+2.0.50727;+.NET+CLR+3.5.30729;+.NET+CLR+3.0.30729;+Media+Center+PC+6.0;+MDDR;+Tablet+PC+2.0;+.NET4.0C) 200 0 0 291

Lorsque l'appel est fait depuis Internet Explorer (status = 200)

2010-07-12 11:13:29 192.168.x.x POST /xxx/xxx.asmx - 80 - 192.168.x.x Borland+SOAP+1.1 500 0 0 878

Quand l'appel est fait depuis Delphi et ne fonctionne pas (Status = 500)

Cela veut dire que l'appel au Web Service est fait mais échoue. Mais je ne comprends toujours pas pourquoi

Merci d'avance si vous avez des idées
\Edit

Edit2 :

J'ai réalisé un exemple sous Visual Basic qui lui fonctionne. Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Private Sub Gildas_encours_Click()
 
Dim Oclient As Object
 
Set Oclient = CreateObject("MSOSOAP.SoapClient30")
Oclient.MSSoapInit "http://SRV/xxx/xxx.asmx?WSDL"
strRep = Oclient.xxx("192.168.x.x", "F", "Fonction", " ", "x,y,z")
MsgBox (strRep)
 
End Sub

Je ne comprends vraiment pas pourquoi ça fonctionnerait sous VB et pas sous Delphi. Une autre chose encore plus bizzare, est que dans le même service Web, j'ai une fonction du genre de celle qui ne fonctionne pas. qui prends les mêmes paramètres hormis l'adresse IP et qui elle fonctionne très bien même sous Delphi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.Button3Click(Sender: TObject);
Var
   Res,CPNY_NAME,Fct_Name,Para : String;
begin
     CPNY_NAME:='F';
     Fct_Name:='Fonction';
     Para:='x,y,z';
 
     Try
     Res:=GetService1Soap.yyy(CPNY_NAME,Fct_Name,'');
     Except
           On E:Exception Do Res:=E.Message;
     End;
     Memo2.Text:=Res;
 
end;

\Edit2

Merci d'avance

[skywaukers]

Bonsoir,

j'ai remarqué que dans ton exemple en VB, le 3ème paramètre est un espace, alors qu'en Delphi tu ne mets rien. As-tu essayé de mettre un espace ?


@++
Dany

[Nono23]

Salut Skywaukers,

Je viens d'essayer avec un espace et toujours la même réponse, en fait, je peux mettre n'importe quels paramètres, rien ne passe.

As-tu une idée de la source de mon problème?

[Nono23]

J'ai quelques infos de plus à vous donner qui éventuellement pourrait nous aider à trouver la cause de mon problème.

J'ai utilisé SOAPUI et l'évènement BeforeExecute du composant HTTPRIO pour comparer ce qui est envoyé depuis Delphi ou depuis un navigateur Web lors de l'appel de ma fonction. Voici ce que j'ai :

Envoyé par Delphi (Et ne fonctionne pas):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/">
	<SOAP-ENV:Body SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
		<NS1:XXX xmlns:NS1="http://tempuri.org/">
			<ServerIPAddress xsi:type="xsd:string">192.168.x.x</ServerIPAddress>
			<CompanyName xsi:type="xsd:string"></CompanyName>
			<FunctionName xsi:type="xsd:string"></FunctionName>
			<FileName xsi:type="xsd:string"></FileName>
			<Parameter xsi:type="xsd:string"></Parameter>
		</NS1:XXX>
	</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

Généré par SOAPUI (Qui fonctionne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/">
   <soapenv:Header/>
   <soapenv:Body>
      <tem:XXX>
         <tem:ServerIPAddress>192.168.x.x</tem:ServerIPAddress>
         <tem:CompanyName></tem:CompanyName>
         <tem:FunctionName></tem:FunctionName>
         <tem:FileName></tem:FileName>
         <tem:Parameter></tem:Parameter>
      </tem:XXX>
   </soapenv:Body>
</soapenv:Envelope>

J'ai noté quelques différences :

• "variable" SOAP-ENV réutilisée pour Delphi alors que pour SOAP, 2 "variables" (soapenv et tmp)
• Passage de paramètres. Delphi : <ServerIPAddress xsi:type="xsd:string">192.168.x.x</ServerIPAddress> / SOAPUI : <tem:ServerIPAddress>192.168.x.x</tem:ServerIPAddress>
• Pas de <soapenv:Header/> pour Delphi

Mon problème est que comme je débute avec les WebServices, je ne sais pas vraiment quelles différences peuvent être importantes et comment les modifier.


Une petite précision, si je copie le XML généré par SOAPUI comme requête à envoyer dans l'évènement BeforeExecute , mon application fonctionne. J'en déduis donc que la requête XML générée par Delphi n'est pas correcte mais la question c'est "A quelle niveau?" et "comment automatiser la correction?"

Dernière question "Bizzare", il en faut bien une, pourquoi le code XML de Delphi présenté plus haut ne passe pas alors que celui-ci fonctionne?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/">
	<SOAP-ENV:Body SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
		<NS1:YYY xmlns:NS1="http://tempuri.org/">
			<CompanyName xsi:type="xsd:string"></CompanyName>
			<FunctionName xsi:type="xsd:string"></FunctionName>
			<FileName xsi:type="xsd:string"></FileName>
		</NS1:YYY>
	</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

Une idée? merci d'avance

[skywaukers]

Bonjour,

la différence, c'est "parameter" Peut-être un mot réservé sur le serveur cible, soapui le fais précéder d'un namespace visiblement et pas Delphi.

@++
Dany

[Nono23]

Whoooooooooo. Merci beaucoup skywaukers. Grâce à toi, j'ai trouvé le problème. En fait, ça ne vient pas de "Parameter", mais de "ServerIPAddress' qui doit être précédé d'un namespace. Il me suffit de faire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SOAPRequest:=StringReplace(SOAPRequest,'ServerIPAddress','NS1:ServerIPAddress',[rfReplaceAll, rfIgnoreCase]);

Dans l'évènement BeforeExecute et le tour est joué.
Bon la solution n'est pas très élégente, sais-tu si il y a un moyen de "corriger" ce problème? peut être au moment de l'importation WSDL?

Merci beaucoup pour ton aide en tout cas, en attendant, je vais laisser cette solution là.