Архив форумов ЦИТФорума

[leshek]

Не могу понять, почему при исполнении ниже приведенного кода в конце вылетает Access Violation:
procedure TForm1.Button1Click(Sender: TObject);
var CoDoc: CoDomDocument;
Doc: IXMLDOMDocument;
n1,n2,n3,n4,r: IXMLDOMElement;
txt: IXMLDOMText;
attr,shed: IXMLDomAttribute;
i: Integer;
begin
DataSet.Prepare;
DataSet.Open;
Doc:=CoDoc.Create;
Doc.async:=False;
Doc.loadXML('<Header/>');
if not DataSet.IsEmpty then begin
r:=Doc.documentElement;
n1:=Doc.createElement('Sender');
txt:=Doc.createTextNode('0');
n1.appendChild(txt);
r.appendChild(n1);
n1:=Doc.createElement('Dest');
txt:=Doc.createTextNode(ToUnicode(IntToStr(pFIBDataSet1.FBN('DEPID').AsInteger)));
n1.appendChild(txt);
r.appendChild(n1);
while not DataSet.Eof do begin
n1:=Doc.createElement('CARD');
n1.selectSingleNode('CARD');
attr:=Doc.createAttribute('ID');
attr.value:=ToUnicode(IntToStr(DataSet.FBN('CARDID').AsInteger));
n1.setAttributeNode(attr);
n2:=Doc.createElement('MARK');
txt:=Doc.createTextNode(ToUnicode(DateToStr(DataSet.FBN('MARKA').AsDateTime)));
n2.appendChild(txt);
n1.appendChild(n2);
n2:=Doc.createElement('DEPART');
txt:=Doc.createTextNode(ToUnicode(IntToStr(DataSet.FBN('DEP').AsInteger)));
n2.appendChild(txt);
n1.appendChild(n2);
// ...
//Текст сокращен. В этом месте обходим Master-таблицу
// ...

n2.appendChild(txt);
n1.appendChild(n2);
if not JobsDataSet.Active then begin
JobsDataSet.Prepare;
JobsDataSet.Open;
end;
JobsDataSet.First;
n2:=Doc.createElement('JOBLIST');
while not JobsDataSet.Eof do begin
n3:=Doc.createElement('JOB');
n3.selectSingleNode('JOB');
shed:=Doc.createAttribute('JID');
shed.value:=ToUnicode(IntToStr(JobsDataSet.FBN('JID').AsInteger));
n3.setAttributeNode(shed);

// ...
// Текст сокращен в этом месте обходим Detail-таблицу
//...

n4.appendChild(txt);
n3.appendChild(n4);
n2.appendChild(n3);
JobsDataSet.Next;
n1.appendChild(n2);
r.appendChild(n1);
end;
DataSet.Next;
end;
end;
Doc.save('d:\1\ezport2.xml');
end; //<--И вот здесь вылетает Access Violation. Хотя xml-файл формируется нормально.

Где я напутал?

PS Используется Delphi7, FIBPlus 5.3, msxml parser 4 SP2

[GeX]

Прикольно, я даже не пытался в этом разбираться, мне нужно чтобы все было сдвинуто чтобы структуру видеть.

[FUKS]

[Гость]

2leshek
Выложи отформатированный текст, а?
А то даже разбираться лениво...

[Гость]

[dAnIK SeNT]

Во-первых, у меня есть некоторое сомнение в строчке

[Гость]