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 :

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 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
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.
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
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.