Discussion :

[gandf]

Bonsoir,

J'essaie d'utiliser la JCL pour utiliser une classe c# en .net.
J'ai trouvé du code delphi qui permet de le faire mais le problème c'est que je n'arrive pas à traduire une ligne.
Je bloque sur le code suivant :

Code :

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

1
2
3
4
System::DelphiInterface<IObjectHandle> obj;
//IObjectHandle *obj;
int result = (IObjectHandle *)IUnknown(AppDomain->DefaultInterface->CreateInstanceFrom(
ExtractFilePath(Application->ExeName)+"lib.dll", "maclassecsharp", &obj));

A l'origine, le code devait être le suivant :

Code :

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

1
2
3
//Create an instance of the dot Net class
obj := IUnknown(AppDomain.CreateInstanceFrom(
ADotNetAssemblyUnc, ADotNetClassName)) as IOBjectHandle;

Et l'erreur :

Code :

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

1
2
[BCC32 Erreur] Unit1.cpp(166): E2357 Référence initialisée avec 'IObjectHandle * *', nécessite lvalue de type '_di__ObjectHandle'
[BCC32 Erreur] Unit1.cpp(166): E2342 Mauvaise correspondance de type dans le paramètre '__CreateInstanceFrom_result' ('_di__ObjectHandle &' désiré, 'IObjectHandle * *' obtenu)

Si je ne met pas '&' devant obj, j'obtiens :

Code :

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

[BCC32 Erreur] Unit1.cpp(166): E2342 Mauvaise correspondance de type dans le paramètre '__CreateInstanceFrom_result' ('_di__ObjectHandle &' désiré, '_di_IObjectHandle' obtenu)

Quelqu'un peut m'aider ?

Merci

[Crayon]

J'ai jamais utilisé ce genre de code, par contre je trouve ça bizarre de caster en IObjectHandle * et d'en suite mettre la valeur dans un int.

En plus, est-ce que tu es certain que CreateInstanceFrom a comme premier paramètre une String ou AnsiString (ceux de C++Builder)?

Au moins, j'ai tenter une réponse, c'est mieux que rien. Enfin, je l'espère

[kmaniche]

Code :

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

1
2
3
4
System::DelphiInterface<IObjectHandle> obj;
//IObjectHandle *obj;
int result = (IObjectHandle *)IUnknown(AppDomain->DefaultInterface->CreateInstanceFrom(
ExtractFilePath(Application->ExeName)+"lib.dll", "maclassecsharp", &obj));

Je pense que tu devrais faire quelque chose comme :

Code :

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

(IObjectHandle **) result = (IObjectHandle **)IUnknown(AppDomain->DefaultInterface->CreateInstanceFrom(

[gandf]

Merci pour ces réponses. Au moins, ça me permet d'avancer.

Le code dont je me suis inspiré utilise une ancienne version de cette librairie. Voici la déclaration de la fonction qui pose problème :

Code :

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

HRESULT __safecall CreateInstanceFrom(const System::WideString assemblyFile, const System::WideString typeName, _di__ObjectHandle &__CreateInstanceFrom_result)

pour le (IObjectHandle *), c'est une erreur de ma part, c'est un HRESULT. Pour tester, je peux l'enlever.
Par contre, le compilateur a l'air d'accepter l'UnicodeString.

Avec ces informations supplémentaires, vous avez d'autres idées ?
Moi, je ne vois toujours pas la solution.

Merci

[gandf]

J'ai pu avancer un petit peu. Le code à traduire est le suivant :

Code :

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

1
2
3
//Create an instance of the dot Net class
obj := IUnknown(AppDomain.CreateInstanceFrom(
ADotNetAssemblyUnc, ADotNetClassName)) as IOBjectHandle;

Et pour l'instant j'obtient :

Code :

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

1
2
3
4
_di__ObjectHandle obj;
HRESULT instresult = AppDomain->DefaultInterface->CreateInstanceFrom(
ExtractFilePath(Application->ExeName)+"lib.dll", "maclassecsharp", obj);
int result = IUnknown(instresult);

Et du coup, j'ai une erreur à la dernière ligne :

[BCC32 Erreur] Unit1.cpp(168): E2352 Impossible de créer une instance de la classe abstraite 'IUnknown'

Et la, je ne sais pas quoi faire.

Une idée ?

Merci

[Crayon]

J'ai trouvé ce code sur un forum:

Code :

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

1
2
LPVOID *ppv;
*ppv = (IUnknown*) this;

Tu peux essayer en mettant this = instresult.

J'ai aucune idée si ça va fonctionner

[gandf]

Non, ça ne fonctionne pas.

Je vais directement poser la question sur le forum dotnet. Il y aura bien quelques personnes qui savent faire fonctionner l'interop.

Merci