[Uniq!]

У месть есть большой XML файл, который содержит в себе 20-30 структур строительных зданий (nObj - одна структура).
Без потоков я просто беру параметрический цикл:

Код:

iObjs := XMLDoc.DocumentElement;
for ObjNr := 0 to iObjs.ChildNodes.Count - 1 do
    begin
		nObj := iObjs.ChildNodes[ObjNr];
		txtObjNr := nObj.ChildValues['T_Number'];
		txtObjCity := nObj.ChildValues['City'];
		txtObjAddress := nObj.ChildValues['Street'];

		// внутренний парсинг конкретного nObj

	end

Медленно. Поэтому решил каждый объект отдать на растерзание парсеру в отдельный поток:

Класс потока:

Код:

type
  TObjThread = class(TThread)
  private
    sObj: IXMLNode;
    { Private declarations }
  protected
    procedure Execute;
    constructor Create(nObj: IXMLNode);
  end;

constructor TObjThread.Create(nObj: IXMLNode);
begin
  inherited Create(True);
  self.sObj := nObj;
  Resume;
end;

Далее в вышеуказанном цикле пытаюсь создать экземпляр потока:

Код:

for ObjNr := 0 to iObjs.ChildNodes.Count - 1 do
	begin
		nObj := iObjs.ChildNodes[ObjNr];
		ObjThread := TObjThread.Create(nObj);
	end

Но когда дело доходит до Execute получаю ошибку

Код:

Abstract Error.

Вот код процедуры Execute (Ради пробы пера просто пытаюсь получить значение полей из структуры nObj)

Код:

procedure TObjThread.Execute;
var
  txtObjNr, txtObjCity, txtObjAddress: OleVariant;
begin
  txtObjNr := sObj.ChildValues['T_Number'];
  txtObjCity := sObj.ChildValues['City'];
  txtObjAddress := sObj.ChildValues['Street'];
end;

Что я делаю не так? Чую, что дело в переменной nObj, которая является лишь ссылкой на часть "байт" в структуре iObjs (TXMLDocument),и по факту каждый поток пытается оперировать с одним и тем же TXMLDocument.

[icWasya]

А почему OnExecute ?

[Uniq!]

Сообщение от icWasya

А почему OnExecute ?

Не из того файла название процедуры скопировал. Не заметил.

Конструктивно ничего не поменялось

[Freeman]

Сообщение от Uniq!

У месть есть большой XML файл

Насколько большой? 20-30 МБ или 200-300?

[Uniq!]

Сообщение от Freeman

Насколько большой? 20-30 МБ или 200-300?

Сейчас в нём 22 объекта, 18 MB.
Планируется обслуживать 150 штук, но есть возможность разделить их по группам, тем самым генерируя несколько файлов вместо одного.
Архитектурно получается всё достаточно гибко.

[Freeman]

Сообщение от Uniq!

Планируется обслуживать 150 штук

С такими размерами, наверное, стоит перейти на что-то более производительное, вроде SimpleXML (SAX). У него другая идеология: однократно перегнать исходные данные в объекты, а потом делай с ними что хошь. Объекты придется написать самому. Если получателем данных выступает БД, вместо объектов данные крутятся в БД.

[lmikle]

Для начала. В потоке COM-подсистему инициализировал (CoInitialize)? Для приложения (читай: главного потока) это для тебя делает Application, а для дочерних потоков надо делать самому.

[Страдалецъ]

Код:

type
  TObjThread = class(TThread)
  private
    sObj: IXMLNode;
    { Private declarations }
  protected
    procedure Execute; override;
    constructor Create(nObj: IXMLNode);
  end;