Разбор XML-документов - БД в Delphi

Aiorosu · 19.07.2008, 20:25

Здрасьте! Я нашел в нете статью по теме моего задания. Судя по отзывам, код из этой статьи рабочий, но у меня и ещё пары человек возникает ошибка при выполнении программы:"Access violation at address 00457593 in module 'Progect1.exe'. Read of address 00000000." Выделяется строка "r := Doc.Get_documentElement;". Никак не могу понять в чём дело. Помогите, пожалуйста, очень надо!
Есть файл 1.xml со структурой:
<xml>
<header></header>
<body><CORNER>Ведомства</CORNER></body>
</xml>.
Надо прочитать значение атрибута CORNER и записать его в Edit. Я сварганил код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MSXML2_TLB, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private{ Private declarations }
public{ Public declarations }
end;
var
Form1: TForm1;
coDoc : CoDomDocument ;
Doc : DomDocument ;
implementation {$R *.dfm}
//--------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
r : IXMLDOMElement;
parm : String;
FNode : IXMLDomNode;
CoDocXML : CoDomDocument ;
XMLDoc : DomDocument ;
begin
XMLDoc := coDocXML.Create;
XMLDoc.Set_async(false);
XMLDoc.LoadXML('1.xml');
r := Doc.Get_documentElement;
FNode:= r.SelectSingleNode('//CORNER');
parm:= FNode.text;
Edit1.Text := parm;
end;
end.

19.07.2008, 20:25	#1
Aiorosu Регистрация: 15.07.2008 Сообщений: 4	Разбор XML-документов Здрасьте! Я нашел в нете статью по теме моего задания. Судя по отзывам, код из этой статьи рабочий, но у меня и ещё пары человек возникает ошибка при выполнении программы:"Access violation at address 00457593 in module 'Progect1.exe'. Read of address 00000000." Выделяется строка "r := Doc.Get_documentElement;". Никак не могу понять в чём дело. Помогите, пожалуйста, очень надо! Есть файл 1.xml со структурой: <xml> <header></header> <body><CORNER>Ведомства</CORNER></body> </xml>. Надо прочитать значение атрибута CORNER и записать его в Edit. Я сварганил код: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, MSXML2_TLB, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private{ Private declarations } public{ Public declarations } end; var Form1: TForm1; coDoc : CoDomDocument ; Doc : DomDocument ; implementation {$R *.dfm} //-------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var r : IXMLDOMElement; parm : String; FNode : IXMLDomNode; CoDocXML : CoDomDocument ; XMLDoc : DomDocument ; begin XMLDoc := coDocXML.Create; XMLDoc.Set_async(false); XMLDoc.LoadXML('1.xml'); r := Doc.Get_documentElement; FNode:= r.SelectSingleNode('//CORNER'); parm:= FNode.text; Edit1.Text := parm; end; end.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Разбор файла OBJ_TEST	russian-stalker	Общие вопросы Delphi	11	25.08.2008 11:37
Разбор dll	PanGolin	Фриланс	13	26.05.2008 01:56
Задание на анализ и разбор xml файла	JazonDinAlt	Помощь студентам	3	04.05.2008 16:08
Разбор полетов по DevExpress Quantum DBGrid	Killer_djon	БД в Delphi	2	18.11.2007 14:45
Разбор изображения на фигуры	Роман Радер	Общие вопросы Delphi	8	10.02.2007 19:20