Discussion :

[adaneels]

Bonjour,

Est-il possible d'utiliser des paramètres out dans une interface lorsqu'on utilise "ajouter une référence web"?

Dans mon cas, un service web développé en Delphi qui a par exemple une fonction "function Toto (const a: string; out b: string;out c: integer) : boolean; stdcall;"

L'invocation de cette méthode fonctionne très bien via un HTTPRio.

Mais dans un site ASP.NET, via "ajouter une référence web", l'interface importée donne le profil suivant : "function Toto(a: string; out c: integer; out return: boolean): string;"
Le profil est changé : les paramètres ne sont plus les mêmes et ça s'emmêle les pinceaux lors d'un appel du coup.

Est-ce que quelqu'un a déjà rencontré ce problème ou a une idée/piste ?

[adaneels]

En fait, il faut réécrire une partie des définitions...

Quand vous rajoutez une référence web, ça vous rajoute un .map, un .pas et un .wsdl

Prenez le .pas et réécrivez les profils des fonctions contenant des paramètres out.

Par exemple avec la fonction dont le profil est Vous avez

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
interface
[...]
function Toto(a: string; out c: integer; out return: boolean): string;
[...]
function EndToto(asyncResult: System.IAsyncResult: out c: integer; out return: boolean) : string;
[...]
implementation
[...]
function EndToto(asyncResult: System.IAsyncResult: out c: integer; out return: boolean) : string;
type
  TArrayOfSystem_Object = array of System.Object;
var
  results: TArrayOfSystem_Object;
begin
  results := Self.EndInvoke(asyncResult);
  c := (integer(results[2]));
  return := (Boolean(results[1]));
  Result := (string(results[0]));
end;

Corrigez le en mettant :

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
interface
[...]
function Toto(a: string; out b: string; out c: integer): boolean;
[...]
function EndToto(asyncResult: System.IAsyncResult; out b: string; out c: integer): boolean;
[...]
implementation
[...]
function EndToto(asyncResult: System.IAsyncResult; out b: string; out c: integer): boolean;
type
  TArrayOfSystem_Object = array of System.Object;
var
  results: TArrayOfSystem_Object;
begin
  results := Self.EndInvoke(asyncResult);
  c := (integer(results[1]));
  Result := (Boolean(results[0]));
  b := (string(results[2]));
 // pour les index, lire de droite à gauche pour stdcall : le retour est à l'index 0, le dernier paramètre est à l'index 1, etc.
end;

Je ne sais pas si le problème vient de la norme stdcall (ce qui m'étonnerait) ou de l'assistant d'importation d'interface wsdl de Borland (ce ne serait pas la première surprise que j'ai avec Delphi 2005 ) mais ça m'intéresse de savoir.
Si vous avez la réponse, je suis preneur.

adaneels