Discussion :

[cchasse98]

Bonjour,

Habituellement quand j'appelle un service je lui passe des paramètres voici un exemple de la façon que mon service est déclaré.

Code :

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

function  GetWoManufactured(const inEntity: WideString; const woNo: Integer): WoDto; stdcall;

Voici comment j'appelle mon service et qu'il me retourne ma valeur.

Code :

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

1
2
Service1 := querywoservice.GetIQueryWoService(TRUE);
        Num := Service1.GetWoManufactured('DG', StrToInt(Copy(dXfo, 1, (Pos('-', dXfo)-1))));

Maintenant le service et déclarer de cette façon, si je comprends bien je dois lui passer un objet. Comment je fais ???

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function  ReelLink(const parameters: ReelLink): ReelLinkResponse; stdcall;
 
ReelLink = class(TRemotable)
  private
    ForderLineSeq: OrderLineSeqDto;
    Fxfo: XfoDto;
  public
    destructor Destroy; override;
  published
    property orderLineSeq: OrderLineSeqDto read ForderLineSeq write ForderLineSeq;
    property xfo: XfoDto read Fxfo write Fxfo;
  end;

Merci

[ShaiLeTroll]

un WebService donc !
Lorsque l'on parle de Service, on pense plutôt un Service Windows !

Tu n'as pas fourni ton code d'essai d'appel !
Tu n'as pas fourni les classes OrderLineSeqDto et XfoDto


C'est du code objet tout simple, pareil que si tu peux manipulait une TStrings par exemple

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
 
var
  monRL := ReelLink;
  SaRLReponse := ReelLinkResponse;
 
...
 
Service1 := querywoservice.GetIQueryWoService(TRUE);
 
monRL:= ReelLink.Create();
monRL.orderLineSeq := OrderLineSeqDto.Create();
monRL.orderLineSeq.... := 'DG'; // Au pif, à toi de trouver les données métier
monRL.xfo:= XfoDto.Create();
monRL.xfo.... := dXfo; // Au pif, à toi de trouver les données métier, c'est un objet, il doit lui aussi avoir des propriétés
 
SaRLReponse := Service1.ReelLink(monRL);
 
// l'appelant est responsable de la libération des paramètres et des objets en retour
monRL.Free(); 
SaRLReponse.Free();

[cchasse98]

Bonjour,

Merci