Utiliser un Web service dans inno setup

par Daniel CORDIER Email

Le dévelopement de CutBlock PuP actuellement en bêta test nous prend pas mal de temps et je n'ai pas posté un article ici depuis quelques jours.
Voici un bout de code Inno setup (en Pascal) dont nous avons eu besoin pour accéder à nos Web services pendant la phase d'installation.

Suite:

ce bout de code est à mettre dans la section [Code] bien sur 88|

Ici on utilise un objet disponible normalement depuis IE 5.5 et Windows XP appelé MSSOAP et dédié aux services WEB.

// déclaration de l'objet destiné à travailler avec notre service WEB
SrvWeb: Variant;

// Creation de l'objet COM
SrvWeb := CreateOleObject('MSSOAP.SoapClient');

// Initilisation du service
SrvWeb.mssoapinit('http://www.serveur.com/repertoire/service.wsdl');

// Appel de la fonction
resultat := SrvWeb.fonction(param1,param2, ....) ;

Nous avons utilisé de préférence des paramètres et une variable de retour au format String afin de simplifier les traitements, bien sur il est possible de passer tout type de variable (Integer, Booléen, Structure).

Bon installation !!!