Delphi - API SOAP

Version imprimable

Delphi - API SOAP

Bonjour Tout le monde,

Comment faire pour interroger un service sous delphi 7

Code:

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:

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,

25/04/2017, 16h49
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

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

Code:

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:

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:

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:

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 ,

28/04/2017, 11h21
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