Discussion :

[Jeweller]

Bonjour,
J'ai un message d'erreur assez violent lors de l'arret de IIS (et donc de mon appli XMLRAD (2005R2, mode pluggin): "La mémoire ne pas pas etre read", puis "runtime error", etc...

En débugant je tombe sur une opération de pointeur incorrect dans le TXMLApplication.Destroy (ligne 1865, XMLApp.pas), lors du DoDestroy sur un AppEvent.

Je ne sais pas pourquoi, ni comment corriger cela. Avez vous des infos ou des pistes à me donner pour m'aider à trouver mon problème ?

Michael

[RDM]

La descente d'une DLL ISAPI est toujours complexe. d'autant plus si tu es en mode plugin et avec des XMLApplicationEvents . il peut y avoir des tonnes de choses qui peuvent ne pas aller.

on va procéder par étape:
1/ as-tu réellement un composant XMLApplicationEvents posé sur un des XMLModules ?
2/ Si oui, y-t-il un evenement OnDestroy d'implémenter ?
3/ Si oui, est-ce que le problème est toujours là quand tu désactives l'evenement OnDestroy ?
4/ si oui, quel est le code de cet événement ?

[Jeweller]

Oui, j'ai bien un XMLApplicationEvents (le FXMLApplicationEventsList.Count est bien à 1), mais avec aucune méthode définie pour l'évènement OnDestroy. Si j'en défini une (qui ne fait rien) je passe dedans sans erreur et c'est en sortant que l'exception se déclanche! F7 ne me permet pas d'aller plus loin!
Je n'arrive pas à savoir ce qui se passe!

[RDM]

yep je le reproduis. c'est un bug très vicieux. problème de compteur de référence de XMLApplication au sein même de son destructor !
pour contourner le problème tu as 2 solutions:
1/ si tu ne veux pas / n'a pas besoin d'implémenter un OnDestroy ET que tu es seulement en application Win32 tu peux faire le fix suivant dans le DoDestroy:

Code :

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

1
2
3
4
5
6
for I := 0 to FXMLApplicationEventsList.Count-1 do
begin
  XMLAppEvents := FXMLApplicationEventsList.Objects[I] as TCustomXMLApplicationEvents;
  if Assigned(XMLApplicationEvents(XMLAppEvents).OnDestroy) then
    XMLAppEvents.DoDestroy(Self, OnDestroyEventArgs);
end;

2/ autrement il faut incrémenter le compteur de référence de Self:

Code :

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

1
2
3
4
5
6
for I := 0 to FXMLApplicationEventsList.Count-1 do
begin
  XMLAppEvents := FXMLApplicationEventsList.Objects[I] as TCustomXMLApplicationEvents;
  Seld._AddRef;
  XMLAppEvents.DoDestroy(Self, OnDestroyEventArgs);
end;

Malheureusement pour un fix officiel faudra attendre la 2006

[Jeweller]

Ok, Super!

J'ai opté pour le 2ieme fix, et cela fonctionne!
Merci!

Michael