Bonjour,

On m'a confié la charge de lister tous les avertissements de nos produits et de faire une documentation sur la manière de les éradiquer.

Cependant, je bloque sur l'unité OleAuto.
J'ai lu dans pas mal de forums qu'il fallait remplacer cette unité par les unités ComObj et ActiveX mais ça ne m'avance pas beaucoup car maintenant je n'ai plus de référence à TAutoClassInfo et j'avoue ne pas très bien connaitre le mécanisme OLE

Comment puis-je remplacer ce code ?
Code Delphi : 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
uses
  OleAuto;
 
type
 
TOleXXX = class(TAutoObject)
  automated
    function DoSomething : variant;
    function DeSomethingElse: variant;
  end;
 
procedure RegisterXXX;
 
implementation
 
procedure RegisterXXX;
const
  AutoClassInfo: TAutoClassInfo = (
    AutoClass: TOleXXX ;
    ProgID: 'MyProgram.ProgId';
    ClassID: '{252E1A31-EBAE-4A58-9050-3486DC0A1755}';
    Description: 'Une description';
    Instancing: acMultiInstance);
begin
  Automation.RegisterClass(AutoClassInfo);
end;
 
function TOleXXX.DoSomething : variant;
begin
  ...
end;
 
function TOleXXX.DoSomethingElse : variant;
begin
  ...
end;