[Delphi] XML opslaan geeft een Exception

[jelmervos]

Kan iemand mij misschien vertellen wat dit inhoudt:


Ik krijg deze zodra ik een functie aanroep waarin hij een XMLDocument (MSXML) opmaakt. Het vreemde is echter dat het wel goed gaat als ik die functie achter bijvoorbeeld een OnClick van een Button hang, maar het gaat dus mis zodra hij het vanuit een andere functie doet.

De Exception treedt op bij de XMLDocument.Active := True.

[Verwijderd]

Probeer dit eens:

Als je het XMLDocument wil opmaken, roep dan een functie aan die een message post naar jezelf mbv PostMessage;

Als je die message ontvangt open je het document.

Dus zoiets

code:

procedure TMyForm.OpenXMLDocument;
begin
  PostMessage(Handle, CM_OpenXMLDocument, 0, 0); 
end;

procedure TMyForm.CMOpenXMLDocument(var Message: TMessage);
begin
  XMLDocument.Active := True;
end;

[jelmervos]

Dat gaat idd werken denk ik, maar waarom deze fout? Moet ik misschien eerst CoInitialize(nil) voor het openen aanroepen, of is dat alleen in threads nodig?

[Verwijderd]

Zover ik kan begrijpen, kun je geen Automation Calls maken, als windows al bezig is met het afhandelen van een andere message [dmv SendMessage]

Als je dan een message naar jezelf verstuurt [dmv PostMessage], weet je zeker dat windows daar niet mee bezig is.

Maar begrijp ik nou goed, dat je die fout in een thread krijgt?

[jelmervos]

Nee, het opmaken van de XML gebeurd niet in een thread.

Overigens werkt het perfect als je SendMessage gebruikt!

Maar wat zijn dat voor calls dan? Ik snap niet echt het probleem.

[Verwijderd]

Ik had dit artikel gelezen.

Hierin hebben ze het over input-synchronous calls, en hiermee bedoelen ze volgens mij calls dmv SendMessage.

Zie nu dat ik het verkeerd gelezen heb..

Maar wanneer gaat het bij jouw fout.. Dus in reactie op welk event roep je XMLDocument.Active := True aan?

[edit]

Automation clients are required by COM to process input-synchronous calls without interruption, and therefore are prevented from making outgoing Automation calls while processing such messages.

Wat bedoelen ze hier nu met 'such'? Je zou toch zeggen input-synchronous calls ofniet?

[jelmervos]

Ik heb dus een procedure gemaakt die de opmaak van de XML verzorgt. Werkt perfect, ook als ik deze gewoon in andere events stop.

Behalve in een procedure die eerst een ListView veranderd en dan die procedure voor de XML opmaak aanroept, ik heb namelijk ondekt dat als de form waar het omgaat, hidden is dan gaat het wel goed. Daarom heb ik het gevoel dat het met die ListView te maken heeft. Maar het aanroepen van de XML procedure zit verder niet in een Begin/End Update ofzo.

[jelmervos]

Overigens zit het programma wel in de tray, maar weet niet of dat er mee te maken heeft. Las toevallig in dat MS article dat dat ook met de tray te maken heeft.

Ik kan er morgen wel es dieper op in gaan, door een aparte app te maken die deze fout ook maakt ofzo.

[Verwijderd]

Behalve in een procedure die eerst een ListView veranderd en dan die procedure voor de XML opmaak aanroept..

Maar wanneer wordt die procedure aangeroepen? Die procedure aanroep moet toch in een event staan oid?

[jelmervos]

Vanuit een procedure met een message directive bedenk ik me nu:

code:

procedure message
  procedure1
    procedure XML opslaan

Dat kan het probleem zijn idd, maar waarom is dat een probleem.

[Verwijderd]

Is dat een windows message?

Quote uit het msdn artikel

STATUS
This behavior is by design.

[jelmervos]

Dat is een zelf gedefineerd message (WM_APP + 101) die ik stuur vanuit een andere instancie van mijn programma, zodat deze actie kan ondernemen.

[Verwijderd]

Doet je dat mbv PostMessage of SendMessage?

[jelmervos]

SendMessage, omdat ik met PostMessage het probleem had dat hij soms bleef hangen.

Edit: maar ik kan het nu wel weer gebruiken, omdat ik nu ook nog een FindWindow check doe alvorens het bericht te sturen van de 2de instancie.

[Verwijderd]

Dat is dus het probleem denk ik..

Maar dat hij soms blijft hangen op een PostMessage [als de handle vd destination window niet bestaat, neem ik aan] vind ik wel apart; die kende ik nog niet..

[jelmervos]

PostMessage wacht op een antwoord ofzo, bepaalde spy-ware (en andere software?) stuurde niks terug, dus beelf ie hangen. SendMessage stuurt een bericht en gaat weer verder.

[Verwijderd]

Eh, dat is dus precies andersom..

[jelmervos]

Oja, sorry. Het is al laat.

Maar ik gebruik dus SendMessage, had het dus al veranderd.

Maar het neemt het probleem niet weg zoals ik heb beschreven aan het begin van dit topic. Is overigens wel gefixt door een PostMessage te doen.

[Verwijderd]

duurde effe maar nu snap ik wat je bedoelt.

Je deed een SendMessage van de ene applicatie naar de andere, maar die SendMessage bleef hangen; dus doe je nu een PostMessage. Dit zou eigenlijk geen probleem moeten geven - mbt XMLDocument.Active := True - maar dat doet het wel, en door nog een PostMessage te doen, werkt het wel...

Wat je misschien zou kunnen proberen is voor die XMLDocument.Active := True, de API InSendMessage aanroepen.

Dan weet je tenminste zeker of je toevallig toch via een SendMessage wordt aangeroepen.

BTW ik ga nu

[jelmervos]

Slaap lekker, ik ga ook pitten.

Bedankt voor je tips

[jelmervos]

Oud topic, maar toch een oplossing.

De contructor van TXMLDocument blijkt reintroduce te zijn. Doordat ik XMLDocument.Create(MainForm) deed gebruikt hij de Create van TComponent.
Het is voldoende op XMLDocument.Create(nil) te doen, maar dan wel CoInitialize(nil) e.d. erna gebruiken!

De constructor van TXMLDocument:

code:

constructor TXMLDocument.Create(const AFileName: DOMString);
begin
  inherited Create(nil);
  FFileName := AFileName;
end;

Thanks Dennis.