Discussion :

[PHIL45]

Bonjour à tous,

J'ai besoin de récupérer une valeur (integer) sur un site dont le fournisseur m'a fourni la commande suivante :

Code :

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

1
2
3
 
 
https://www.X.com/secure/messenger/soap/AcountService.asmx?=GetMessageLimit (j'ai remplacé le nom fournisseur par un X)

J'ai donc essayé de créer un WebService avec les composants de Delphi 2005(Importateur SOAP) mais une erreur m'est retourné car l'application attend au POST un fichier WDSL.

Le code que je voudrais traité le code suivant :

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
18
19
20
21
 
 
POST /secure/x/soap/AccountService.asmx HTTP/1.1
Host: www.x.com
Content-Type: text/xml; charset=utf-8
Content-Length: length
SOAPAction: "com.x.ems.soapinterface/GetMessageLimit"
 
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Header>
    <MessengerHeader xmlns="com.x.ems.soapinterface">
      <Username>string</Username>
      <Password>string</Password>
      <Account>string</Account>
    </MessengerHeader>
  </soap:Header>
  <soap:Body>
    <GetMessageLimit xmlns="com.x.ems.soapinterface" />
  </soap:Body>
</soap:Envelope>

Si un spécialiste du Webservice pouvait m'aider, je serais heureux. J'ain fini le programme et je butte sur ce problème.

Merci à tous pour votre aide

[PHIL45]

Bon, je me réponds à moi-même. Soit le sujet intéresse personne ce qui me surprend vu la tendance des WebServices, soit il n 'y a personne qui sache traité le sujet !

Pour ceux que cela intéresse, j'ai résolu en parti le problème par le simple fait que mon fournisseur (serveur) a apporté une correction essentielle : il m'a fourni un fichier WDSL. Donc, j'ai pu avancé dans la construction de mon projet. Sauf, que maintenant j'ai une erreur suivante :

Type incompatible entre TMyService et HTTPRIO1 ! J'ai pourtant bien fait la déclaration :

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
 
 
unit UMyServiceImpl;
 
interface
 
uses InvokeRegistry, Types, XSBuiltIns, UMyServiceIntf;
 
type
 
  { TMyService }
  TMyService = class(TInvokableClass, IMyService)
  public
 
  end;

Dans ma forme principale, j'ai déposé un composant de Delphi (palette WebServices) et renseigner les propriétés WDSLLocation, Port et le Service.

Pour tester, je fais juste un click sur un bouton placé sur la forme dont voici l'évènement OnClick :

Code :

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

1
2
3
4
5
6
7
8
 
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
  ShowMessage((HTTPRIO1 as TMyService).GetMessageLimitSoapIn;
  //L'erreur m'est indiquée ici
end;

Avez-vous une réponse à m'apporter ?

Merci d'avance