développer un "client" en C++ pour un service web existant

Version imprimable

14/07/2019, 01h47
dibak

développer un "client" en C++ pour un service web existant

salut,
je voudrais une aide s'il vous plait, voici mon problème:
Une société a mis en place un service web dans lequel, elle expose la méthode EnvoyerPRT().
Et moi j’ai conçu une application qui doit utiliser (je voudrais utiliser ou invoquer ou appeller) ladite méthode EnvoyerPRT().
Le problème revient à développer un "client" en C++ pour un service web existant (dont je ne suis pas propriétaire).

Question : Suis-je dans un cas d’utilisation de gSOAP ?

je pourrais donner plus de détail de compréhension en cas de nécessité
Je vous en prie je suis débutant dans le web service, je sollicite votre indulgence.

Dibak
14/07/2019, 10h55
DjmSoftware

salut
pour pouvoir t'aider j'aurais besoin de plus d'information sur ce serviceWeb
l'URL serait déja un bon début.
je te conseille par contre de porter ton application vers la dernière version de C++ Builder
cordialement
14/07/2019, 14h10
dibak

Citation:

Envoyé par DjmSoftware

salut
pour pouvoir t'aider j'aurais besoin de plus d'information sur ce serviceWeb
l'URL serait déja un bon début.
je te conseille par contre de porter ton application vers la dernière version de C++ Builder
cordialement

Salut DjmSoftware,
Je te remercie pour ta disponibilité à m'apporter un coup de main
voici comme demandé l'URL: http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL

La méthode de leur web service que je voudrais utiliser s'appelle “EnvoyerSMS()” .
cette méthode « envoyerSMS » comprend les étapes suivantes:
1. Lecture des valeurs passées en paramètres ;
2. Vérification de l’identité de l’utilisateur ;
3. Vérification du nombre de crédit de l’utilisateur ;
4. Envoi de SMS proprement dit.

Les paramètres de la méthode
Il est possible pour les clients d’obtenir la liste des paramètres via l’URL :
http:// lmtgoldsms.dyndns.org:8282/Managesms-war/ServiceSMS?xsd=1

Les paramètres de la méthode « envoyerSMS » du service web sont les suivants :

userLogoin chaine
userpassword chaine (Mot de passe de l’utilisateur.)
destinataires Tableau de chaine (Liste de numéro de téléphones)
messages chaine (Contenu du SMS à envoyer
la taille étant fixée à 160 caractères.)
numeroCourt chaine (SENDER ID du client)

Problème: Mon application écrite dans c++ souhaite utiliser la méthode "EnvoyerSMS()" ci-dessus décrite.
Je suis sur la piste de vouloir utiliser gSOAP, est-ce bien réfléchi?

après passage à la moulinette voici les fichiers générés par l'expert WSDL

le .H

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
 
// ************************************************************************ //
// Les types déclarés dans ce fichier ont été générés à partir de données lues
// depuis le fichier WSDL décrit ci-dessous :
// WSDL     : http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL>0
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?xsd=1
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?xsd=2
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL>1
// Encodage : UTF-8
// Version  : 1.0
// (15.07.2019 12:48:04 - - $Rev: 25127 $)
// ************************************************************************ //
 
#ifndef   ServiceSMSH
#define   ServiceSMSH
 
#include <System.hpp>
#include <InvokeRegistry.hpp>
#include <XSBuiltIns.hpp>
#include <SOAPHTTPClient.hpp>
 
#if !defined(SOAP_REMOTABLE_CLASS)
#define SOAP_REMOTABLE_CLASS __declspec(delphiclass)
#endif
#if !defined(IS_OPTN)
#define IS_OPTN 0x0001
#endif
#if !defined(IS_UNBD)
#define IS_UNBD 0x0002
#endif
#if !defined(IS_NLBL)
#define IS_NLBL 0x0004
#endif
#if !defined(IS_UNQL)
#define IS_UNQL 0x0008
#endif
 
 
namespace NS_ServiceSMS {
 
// ************************************************************************ //
// Les types suivants mentionnés dans le document WSDL ne sont pas représentés
// dans ce fichier. Ce sont des alias[@] d'autres types représentés ou alors ils étaient référencés
// mais jamais[!] déclarés dans le document. Les types de la dernière catégorie
// sont en principe mappés sur des types Embarcadero ou XML prédéfinis/connus. Toutefois, ils peuvent aussi 
// signaler des documents WSDL incorrects n'ayant pas réussi à déclarer ou importer un type de schéma.
// ************************************************************************ //
// !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:base64Binary    - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:int             - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:boolean         - "http://www.w3.org/2001/XMLSchema"[Gbl]
 
class SOAP_REMOTABLE_CLASS stringArray;
 
typedef DynamicArray<UnicodeString> Array_Of_string; /* "http://www.w3.org/2001/XMLSchema"[GblUbnd] */
 
 
// ************************************************************************ //
// XML       : stringArray, global, <complexType>
// Espace de nommage : http://jaxb.dev.java.net/array
// ************************************************************************ //
class stringArray : public TRemotable {
private:
  Array_Of_string Fitem;
  bool            Fitem_Specified;
  void __fastcall Setitem(int Index, Array_Of_string _prop_val)
  {  Fitem = _prop_val; Fitem_Specified = true;  }
  bool __fastcall item_Specified(int Index)
  {  return Fitem_Specified;  } 
 
  int  GetLength() const  { return Fitem.get_length(); }
  void SetLength(int len) { Fitem_Specified = true; Fitem.set_length(len); }
 
public:
  UnicodeString& operator[](int index) { Fitem_Specified = true; return Fitem[index]; }
  __property int Len = { read=GetLength, write=SetLength };
 
__published:
  __property Array_Of_string       item = { index=(IS_OPTN|IS_UNBD|IS_NLBL|IS_UNQL), read=Fitem, write=Setitem, stored = item_Specified };
};
 
 
typedef DynamicArray<stringArray*> Array_Of_stringArray; /* "http://jaxb.dev.java.net/array"[GblUbnd] */
typedef DynamicArray<int>         Array_Of_int;   /* "http://www.w3.org/2001/XMLSchema"[GblUbnd] */
 
// ************************************************************************ //
// Espace de nommage : http://service.managesms.nexxys.com/
// transport : http://schemas.xmlsoap.org/soap/http
// style     : document
// Liaison : ServiceSMSPortBinding
// service   : ServiceSMS
// port      : ServiceSMSPort
// URL       : http://41.204.94.29:8282/Managesms-war/ServiceSMS
// ************************************************************************ //
__interface INTERFACE_UUID("{3F570F04-ADB2-70C1-384C-C693DEB4FB7D}") ServiceSMS : public IInvokable
{
public:
  virtual int             changePassword(const UnicodeString userLogin, const UnicodeString userpassword, const UnicodeString newpassword) = 0; 
  virtual TByteDynArray   crypter(const UnicodeString arg0) = 0; 
  virtual UnicodeString   genererPWD() = 0; 
  virtual int             envoyerSMS(const UnicodeString userLogoin, const UnicodeString userpassword, const Array_Of_string destinataires, const UnicodeString messages, const UnicodeString numeroCourt) = 0; 
  virtual int             envoyerSMSAFB(const UnicodeString userLogoin, const UnicodeString userpassword, const Array_Of_string destinataires, const Array_Of_string messages, const UnicodeString numeroCourt) = 0; 
  virtual Array_Of_int    envoyerSMSNew(const UnicodeString userLogoin, const UnicodeString userpassword, const Array_Of_string destinataires, const UnicodeString messages, const UnicodeString numeroCourt) = 0; 
  virtual Array_Of_int    envoyerUnSMS(const UnicodeString userLogoin, const UnicodeString userpassword, const UnicodeString destinataires, const UnicodeString messages, const UnicodeString numeroCourt) = 0; 
  virtual int             consulterSolde(const UnicodeString userLogin, const UnicodeString userpassword) = 0; 
  virtual int             envoyerSMSURL(const UnicodeString arg0, const UnicodeString arg1, const UnicodeString arg2, const UnicodeString arg3, const UnicodeString arg4) = 0; 
  virtual Array_Of_stringArray listContactsUser(const UnicodeString userLogoin, const UnicodeString userpassword) = 0; 
  virtual bool            emailValidator(const UnicodeString arg0) = 0; 
  virtual bool            phoneValidator(const UnicodeString arg0) = 0; 
  virtual UnicodeString   formatTel(const UnicodeString arg0) = 0; 
};
typedef DelphiInterface<ServiceSMS> _di_ServiceSMS;
 
_di_ServiceSMS GetServiceSMS(bool useWSDL=false, AnsiString addr="", THTTPRIO* HTTPRIO=0);
 
 
};     // NS_ServiceSMS
 
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using  namespace NS_ServiceSMS;
#endif
 
 
 
#endif // ServiceSMSH

et le .CPP

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
 
// ************************************************************************ //
// Les types déclarés dans ce fichier ont été générés à partir de données lues
// depuis le fichier WSDL décrit ci-dessous :
// WSDL     : http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL>0
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?xsd=1
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?xsd=2
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL>1
// Encodage : UTF-8
// Version  : 1.0
// (15.07.2019 12:48:04 - - $Rev: 25127 $)
// ************************************************************************ //
 
#include <vcl.h>
#pragma hdrstop
 
#if !defined(ServiceSMSH)
#include "ServiceSMS.h"
#endif
 
 
 
namespace NS_ServiceSMS {
 
_di_ServiceSMS GetServiceSMS(bool useWSDL, AnsiString addr, THTTPRIO* HTTPRIO)
{
  static const char* defWSDL= "http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL";
  static const char* defURL = "http://41.204.94.29:8282/Managesms-war/ServiceSMS";
  static const char* defSvc = "ServiceSMS";
  static const char* defPrt = "ServiceSMSPort";
  if (addr=="")
    addr = useWSDL ? defWSDL : defURL;
  THTTPRIO* rio = HTTPRIO ? HTTPRIO : new THTTPRIO(0);
  if (useWSDL) {
    rio->WSDLLocation = addr;
    rio->Service = defSvc;
    rio->Port = defPrt;
  } else {
    rio->URL = addr;
  }
  _di_ServiceSMS service;
  rio->QueryInterface(service);
  if (!service && !HTTPRIO)
    delete rio;
  return service;
}
 
 
// ************************************************************************ //
// Cette routine enregistre les interfaces et les types exposés par le service Web.
// ************************************************************************ //
static void RegTypes()
{
  /* ServiceSMS */
  InvRegistry()->RegisterInterface(__delphirtti(ServiceSMS), L"http://service.managesms.nexxys.com/", L"UTF-8");
  InvRegistry()->RegisterDefaultSOAPAction(__delphirtti(ServiceSMS), L"");
  InvRegistry()->RegisterInvokeOptions(__delphirtti(ServiceSMS), ioDocument);
  InvRegistry()->RegisterExternalParamName(__delphirtti(ServiceSMS), L"changePassword", L"return_", L"return");
  InvRegistry()->RegisterExternalParamName(__delphirtti(ServiceSMS), L"crypter", L"return_", L"return");
  InvRegistry()->RegisterExternalParamName(__delphirtti(ServiceSMS), L"genererPWD", L"return_", L"return");
  InvRegistry()->RegisterExternalParamName(__delphirtti(ServiceSMS), L"envoyerSMS", L"return_", L"return");
  InvRegistry()->RegisterExternalParamName(__delphirtti(ServiceSMS), L"envoyerSMSAFB", L"return_", L"return");
  InvRegistry()->RegisterExternalParamName(__delphirtti(ServiceSMS), L"envoyerSMSNew", L"return_", L"return");
  InvRegistry()->RegisterExternalParamName(__delphirtti(ServiceSMS), L"envoyerUnSMS", L"return_", L"return");
  InvRegistry()->RegisterExternalParamName(__delphirtti(ServiceSMS), L"consulterSolde", L"return_", L"return");
  InvRegistry()->RegisterExternalParamName(__delphirtti(ServiceSMS), L"envoyerSMSURL", L"return_", L"return");
  InvRegistry()->RegisterExternalParamName(__delphirtti(ServiceSMS), L"listContactsUser", L"return_", L"return");
  InvRegistry()->RegisterExternalParamName(__delphirtti(ServiceSMS), L"emailValidator", L"return_", L"return");
  InvRegistry()->RegisterExternalParamName(__delphirtti(ServiceSMS), L"phoneValidator", L"return_", L"return");
  InvRegistry()->RegisterExternalParamName(__delphirtti(ServiceSMS), L"formatTel", L"return_", L"return");
  /* Array_Of_string */
  RemClassRegistry()->RegisterXSInfo(__delphirtti(Array_Of_string), L"http://www.w3.org/2001/XMLSchema", L"Array_Of_string");
  RemClassRegistry()->RegisterSerializeOptions(__delphirtti(Array_Of_string), (TSerializationOptions() << xoInlineArrays));
  /* stringArray */
  RemClassRegistry()->RegisterXSClass(__classid(stringArray), L"http://jaxb.dev.java.net/array", L"stringArray");
  /* Array_Of_stringArray */
  RemClassRegistry()->RegisterXSInfo(__delphirtti(Array_Of_stringArray), L"http://jaxb.dev.java.net/array", L"Array_Of_stringArray");
  RemClassRegistry()->RegisterSerializeOptions(__delphirtti(Array_Of_stringArray), (TSerializationOptions() << xoInlineArrays));
  /* Array_Of_int */
  RemClassRegistry()->RegisterXSInfo(__delphirtti(Array_Of_int), L"http://www.w3.org/2001/XMLSchema", L"Array_Of_int");
  RemClassRegistry()->RegisterSerializeOptions(__delphirtti(Array_Of_int), (TSerializationOptions() << xoInlineArrays));
}
#pragma startup RegTypes 32
 
};     // NS_ServiceSMS

tu trouveras un tuto sur l'utilisation des WebServices ici:https://lfe.developpez.com/WebService/BCB/
Cordialement

16/07/2019, 10h44
dibak

Salut DjmSoftware,
Merci pour cette aide, je vais essayer de l'analyser bien que de prime abord je n'ai pas vu où utiliser la methode envoyerSMS(), ou mieux comment l'appeller.
Mais je ne vais pas tout demander, je continue à chercher.

cordialement
dibak

1 pièce(s) jointe(s)

Salut très simplement
dans ton code principal

Code:

1
2
3
4
 
_di_ServiceSMS mService=GetServiceSMS(true,"http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL"); // instance du service
Edit1->Text=mService->genererPWD();    // affichage du mot de passe généré par le service Web
mService->

voila tout simplement
Pièce jointe 491437

cordialement

17/07/2019, 07h24
dibak

Salut DjmSoftware,
j'avoue que je suis perdu dans la compréhension de ce code.
l'objectif est d'envoyer un sms en utilisant la méthode envoyerSMS() qui a pour paramètres (userLogoin ,userpassword ,destinataires ,messages ,numeroCourt ).
je m'attends donc forcement a voir un endroit de code où je dois appeler cette methode envoyerSMS et lui fournir les paramètres sus-cités afin qu'en retour, je puisse gérer le résultat contenu dans la variable résultat. or je ne vois pas de ligne de code s'y rapportant. J'espère que ce n'est pas trop te demander de m'éclairer s'il te plait?

pour être concret, je voudrais fournir à la méthode en question: le userlogoin, le userpassword , le destinataires , le messages , le numeroCourt
et lui dire d'exécuter l'action d'envoyer le sms avec les données ainsi fournies.
question ou est la ligne de code s'y référent.

Cordialement
Dibak.

Salut
il existe effectivement un problème non identifié dans les anciennes version de c++ Builder
j'ai fait un essai avec la dernière version de c++ Builder et la méthode envoyerSMS me retourne un code d'erreur 404 il me semble que c'est normal dans la mersure ou je n'ai pas d'account auprés de cette sociétl
voici le code <ServiceSMS.hpp>

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
 
// ************************************************************************ //
// Les types déclarés dans ce fichier ont été générés à partir de données lues
// depuis le fichier WSDL décrit ci-dessous :
// WSDL     : http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL>0
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?xsd=1
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?xsd=2
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL>1
// Encodage : UTF-8
// Version  : 1.0
// (17.07.2019 09:48:52 - - $Rev: 93209 $)
// ************************************************************************ //
 
#ifndef   ServiceSMSH
#define   ServiceSMSH
 
#include <System.hpp>
#include <Soap.InvokeRegistry.hpp>
#include <Soap.XSBuiltIns.hpp>
#include <Soap.SOAPHTTPClient.hpp>
 
#if !defined(SOAP_REMOTABLE_CLASS)
#define SOAP_REMOTABLE_CLASS __declspec(delphiclass)
#endif
#if !defined(IS_OPTN)
#define IS_OPTN 0x0001
#endif
#if !defined(IS_UNBD)
#define IS_UNBD 0x0002
#endif
#if !defined(IS_NLBL)
#define IS_NLBL 0x0004
#endif
#if !defined(IS_UNQL)
#define IS_UNQL 0x0008
#endif
 
 
namespace NS_ServiceSMS {
 
// ************************************************************************ //
// Les types suivants mentionnés dans le document WSDL ne sont pas représentés
// dans ce fichier. Ce sont des alias[@] d'autres types représentés ou alors ils étaient référencés
// mais jamais[!] déclarés dans le document. Les types de la dernière catégorie
// sont en principe mappés sur des types Embarcadero ou XML prédéfinis/connus. Toutefois, ils peuvent aussi 
// signaler des documents WSDL incorrects n'ayant pas réussi à déclarer ou importer un type de schéma.
// ************************************************************************ //
// !:boolean         - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:int             - "http://www.w3.org/2001/XMLSchema"[Gbl]
// !:base64Binary    - "http://www.w3.org/2001/XMLSchema"[Gbl]
 
 
typedef DynamicArray<UnicodeString> stringArray;    /* "http://jaxb.dev.java.net/array"[GblCplx] */
typedef DynamicArray<int>         envoyerUnSMSResponse; /* "http://service.managesms.nexxys.com/"[Lit][GblCplx] */
typedef DynamicArray<stringArray> listContactsUserResponse; /* "http://service.managesms.nexxys.com/"[Lit][GblCplx] */
 
// ************************************************************************ //
// Espace de nommage : http://service.managesms.nexxys.com/
// transport : http://schemas.xmlsoap.org/soap/http
// style     : document
// utiliser   : literal
// Liaison : ServiceSMSPortBinding
// service   : ServiceSMS
// port      : ServiceSMSPort
// URL       : http://41.204.94.29:8282/Managesms-war/ServiceSMS
// ************************************************************************ //
__interface INTERFACE_UUID("{3F570F04-ADB2-70C1-384C-C693DEB4FB7D}") ServiceSMS : public IInvokable
{
public:
  virtual int             changePassword(const UnicodeString userLogin, const UnicodeString userpassword, const UnicodeString newpassword) = 0; 
  //virtual TArray<System.Byte> crypter(const UnicodeString arg0) = 0;
  virtual UnicodeString   genererPWD() = 0; 
  virtual int             envoyerSMS(const UnicodeString userLogoin, const UnicodeString userpassword, const stringArray destinataires, const UnicodeString messages, const UnicodeString numeroCourt) = 0; 
  virtual int             envoyerSMSAFB(const UnicodeString userLogoin, const UnicodeString userpassword, const stringArray destinataires, const stringArray messages, const UnicodeString numeroCourt) = 0; 
  virtual envoyerUnSMSResponse envoyerSMSNew(const UnicodeString userLogoin, const UnicodeString userpassword, const stringArray destinataires, const UnicodeString messages, const UnicodeString numeroCourt) = 0; 
  virtual envoyerUnSMSResponse envoyerUnSMS(const UnicodeString userLogoin, const UnicodeString userpassword, const UnicodeString destinataires, const UnicodeString messages, const UnicodeString numeroCourt) = 0; 
  virtual int             consulterSolde(const UnicodeString userLogin, const UnicodeString userpassword) = 0; 
  virtual int             envoyerSMSURL(const UnicodeString arg0, const UnicodeString arg1, const UnicodeString arg2, const UnicodeString arg3, const UnicodeString arg4) = 0; 
  virtual listContactsUserResponse listContactsUser(const UnicodeString userLogoin, const UnicodeString userpassword) = 0; 
  virtual bool            emailValidator(const UnicodeString arg0) = 0; 
  virtual bool            phoneValidator(const UnicodeString arg0) = 0; 
  virtual UnicodeString   formatTel(const UnicodeString arg0) = 0; 
};
typedef DelphiInterface<ServiceSMS> _di_ServiceSMS;
 
_di_ServiceSMS GetServiceSMS(bool useWSDL=false, System::String addr= System::String(), Soaphttpclient::THTTPRIO* HTTPRIO=0);
 
 
};     // NS_ServiceSMS
 
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using  namespace NS_ServiceSMS;
#endif
 
 
 
#endif // ServiceSMSH

<ServiceSMS.cpp>

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
 
// ************************************************************************ //
// Les types déclarés dans ce fichier ont été générés à partir de données lues
// depuis le fichier WSDL décrit ci-dessous :
// WSDL     : http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL>0
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?xsd=1
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?xsd=2
//  >Importer : http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL>1
// Encodage : UTF-8
// Version  : 1.0
// (17.07.2019 09:48:52 - - $Rev: 93209 $)
// ************************************************************************ //
 
#include <System.hpp>
#pragma hdrstop
 
#include "ServiceSMS.h"
 
 
 
namespace NS_ServiceSMS {
 
_di_ServiceSMS GetServiceSMS(bool useWSDL, System::String addr, Soaphttpclient::THTTPRIO* HTTPRIO)
{
  static const char* defWSDL= "http://41.204.94.29:8282/Managesms-war/ServiceSMS?WSDL";
  static const char* defURL = "http://41.204.94.29:8282/Managesms-war/ServiceSMS";
  static const char* defSvc = "ServiceSMS";
  static const char* defPrt = "ServiceSMSPort";
  if (addr=="")
    addr = useWSDL ? defWSDL : defURL;
  Soaphttpclient::THTTPRIO* rio = HTTPRIO ? HTTPRIO : new Soaphttpclient::THTTPRIO(0);
  if (useWSDL) {
    rio->WSDLLocation = addr;
    rio->Service = defSvc;
    rio->Port = defPrt;
  } else {
    rio->URL = addr;
  }
  _di_ServiceSMS service;
  rio->QueryInterface(service);
  if (!service && !HTTPRIO)
    delete rio;
  return service;
}
 
 
// ************************************************************************ //
// Cette routine enregistre les interfaces et les types exposés par le service Web.
// ************************************************************************ //
static void RegTypes()
{
  /* ServiceSMS */
  InvRegistry()->RegisterInterface(__delphirtti(ServiceSMS), L"http://service.managesms.nexxys.com/", L"UTF-8");
  InvRegistry()->RegisterDefaultSOAPAction(__delphirtti(ServiceSMS), L"");
  InvRegistry()->RegisterInvokeOptions(__delphirtti(ServiceSMS), ioDocument);
  /* ServiceSMS.changePassword */
  InvRegistry()->RegisterMethodInfo(__delphirtti(ServiceSMS), "changePassword", "",
                                    "[ReturnName='return']", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "changePassword", "userLogin", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "changePassword", "userpassword", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "changePassword", "newpassword", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "changePassword", "return_", L"return",
                                   L"", IS_UNQL);
  /* ServiceSMS.crypter */
  InvRegistry()->RegisterMethodInfo(__delphirtti(ServiceSMS), "crypter", "",
                                    "[ReturnName='return']", IS_OPTN | IS_NLBL | IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "crypter", "arg0", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "crypter", "return_", L"return",
                                   L"", IS_NLBL | IS_UNQL);
  /* ServiceSMS.genererPWD */
  InvRegistry()->RegisterMethodInfo(__delphirtti(ServiceSMS), "genererPWD", "",
                                    "[ReturnName='return']", IS_OPTN | IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "genererPWD", "return_", L"return",
                                   L"", IS_UNQL);
  /* ServiceSMS.envoyerSMS */
  InvRegistry()->RegisterMethodInfo(__delphirtti(ServiceSMS), "envoyerSMS", "",
                                    "[ReturnName='return']", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMS", "userLogoin", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMS", "userpassword", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMS", "destinataires", L"",
                                   L"[Namespace='http://jaxb.dev.java.net/array', ArrayItemName='item']", IS_UNBD | IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMS", "messages", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMS", "numeroCourt", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMS", "return_", L"return",
                                   L"", IS_UNQL);
  /* ServiceSMS.envoyerSMSAFB */
  InvRegistry()->RegisterMethodInfo(__delphirtti(ServiceSMS), "envoyerSMSAFB", "",
                                    "[ReturnName='return']", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSAFB", "userLogoin", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSAFB", "userpassword", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSAFB", "destinataires", L"",
                                   L"[Namespace='http://jaxb.dev.java.net/array', ArrayItemName='item']", IS_UNBD | IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSAFB", "messages", L"",
                                   L"[Namespace='http://jaxb.dev.java.net/array', ArrayItemName='item']", IS_UNBD | IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSAFB", "numeroCourt", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSAFB", "return_", L"return",
                                   L"", IS_UNQL);
  /* ServiceSMS.envoyerSMSNew */
  InvRegistry()->RegisterMethodInfo(__delphirtti(ServiceSMS), "envoyerSMSNew", "",
                                    "[ReturnName='return']", IS_OPTN | IS_UNBD | IS_NLBL | IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSNew", "userLogoin", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSNew", "userpassword", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSNew", "destinataires", L"",
                                   L"[Namespace='http://jaxb.dev.java.net/array', ArrayItemName='item']", IS_UNBD | IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSNew", "messages", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSNew", "numeroCourt", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSNew", "return_", L"return",
                                   L"[ArrayItemName='return']", IS_UNBD | IS_NLBL | IS_UNQL);
  /* ServiceSMS.envoyerUnSMS */
  InvRegistry()->RegisterMethodInfo(__delphirtti(ServiceSMS), "envoyerUnSMS", "",
                                    "[ReturnName='return']", IS_OPTN | IS_UNBD | IS_NLBL | IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerUnSMS", "userLogoin", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerUnSMS", "userpassword", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerUnSMS", "destinataires", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerUnSMS", "messages", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerUnSMS", "numeroCourt", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerUnSMS", "return_", L"return",
                                   L"[ArrayItemName='return']", IS_UNBD | IS_NLBL | IS_UNQL);
  /* ServiceSMS.consulterSolde */
  InvRegistry()->RegisterMethodInfo(__delphirtti(ServiceSMS), "consulterSolde", "",
                                    "[ReturnName='return']", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "consulterSolde", "userLogin", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "consulterSolde", "userpassword", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "consulterSolde", "return_", L"return",
                                   L"", IS_UNQL);
  /* ServiceSMS.envoyerSMSURL */
  InvRegistry()->RegisterMethodInfo(__delphirtti(ServiceSMS), "envoyerSMSURL", "",
                                    "[ReturnName='return']", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSURL", "arg0", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSURL", "arg1", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSURL", "arg2", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSURL", "arg3", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSURL", "arg4", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "envoyerSMSURL", "return_", L"return",
                                   L"", IS_UNQL);
  /* ServiceSMS.listContactsUser */
  InvRegistry()->RegisterMethodInfo(__delphirtti(ServiceSMS), "listContactsUser", "",
                                    "[ReturnName='return']", IS_OPTN | IS_UNBD | IS_NLBL | IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "listContactsUser", "userLogoin", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "listContactsUser", "userpassword", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "listContactsUser", "return_", L"return",
                                   L"[ArrayItemName='return']", IS_UNBD | IS_NLBL | IS_UNQL);
  /* ServiceSMS.emailValidator */
  InvRegistry()->RegisterMethodInfo(__delphirtti(ServiceSMS), "emailValidator", "",
                                    "[ReturnName='return']", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "emailValidator", "arg0", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "emailValidator", "return_", L"return",
                                   L"", IS_UNQL);
  /* ServiceSMS.phoneValidator */
  InvRegistry()->RegisterMethodInfo(__delphirtti(ServiceSMS), "phoneValidator", "",
                                    "[ReturnName='return']", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "phoneValidator", "arg0", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "phoneValidator", "return_", L"return",
                                   L"", IS_UNQL);
  /* ServiceSMS.formatTel */
  InvRegistry()->RegisterMethodInfo(__delphirtti(ServiceSMS), "formatTel", "",
                                    "[ReturnName='return']", IS_OPTN | IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "formatTel", "arg0", L"",
                                   L"", IS_UNQL);
  InvRegistry()->RegisterParamInfo(__delphirtti(ServiceSMS), "formatTel", "return_", L"return",
                                   L"", IS_UNQL);
  /* listContactsUserResponse */
  RemClassRegistry()->RegisterXSInfo(__delphirtti(listContactsUserResponse), L"http://service.managesms.nexxys.com/", L"listContactsUserResponse");
  /* envoyerUnSMSResponse */
  RemClassRegistry()->RegisterXSInfo(__delphirtti(envoyerUnSMSResponse), L"http://service.managesms.nexxys.com/", L"envoyerUnSMSResponse");
  /* stringArray */
  RemClassRegistry()->RegisterXSInfo(__delphirtti(stringArray), L"http://jaxb.dev.java.net/array", L"stringArray");
  /* envoyerUnSMSResponse */
  RemClassRegistry()->RegisterXSInfo(__delphirtti(envoyerUnSMSResponse), L"http://service.managesms.nexxys.com/", L"envoyerUnSMSResponse");
  /* listContactsUserResponse */
  RemClassRegistry()->RegisterXSInfo(__delphirtti(listContactsUserResponse), L"http://service.managesms.nexxys.com/", L"listContactsUserResponse");
}
#pragma startup RegTypes 32
 
};     // NS_ServiceSMS

un petit programme de test

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#include "Unit111.h"
#include "ServiceSMS.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm111 *Form111;
 
//---------------------------------------------------------------------------
__fastcall TForm111::TForm111(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm111::Button1Click(TObject *Sender)
{
  stringArray mArray;
  mArray.Length=1;// le nombre d'éléments de la dynamique array
  mArray.operator[](0)="123";// tu peux avoir plusuieurs Numéro de tel il faut que la longueur de l'array soit identique
  //mArray.operator[](1)="456";
 
_di_ServiceSMS mService=GetServiceSMS(true);  // pointeur sur l'interface
   Edit1->Text=mService->envoyerSMS("","",mArray,"Test","123");// Appel de la méthode
  mArray.Length=0; // libération mémoire de la dynamique Array
}
//---------------------------------------------------------------------------

tu a besoin de la dernière version de c++ Builder

cordialement

23/07/2019, 16h56
dibak

Salut DjmSoftware,
tu veux dire qu'avec la version c++builder 5 je ne peux pas utiliser un web service?
23/07/2019, 21h44
DjmSoftware

Malheureusement non et même avec des versions de 2010 cela ne fonctionne pas avec ce type de webservice. le protocole SOAP a bien évolué depuis.
raison pour laquelle il faut migrer sur la version 10.3.x.
Si la valeur commerciale de ton développement est inférieur à 5000 Euro annuel tu peux disposer de la version gratuite community de c++ builder.
Autrement il te faudra investir dans une des versions de C++ builder
Cordialement
26/07/2019, 00h50
dibak

Citation:

Envoyé par DjmSoftware

Malheureusement non et même avec des versions de 2010 cela ne fonctionne pas avec ce type de webservice. le protocole SOAP a bien évolué depuis.

Salut DjmSoftware,
l'utilisation de gSOAP ne te dit rien, je crois que c'est pour résoudre de tel problème. Ma préoccupation à très court terme c'est d'utiliser cette fonction envoyerSMS mais à moyen terme je suis d'accord avec toi qu'il me faut migrer. j'ai d'ailleurs commencé à rassembler mes outils (SGBD, IDE, ...) pour la migration vers la version 10.3.x.

Je suis entrain d'exploiter les liens suivants:
http://www.cs.fsu.edu/~engelen/soap.html et https://r0d.developpez.com/articles/tuto-gsoap-fr/#LI-A

J'ose croire qu'il traite de ce sujet. Étant plus outillé que moi sur ce domaine, qu'en penses-tu?
ton avis me guiderais.

Cordialement
26/07/2019, 08h44
DjmSoftware

Salut
Je ne connais pas Gsoap et je vais m'y intéresser.A première vue les experts d'importation génère du code de bas niveau en comparaison de C++ Builder qui te fournir du code C++ de haut niveau( génération de classe,Méthodes exposées, ainsi que toute la partie de communication)
bien cordialement.
04/06/2020, 10h36
engi

Salut Dibak,
Je suis confronté à la même problématique.
As tu réussi à utiliser gsoap ou bien as tu migré vers BCB 10.3 pour régler ton problème ?