Se passer de l'unité OleAuto
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:
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; |
