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