VPF::список IXMLNode - Форум программистов

NieL

Дата 18.8.2010, 20:24 (ссылка)

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

Загрузка ...

Бывалый

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

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

имеется список имен xml-файлов одинаковой структуры. Нужно на начальном этапе сформировать список записей типа IXMLNode взяв из каждого из xml-фалов списка по определенному ноду (IXMLNode). Сделал небольшие наброски, но чет не работает, валяться AccessViolation'ы. Помогите разобраться.

Код


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, XMLIntf, XMLDoc;

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

 PIXMLNode = ^IXMLNode;

 TIntfs = class(TList)
 private
   function Get(Idx: Integer): PIXMLNode;
 protected
   procedure Notify(Ptr: Pointer; Act: TListNotification); override;
 public
   function Add(xml_node: PIXMLNode): Integer;
 {  }
   property Intfs[Idx: Integer]: PIXMLNode read Get; default;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TIntfs }

function TIntfs.Add(xml_node: PIXMLNode): Integer;
begin
 Result := inherited Add(xml_node);
end;

function TIntfs.Get(Idx: Integer): PIXMLNode;
begin
 Result := PIXMLNode(inherited Get(Idx));
end;

procedure TIntfs.Notify(Ptr: Pointer; Act: TListNotification);
begin
 {if Act = lnDeleted then
   Dispose(PIXMLNode(Ptr));}
 inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 Intfs: TIntfs;
 xml_intf: IXMLDocument;
 node: IXMLNode;
begin
 xml_intf := TXMLDocument.Create(nil);
 xml_intf.LoadFromFile('C:\Documents and Settings\Admin\Рабочий стол\Test.xml');
 node := xml_intf.DocumentElement;
 ShowMessage(node.NodeName);
 Intfs := TIntfs.Create;
 Intfs.Add(PIXMLNode(node));
 ShowMessage(Intfs[0]^.NodeName);
 Intfs.Free;
end;

NieL

Дата 18.8.2010, 20:55 (ссылка)

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

Загрузка ...

Бывалый

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

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

во блин, не от того наследовался, надо от TInterfaceList. Все разобрался, тему можно закрывать.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »