VPF::Ошибка при работе с TXMLDocument в потоке

hawkins

Дата 13.7.2009, 18:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 8.9.2003

Репутация: нет
Всего: нет

Ошибка возникает в самом начале метода Execute, после загрузки файла в TXMLDocument и обращении к DocumentElement. Причем
если не загружать из файла, а просто активировать TXMLDocument и создать DocumentElement, то ошибки нет. Тот же код в главном потоке работает без ошибок.

Вот сокращенный код:

Код


interface
 uses Windows, Classes, SysUtils, XMLDoc, XMLIntf, ActiveX;

type
 TMainThread = class(TThread)
  private
    { Private declarations }
  protected
    XML_: TXMLDocument;
    XMLStruct: TXMLDocument;
    XMLBase: TXMLDocument;
    procedure Execute; override;
  public
   constructor Create;  
 end;

var
 basefile: string;

implementation

constructor TMainThread.Create;
begin
 inherited Create(true);
 XMLBase:=TXMLDocument.Create(nil);
end;

procedure TMainThread.Execute;
var
 XBase: IXMLNode;

begin
  CoInitialize(nil);

  if not FileExists(basefile) then
  begin
   xmlBase.Active:=true;
   xmlBase.DocumentElement:=xmlBase.CreateElement('base','');
   xmlBase.DocumentElement.AddChild('records');

   xmlBase.Encoding:='UTF-8';
   xmlBase.Version:='1.0';
   xmlBase.SaveToFile(basefile);
  end
  else
   xmlBase.LoadFromFile(basefile);

  if not xmlBase.Active then
   xmlBase.Active:=true;

  XBase:=xmlBase.DocumentElement;

  if XBase=nil then  exit;
...
end;

end.

ошибка на строке XBase:=xmlBase.DocumentElement; как написал уже, если по условию работает код в if not FileExists(basefile) then
begin... То ошибки нет, а если идет загрузка из файла есть. Даже не знаю на что грешить.

Добавлено через 5 минут и 25 секунд
содержимое xml файла такое: