Discussion :

[SkyBlu]

Bonjour Tout le monde,

Comment faire pour interroger un service sous delphi 7

Code :

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

1
2
3
4
5
6
7
8
9
10
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:yous="http://www.xx.com" xmlns:aut="http://xxx.xxx.com/">
   <soapenv:Header>
      <username>USERNAME</username>
      <password>PASSWORD</password>
      <apikey>APIKEY</apikey>
   </soapenv:Header>
   <soapenv:Body>
      <yous:connect/>
   </soapenv:Body>
</soapenv:Envelope>

pour obtenir le message suivant

Code :

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

1
2
3
4
5
6
7
<S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/">
   <S:Body>
      <ns2:connectResponse xmlns:ns2="http://www.xxxx.com">
         <return>true</return>
      </ns2:connectResponse>
   </S:Body>
</S:Envelope>

Cordialement,

[ShaiLeTroll]

Utilise l'expert WSDLimp qui va te générer un Wrapper (TRemotable) et te fournira une fonction d'instanciation d'un THTTPRIO implémentant le marshalling du TRemotable

Voir la documentation de Expert d'importation WSDL en Berlin, cela n'a pas beaucoup changé, le SOAP c'est un peu has-been par rapport au REST JSON, car chacun avait son mode par défaut entre Java, MS ou Borland, entre le literal/encoded, literal/document, rpc/encoded ... évidemment, pas un seul n'avait le même par défaut

[SkyBlu]

Bonjour ShaiLeTroll ,
Pour la demarche d'import de WSDL je la connais merci, mon problème c'était d'ajouter au wsdl

Code :

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

1
2
3
4
5
<soapenv:Header>
      <username>USERNAME</username>
      <password>PASSWORD</password>
      <apikey>APIKEY</apikey>
   </soapenv:Header>

j'ai pu résoudre ce problème en ajoutant la fonction suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
function TSOAPCredentials. ObjectToSOAP(RootNode, ParentNode: IXMLNode;
                                 const ObjConverter: IObjConverter;
                                 const Name, URI: InvString; ObjConvOpts: TObjectConvertOptions;
                                 out RefID: InvString): IXMLNode;
begin
 Result := ParentNode.AddChild('YOUR_USERNAME');
 Result.Text := FUsername;
 Result := ParentNode.AddChild('YOUR_PASSWORD');
 Result.Text := FPassword;
 Result := ParentNode.AddChild('YOUR_APIKEY');
 Result.Text := FKeyClient;
end;

ce que j'ai obtenu me convient parfaitement pour les Headers mais pas pour body

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
<?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">
<SOAP-ENV:Header>
<TSOAPCredentials xmlns="urn:Unit1">
<username>xxxxxx</username>
<password>xxxxxx</password>
<apikey>xxxxxx</apikey>
</TSOAPCredentials></SOAP-ENV:Header>
<SOAP-ENV:Body/>
</SOAP-ENV:Envelope>

qui doit etre sous la forme

Code :

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

1
2
3
 <soapenv:Body>
      <yous:connect/>
   </soapenv:Body>

pouvez vous m 'aider s'il vous pait,

y a t il un exemple sous delphi 7 d'utilisation API REST


Cordialement ,

[ShaiLeTroll]

L'API Rest, c'est juste un JSON envoyé comme ça, déjà qu'en DXE2, ce n'était pas encore au point, il manquait la Beared Auth que j'ai codé mon même à coup de TIdHTTP et TIdAuthentication
Alors en D7, faudra voir un vieux source de Marco Cantu qui aurait pu le faire en entier à l'époque

Après pour le corps, comme je le disais faut forcer les modes literal/encoded, literal/document, rpc/encoded
Et tu as option des options comme "Unwind des paramètres littéraux"
A forcer de bidouiller, il finit par générer ce qu'il faut