Discussion :

[marc85]

Bonjour
Je débute avec l'utilisation de webService avec Delphi 7.
J'ai récupéré le fichier WSDL que j'ai importé avec l'importateur de fichier WSDL de Delphi

J'ai mis alors l'instruction suivante :
Memo1.Text := GetGlobalWeatherSoap(True,'',nil).GetCitiesByCountry('PARIS'); mais j'ai l'erreur suivante à l'exécution :

procedure or function 'getWCity' expects parameter @CountryName which was not supplied

Visiblement le paramètre n'est pas transmis

Est-ce quelqu'un aurait une idée pour me dépanner ?

Ci-dessous le code généré par l'importateur de WSDL

Merci d'avance

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
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
// ************************************************************************ //
// Les types déclaré dans ce fichier ont été générés à partir de données lues dans le fichier
// WSDL décrit ci-dessous :
// WSDL     : C:\ESSAI\meteo.wsdl
// Codegen  : [wfDebug,wfUseSerializerClassForAttrs]
// (24/09/2012 16:13:04 - 1.33.2.5)
// ************************************************************************ //
 
unit meteo;
 
interface
 
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
 
type
 
  // ************************************************************************ //
  // Les types suivants mentionnés dans le document WSDL ne sont pas représentés
  // dans ce fichier. Ce sont soit des alias[@] de types représentés ou alors ils sont 
  // référencés mais jamais[!] déclarés dans ce document. Les types de la dernière catégorie
  // sont en principe mappés à des types Borland 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"
 
 
 
  // ************************************************************************ //
  // Espace de nommage : <a href="http://www.webserviceX.NET" target="_blank">http://www.webserviceX.NET</a>
  // soapAction : <a href="http://www.webserviceX.NET/%operationName%" target="_blank">http://www.webserviceX.NET/%operationName%</a>
  // transport : <a href="http://schemas.xmlsoap.org/soap/http" target="_blank">http://schemas.xmlsoap.org/soap/http</a>
  // liaison   : GlobalWeatherSoap
  // service   : GlobalWeather
  // port      : GlobalWeatherSoap
  // URL       : <a href="http://www.webservicex.net/globalweather.asmx" target="_blank">http://www.webservicex.net/globalweather.asmx</a>
  // ************************************************************************ //
  GlobalWeatherSoap = interface(IInvokable)
  ['{8091B155-5793-08E1-8C8C-B170D069C2CB}']
    function  GetWeather(const CityName: WideString; const CountryName: WideString): WideString; stdcall;
    function  GetCitiesByCountry(const CountryName: WideString): WideString; stdcall;
  end;
 
function GetGlobalWeatherSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): GlobalWeatherSoap;
 
 
implementation
 
function GetGlobalWeatherSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): GlobalWeatherSoap;
const
  defWSDL = 'C:\ESSAI\meteo.wsdl';
  defURL  = 'http://www.webservicex.net/globalweather.asmx';
  defSvc  = 'GlobalWeather';
  defPrt  = 'GlobalWeatherSoap';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as GlobalWeatherSoap);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;
 
 
initialization
  InvRegistry.RegisterInterface(TypeInfo(GlobalWeatherSoap), 'http://www.webserviceX.NET', '');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(GlobalWeatherSoap), 'http://www.webserviceX.NET/%operationName%');
 
end.

[Linkin]

Rajoute dans la partie initialization

Code :

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

1
2
 
  InvRegistry.RegisterInvokeOptions(TypeInfo(GlobalWeatherSoap), ioDocument);

(Merci l'importateur de Delphi XE2 pour voir la différence)

[marc85]

Impeccable, ça fonctionne
Merci beaucoup