Bonjour
Je viens de générer des lignes Delphi (déclaration de classes et de fonctions) à partir du logiciel de modélisation UML Visual Paradigm en vue de les intégrer dans un Web Service mais je n'y arrive pas.
Ce source généré automatiquement se trouve dans gescom.pas
Faut-il que je découpe ce source ou peut-on l'intégrer directement ?
(je débute en delphi et j'ai un peu de mal avec les déclarations de classe)
Source de l'interface du Web Service :
Source de l'implémentation du Web Service :
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 uses InvokeRegistry, Types, XSBuiltIns; Type { Les interfaces invocables doivent dériver de IInvokable } IGescom = interface(IInvokable) ['{28E05B14-C9A0-4FD6-8E59-4BC0E31D766C}'] { Les méthodes de l'interface invocable ne doivent pas utiliser la convention } { d'appel par défaut ; stdcall est conseillée } End; implementation initialization { Les interfaces invocables doivent être recensées } InvRegistry.RegisterInterface(TypeInfo(IGescom)); end.
Source générée par Visual Paradigm, à intégrer dans le Web Service :
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 { Fichier d'implémentation invocable pour TGescom qui implémente IGescom } unit GescomImpl; interface uses InvokeRegistry, Types, XSBuiltIns, GescomIntf; type { TGescom } TGescom = class(TInvokableClass, IGescom) public end; implementation uses Gescom; initialization { Les classes invocables doivent être recensées } InvRegistry.RegisterInvokableClass(TGescom); end.
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 Unit Gescom; Interface Uses SysUtils; Type PLAN_ANALYTIQUE = Class; PLAN_ANALYTIQUE = Class(TObject) Private _code_analytique:String; Private _libelle:String; Private _libelle_court:String; Public Function getCode_analytique():String; End; Implementation Function PLAN_ANALYTIQUE.getCode_analytique():String; Begin Result := Self._code_analytique; End; End.
Partager