Discussion :

[Tilab]

Bonjour à tous.

Je dois consommer un webservice avec delphi 7 Enterprise:
http://xml.unione.ch/Ph4stdWebServic...ries.asmx?WSDL
et envoyer un fichier XML

Code xml :

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" standalone="yes" ?>
 <ProductAvailabilityRequest>
  <Customer>
 <Number>099994</Number>
 <SoftwareType>Software_name</SoftwareType>
 <SoftwareVersion>1.0</SoftwareVersion>
 <Password>tilab2005</Password>
 </Customer>
  <Products>
 <PharmaCode>1875976</PharmaCode>
 <Quantity>1</Quantity>
 </Products>
 </ProductAvailabilityRequest>

je devrais recevoir un fichier xml qui me donne la disponibilité du produit 1875976 mais je butte sur l'erreur
"Request doesn't match the schema"

Merci de votre aide
Alex

[Rayek]

Peux tu montrer ton code pour l'envoi ?

[Tilab]

merci de ton aide voici le code que tu me demandes:
la réponse est chargée dans un mémo car je n'ai pas encore codé la suite du programme.

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
22
23
24
procedure TfTest.bSendRequestClick(Sender: TObject);
var
 ws: ArtQueriesSoap;
 r: dsRequest;
begin
 r := dsRequest.Create;
 r.schema :=
   '<?xml version=1.0>' +
   '<ProductAvailabilityRequest>' +
   '<Customer>' +
   '<Number>099994</Number>' +
   '<SoftwareType>TilabUnioneOrderXml</SoftwareType>' +
   '<SoftwareVersion>1.0</SoftwareVersion>' +
   '<Password>tilab2005</Password>' +
   '</Customer>' +
   '<Products>' +
   '<PharmaCode>1875976</PharmaCode>' +
   '<Quantity>1</Quantity>' +
   '</Products>' +
   '</ProductAvailabilityRequest>';
   ws := GetArtQueriesSoap;
 mAnswer.Lines.Text := ws.LoadStockInfos(r).schema;
 
end;

maintenant j'ai ce message:
Server was unable to read the request
....
an error occured at , (2, 261)

le schéma de la "request" à été envoyé par la société Dauf qui met à disposition le service. Avec Visual studio cette société n'a aucun problème pour l'emploi de ce service.

Alex