Web Service : MessageQueueException: Le nom du format donné n'est pas valide
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:
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:
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 :
Citation:
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 :
Citation:
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)
Citation:
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:
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:
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