exception de violation d'accès à partir des supports de Delphi -> QueryInterface

Question

je le morceau de code suivant:

for i := 0 to FControlList.Count - 1 do 
     if Supports(IMyControl(FControlList[i]), IMyControlEx) then 
     begin 
     MyControlEx := IMyControl(FControlList[i]) as IMyControlEx; 
     MyControlEx.DoYourMagic(Self, SomeData); 
     end; 

Ce code est appelé à plusieurs reprises au cours de mon exécution de l'application, mais il échoue dans certains cas spécifiques à l'intérieur des supports() méthode. Et plus précisément - il semble tomber dans l'appel de QueryInterface() dans la méthode Supports().

J'ai vérifié que FControlList n'est pas nul et que FControlList [i] n'est pas nul et que cela arrive toujours.

Toute idée sera appréciée !!!

Answer 1

Même si FControlList[I] n'est pas nil, cela ne signifie pas qu'il pointe vers des données valides. L'instance d'objet sous-jacente a peut-être déjà été libérée.

Je suggère également d'enlever le type coulé à IMyControl. Supports peut prendre des objets et des interfaces en tant que paramètre, même si elles sont nil, et produire le résultat souhaité.

En outre, vous pouvez envisager d'utiliser cette façon d'appeler supports pour votre convenance et readabilty du code:

if Supports(FControlList[i], IMyControlEx, MyControlEx) then 
begin 
    MyControlEx.DoYourMagic(Self, SomeData); 
end;