Discussion :

[rsc]

Cherchant à utiliser ToolsApi pour récupérer à la conception le nom du project actif, je trouve le code suivant :

Code :

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

 if Supports(ModuleServices.Modules[i], IOTAProjectGroup, Result) then Exit;

Mais apparemment mon Delphi 4 ne supporte pas Supports
Si je saisis bien, il s'agit de vérifier que Modules... est bien récupérable par l'interface IOTAProjectGroup, et de l'affecter à Result.

D'où ma question :
Supports n'existe-t-il vraiment pas dans Delphi 4, et qu'emploieriez-vous à la place ?

Merci d'avance !

[tourlourou]

si tu essayes d'obtenir une interface dans un try, l'except te donnera le false du supports

[rsc]

J'espérais plus propre, mais je vais effectivement essayer comme ça ?
Merci !

[rsc]

Ben comme pas très propre, on est servi !
Le bloc try.. except n'empêche pas qu'à la première erreur, il me jette en beauté, et me ferme carrément l'IDE
Autre chose ??

[rsc]

:trouve:

Code :

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

 if ModuleServices .Modules [i] .QueryInterface (IOTAProjectGroup, Result) = S_OK

Par contre je ne sais pas si après cet appel à QueryInterface, j'ai de la mémoire à libérer, et comment...

[tourlourou]

le propre des interfaces est de ne pas nécessiter de libération : quand elles ne sont plus utilisées, elles sont libérées automatiquement

[rsc]