Discussion :

[RiiiDD]

Bonjour, je ne parviens pas à libérer un ole object.

Voici le bout de code :

Code :

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

1
2
3
4
5
 
var symbolParc : IMosymbol;
symbolParc := IMoSymbol(CreateOleObject('MapObjects2.Symbol'));
...
if assigned(symbolParc)  then freeandnil(symbolParc);

Mon freeandnil plante ...
pourquoi ?

Merci.

[Laurent Dardenne]

Salut, si tu utilises une interface c'est le compilateur qui gére sa libération via le compteur de référence.

[sjrd]

... donc il te suffit d'assigner Unassigned à symbolParc :

Code :

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

symbolParc := Unassigned;

[RiiiDD]

le unassigned ne fonctionnait pas ..."type incompatible variant et imopolygon"

donc j'ai fait ça ...

Code :

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

1
2
3
4
5
6
7
8
 
procedure Desinstincie_Un_Ole_Object(out MyoleObject: IMoPolygon);
var VariantTampon: variant;
begin
  VariantTampon := variant(MyoleObject);
  VariantTampon := unassigned;
  MyoleObject := nil;
end;

j'ai overload cette fonction 15 fois avec les 15 types différents car j'ai pas trouvé de type commun (Toleobject nexiste pas ...)

Alors je sais pas si ma fonction sert a grand chose ... mais j'ai rien trouvé de mieux !