Bonjour,

J'a développé une DLL (qu'on appellera popo.dll).
Cette DLL je l'utilisais jusqu'à présent dans un projet de type Shared Add-in pour Office toujours en C#

Maitenant j'ai besoin d'utiliser popo.dll dans un projet Delphi.
J'ai donc décoré la classe qui m'interresse dans cette DLL avec [ClassInterface(ClassInterfaceType.None)] et modifié le assemblyInfo pour que Dephi voit l'objet COM.

L'utilisation de la DLL dans Delphi fonctionne parfaitement à partir du moment où je n'installe pas l'Add-in.
Comment faire cohabiter les deux projets ?

Le code de la classe qui pose problème.
Code C# : 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
37
38
39
40
41
42
43
44
45
46
47
48
49
[ClassInterface(ClassInterfaceType.None)] 
   public partial class GedService
    {
        /// <summary>
        /// Constructeur par défaut
        /// </summary>
        public GedService()
        {
 
        }
 
        /// <summary>
        /// Méthode d'import de fichiers en GED
        /// </summary>
        /// <returns></returns>
        public Boolean Import(GedImporterCriteria gedImporterCriteria)
        {
            if (gedImporterCriteria == null)
                throw new ArgumentNullException("gedImporterCriteria");
 
            GedImporter gedImporter = new GedImporter();
            return gedImporter.Import(gedImporterCriteria);
        }
 
        /// <summary>
        /// Méthode d'export de fichiers en GED
        /// </summary>
        /// <returns></returns>
        public Boolean Export(GedExporterCriteria gedExporterCriteria)
        {
            if (gedExporterCriteria == null)
                throw new ArgumentNullException("gedExporterCriteria");
 
            GedExporter gedExporter = new GedExporter();
            return gedExporter.Export(gedExporterCriteria); 
        }
 
        /// <summary>
        /// Méthode de génération de miniatures
        /// </summary>
        /// <returns>String</returns>
        public String Thumbnail(String fullName, String outPutDirectory, int width, int height)
        {
            GedThumbnailCriteria gedThumbnailCriteria = new GedThumbnailCriteria(fullName, outPutDirectory, width, height);
            GedThumbnail gedThumbnail = new GedThumbnail();
            return gedThumbnail.Thumbnail(gedThumbnailCriteria);
        }
 
    }

Le code modifié dans le assemblyInfo
Code C# : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
[assembly: AssemblyTitle("Ged")]
[assembly: AssemblyDescription("Outil pour la gestion électronique de documents")]
[assembly: AssemblyConfiguration("")]
[assembly: AssemblyCompany("Popo")]
[assembly: AssemblyProduct("Ged")]
[assembly: AssemblyCopyright("Copyright © Popo 2012")]
[assembly: AssemblyTrademark("")]
[assembly: AssemblyCulture("")]
[assembly: ApplicationName("Popo.Services.Ged")]
[assembly: ApplicationActivation(ActivationOption.Library)]
 
// Setting ComVisible to false makes the types in this assembly not visible 
// to COM components.  If you need to access a type in this assembly from 
// COM, set the ComVisible attribute to true on that type.
[assembly: ComVisible(true)]

L'utilisation dans Delphi si ça peux servir.
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
function ExistComObject(Const Identifier : String) : Boolean;
 
  function ExistGUID(GuidIdentifier : TGUID) : Boolean;
  var ComObject : IUnknown;
  begin
    Result := Succeeded(CoCreateInstance(GuidIdentifier, nil, CLSCTX_INPROC_SERVER or
      CLSCTX_LOCAL_SERVER, IUnknown, ComObject));
  end;
 
var Guid : TGUID;
begin
  Result := False;
  FillChar(Guid,SizeOf(TGUID), #0);
  if Succeeded(CLSIDFromProgID(PWideChar(WideString(Identifier)), GUID)) then
    Result:=ExistGUID(GUID);
end;
 
...
 
if (ExistComObject('Popo.Services.Ged.GedService')) then
begin
          GedOleVariant := CreateOleObject('Popo.Services.Ged.GedService'); //<= plante ici
          Thumbnail := GedOleVariant.Thumbnail(Fichier.Text,ExtractFilePath (Fichier.Text),500,500);
          GedOleVariant := Unassigned;
end;