| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ни че я с этим XML не пойму. Почему документ становится не активн

Kolan ©   (2007-01-11 18:35:00) 

ым.

Так создаю документ:
constructor TMessageXMLBuilder.Create;
begin
 FXMLDocument := TXMLDocument.Create(nil);
 FXMLDocument.DOMVendor := GetDOMVendor('MSXML');
end;

Заполняю:
procedure TMessageXMLBuilder.BuildXMLDocument(Msg: string);
begin
 FXMLDocument.XML.Clear;
 FXMLDocument.XML.Text := PrepareMessage(Msg);
 FXMLDocument.Active := True;
 FXMLDocument.SaveToFile('C:\C.xml');
end;

Это вызов.

var
 XML: TXMLDocument;
begin
 TMessageXMLBuilder.GetInstance.BuildXMLDocument(mText.Text);
 XML := TMessageXMLBuilder.GetInstance.XMLDocument;
 TMessgeValidator.GetInstance.Validate(XML);
end;

Заполнив документ. Я его передаю на обработку. Вот

procedure TMessgeValidator.Typograf(Msg: TXMLDocument);
var
 TempNode: IXMLNode;
 I: Integer;
begin
 Msg.Active := True;
 if Assigned(Msg.DocumentElement.ChildNodes)  then
 begin
   for I := 0 to Msg.DocumentElement.ChildNodes.Count - 1 do
   begin
     TempNode := Msg.ChildNodes.Nodes[I];
     if not AnsiSameText(AnsiUpperCase(TempNode.NodeName), 'SomeNode') then
       DoSmth(TempNode.Text)
   end;
 end;

Я тут по разному изврашался, но после Msg.Active := True;Active = False. Так что дальнейшие изврашения невыполняются вообще.

Что нетак?
Вообще в итоге я хочу обойти вседерево и добраться до текста всех нодов <> 'SomeNode'.

ЗЫ
 Где прочитать про работу с XML в Delphi. Справку читал. Там хороший пример с компонентом. Как в Run-time'е работать ненашел...

---

Kolan   (2007-01-11 22:13:00) [1]

Вот почему я мучался:
var
Doc: TXMLDocument;
begin
Doc := TXMLDocument.Create(nil);
end;
The important thing to notice is that you are passing in nil as the owner. What happens then is that TXMLDocument takes on a different behavior; it acts as a reference counted object that automatically frees itself when those references reach zero. This means that the next time you do something to Doc that causes a decrease in the reference count, you run the risk of destroying the object and invalidating your reference. The problem is that so much happens to TXMLDocument behind the scenes, inside of the VCL, that it is hard to say when exactly the reference count is getting modified. The easiest way to get around this is to use an interface pointer instead of a TXMLDocument reference, like so:
var
Doc: IXMLDocument;
begin
Doc := TXMLDocument.Create(nil);
end;

Не верю что никто не знал :(

---

Kolan   (2007-01-11 20:33:00) [2]

имелось в виду
« - laquo;
& - amp

---

Kolan   (2007-01-11 20:32:00) [3]

Ище до кучи вопрос:
Если я в
TempNode.Textдобавлю например «, от он &(анперсанд) заменит на &. В итоге кавычка не получится. Как отучить его от этого?

---

Kolan   (2007-01-11 19:26:00) [4]

Изменил:
procedure TMessgeValidator.Validate(Msg: TXMLDocument);

на
procedure TMessgeValidator.Validate(Msg: IXMLDocument);

Заработало. Так как же работать? Только через интерфейс? В чем ошибка?

---

Kolan   (2007-01-11 19:16:00) [5]

Ставлю сюда точку.
TMessgeValidator.GetInstance.Validate(XML);
Смотрю:
XML.XML.Text
Все ок.

Ставлю сюда:
Typograf(Msg);
Смотрю:
Msg.XML.Text
Грит что illigal in evaluator

---

Kolan   (2007-01-11 19:13:00) [6]

Как не тот?


TMessageXMLBuilder.GetInstance.BuildXMLDocument(mText.Text);
XML := TMessageXMLBuilder.GetInstance.XMLDocument;
TMessgeValidator.GetInstance.Validate(XML);

procedure TMessgeValidator.Validate(Msg: TXMLDocument);
begin
 Typograf(Msg);
end;

---

Плохиш   (2007-01-11 19:10:00) [7]

Значит в Typograf передаётся не тот XMLDocument.

---

Kolan   (2007-01-11 19:03:00) [8]

Выкинул

Тут же. На строке:
if Assigned(Msg.DocumentElement.ChildNodes)  then

Грит что No Active document.
А в BuildXMLDocument все прошло нормально и файл сохранился.

---

Плохиш   (2007-01-11 19:00:00) [9]

>  Msg.Active := True;

Выкинуть нафик.

---

Наверх