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

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

работа с XML в потоке [D7, XP]

Bolodya ©   (2009-01-31 18:23:00) 

Здравствуйте уважаемые форумчане. Возник небольшой вопрос, без решения которого дальнейшая разработка программы невозможна.. Буду признателен за помощь, это мое первое приложение, которое работает с потоками

Метод Execute моего потока:

procedure PopConnectThread.Execute;
var
 m:   TIdMessage;
 mc,p: integer;
 pop : TPOP3Send;
 origmess:String ;
 popXML:TXMLDocument;
begin
 CoInitialize(nil);
 SetName;
 if LoadConectionParameters then
  begin
    MainForm.ReadyFoUpdate:= false;
    pop := TPOP3Send.Create;
    popXML := TXMLDocument.Create(nil);

    pop.TargetHost :=Host;
    pop.TargetPort:=port;
    pop.Username:=Username;
    pop.Password:=Password;

    if pop.Login then
    begin
      pop.Stat;
      if pop.StatCount>0 then
      for mc:=1 to pop.statCount do
      begin

        pop.Retr(mc);
        origmess := StringSystem62toUnicodeString(DeleteSpaces(pop.FullResult.Text));
        insert ('<?xml version="1.0" encoding ="windows-1251"?>',origmess,1);

        popXML.LoadFromStream(TStringStream.Create(origmess));
        popXML.Active := true;

        beep(1000,1000);
        if popXML.DocumentElement.ChildNodes['xstatex'].Text = '01' then state01(StringSystem62toUnicodeString(DeleteSpaces(origmess)));

       
      end;
    end;

   pop.Logout;
   pop.Free;
   popXML.free;

 end;
 CoUnInitialize;
 MainForm.ReadyFoUpdate := true;

end;

После того как прозвучал сигнал, на -
if popXML.DocumentElement.ChildNodes['xstatex'].Text = '01'
вылетает исключительная ситуация..
Может есть какая-то особенность работы с XML в потоках?

---

Bolodya   (2009-01-31 20:01:00) [1]

Сергей М., большое спасибоза помощь, проблема была действительно в том, что у объекта не было родителя.

---

Сергей М.   (2009-01-31 19:16:00) [2]

http://www.sql.ru/forum/actualthread.aspx?tid=111696

---

Сергей М.   (2009-01-31 19:16:00) [3]

> есть какая-то особенность работы с XML в потоках?


Нет.

---

Сергей М.   (2009-01-31 19:15:00) [4]

И в основном этоткод тожене работает, не надо вводить людей в заблуждение.
В основном у тебя работает другойкод, в котором объект класса TXMLDocument имеет владельца.

http://dn.codegear.com/article/29241

---

Bolodya   (2009-01-31 19:00:00) [5]

Текст ошибки -
Project raised exception class EAccessViolation with message "Access violation at address 00000000. Read of address 00000000. Process stoped

В основном потоке код работает

---

Сергей М.   (2009-01-31 18:44:00) [6]

> вылетает исключительная ситуация


Наверно, прямо так и говорит - "Я, исключительная ситуация, вылетаю" ?
Или это великий секрет, кто и куда там у тебя вылетает ?
Равно как и великий секрет, работает ли тот же код в основномпотоке ?

---

Наверх