Discussion :

[popo]

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;

[ShaiLeTroll]

tu peux tout simplement utiliser RegSvr32 pour enregistrer tes DLL
Ce code est inutile si ta TLB est correctement renseignée

D'ailleurs, j'ai une vague documentation de TAutoClassInfo dans mon XE2 mais même pas le code source de OleAuto mais juste la DCU !

[popo]

En fait, je n'ai pas de DLL. Ce code est dans une application Delphi Win32 que l'on nommera "MyProgram" pour l'exemple.

Lorsque, dans une application "OtherProgram", je fait appel à CreateOleObject('MyProgram.ProgId'), cela utilise l'application "MyProgram".

Mon but est de faire la même chose (donc sans DLL) en utilisant des unités qui ne sont pas notées DEPRECATED.

[Andnotor]

L'enregistrement du serveur COM se fait simplement en appelant à l'installation :

Code :

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

MonProgram.exe -regserver

A noter : avec -regserver, l'application s'enregistre mais quitte immédiatement.
-unregserver à la désinstallation.

[popo]

En fait (j'aurais dû le préciser) "MyProgram" est une application complète et le but de ces lignes de codes était d'ouvrir une toute petite partie du fonctionnel à une application externe.

J'ai ce genre de code à trois endroit dans "MyProgram" avec bien entendu trois ProfId différent et trois classId différente

Le -regserver ne va-t-il pas considerer que tout "MyProgram" est ouvert à l'application externe ?

[ShaiLeTroll]

-regserver ne fait qu'enregistrer les objet COM présent dans ton EXE qui ont été déclaré correctement dans la TLB
C'est pareil que pour une DLL
un DLL c'est du COM In Process
un EXE c'est du COM Out-Process
un EXE c'est la possibilité de faire du DCOM

il te faudrait lire la documentation à ce sujet : Recensement d'un objet COM et Utilisation de l'expert Objet COM

Le -regserver ne va-t-il pas considerer que tout "MyProgram" est ouvert à l'application externe ?

L'interopérabilité entre les processus n'est pas aussi facile !
Qu'est que tout "MyProgram" ?
il faut lui décrire ce qu'il contient, sous Windows, c'est le COM et son format IDL
le IDL est le précurseur du MIDL du .NET (Microsoft Interface Definition Language)

En Borland, le BPL permet aussi cela pour partager des sources Delphi\C++Builder par d'autres modules Delphi\C++Builder

[popo]

Finalement, il a été décidé de réecrire tout ce fonctionnel en C# et d'en faire des DLL.

Merci de vous être penché sur mon problème