CreateNode的用法,急

2006-05-11 01:13:53 212 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Gatsby自定义数据源插件开发实战：从零构建source plugin Gatsby的GraphQL数据层依赖source plugin实现外部数据接入，其核心原理是通过createNode向节点仓库注册结构化数据节点，并利用contentDigest支持增量构建。这种基于节点（Node）与类型（Type）解耦的设计，赋予了数据拉取、转换、缓存和关系建模的完整控制权。技术价值体现在打破数据孤岛、保障构建可复现性、提升CI/CD稳定性，广泛应用于对接私有API、内部ERP、Notion、Excel等非标数据源。本文聚焦Gatsby source plugin的工程化落地，涵盖生命阅读详情

生成XML用的,用的是txmldocument组件,定义的节点是ixmlnode
本来的用的addchild()语句,但是有参数错误
delphi的帮助里面有:
AddChild only adds element nodes. To add other types of child nodes, use the XML document CreateNode method instead, and then add the resulting node to the ChildNodes property array.
我想用createnode来代替
在
result := query.fieldbyname('data1').asstring;
后的语句
dNode:=cNode.AddChild(result);
应该怎磨做?

...全文

【Apollo自动驾驶-从理论到代码】cyber/node模块 /* 作者水平有限，欢迎批评指正，内容持续完善中！！*/ Apollo Cyber Component主要文件类图处理流程Node特点及须知代码详解CreateNode函数的调用点Node的构造函数NodeChannelImpl的构造函数NodeServiceImpl的构造函数创建Reader创建Writer、Service、ClientReader的实质创建Reader类型的选择Reader的Init()过程主要文件文件名描述作用 reader_base.h Reader的基类阅读详情

prolazy

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

postren 2006-05-11

打赏
举报

unit UXMLDocument;

interface

uses
XMLIntf, XMLDoc;

type
TMyXMLDocument = class(TXMLDocument)
public
function GetNodeValue(NodeName: array of WideString;
const DefValue: OleVariant): OleVariant;
procedure SetNodeValue(NodeName: array of WideString;
const Value: OleVariant);
end;

implementation

{ TMyXMLDocument }

function TMyXMLDocument.GetNodeValue(NodeName: array of WideString;
const DefValue: OleVariant): OleVariant;
//==============================================================================
// Function: 获得节点值，如果节点不存在，则返回默认值DefValue
//Parameters: NodeName表示多级节点名称，DefValue表示如果节点不存在的返回值
// Result: 节点内容
//==============================================================================
var
I: Integer;
Root: IXMLNode;
begin
Result := DefValue;
if DocumentElement = nil then Exit;
Root := DocumentElement;
for I := 0 to Length(NodeName) -1 do
begin
if Root = nil then Break;
Root := Root.ChildNodes.FindNode(NodeName[I]);
end;
if Root <> nil then
Result := Root.NodeValue;
end;

procedure TMyXMLDocument.SetNodeValue(NodeName: array of WideString;
const Value: OleVariant);
//==============================================================================
// Function: 设置节点内容，如果节点不存在，则创建节点；如果根节点不存在，则不进
// 行任何操作
//Parameters: NodeName表示多级节点名称，Value表示节点值
//==============================================================================
var
I: Integer;
Root, Root2: IXMLNode;
begin
if DocumentElement = nil then Exit;
Root := DocumentElement;
for I := 0 to Length(NodeName) -1 do
begin
Root2 := Root.ChildNodes.FindNode(NodeName[I]);
if Root2 = nil then
Root2 := Root.AddChild(NodeName[I]);
Root := Root2;
end;
Root.NodeValue := Value;
end;

end.

下面是一个例子，该例子保存窗体的位置
-------------------
const
SettingFileName = 'setting.xml';

procedure TfrmMain.FormCreate(Sender: TObject);
var
XML: TMyXMLDocument;
begin
XML := TMyXMLDocument.Create(Application);
XML.Options := [doNodeAutoCreate,doNodeAutoIndent,doAttrNull,doAutoPrefix,doNamespaceDecl];
try
if FileExists(SettingFileName) then
XML.LoadFromFile(SettingFileName)
else
begin
XML.Active := True;
XML.Create(SettingFileName);
XML.AddChild('Setting', '1.0');
XML.SaveToFile(SettingFileName);
end;
Width := XML.GetNodeValue([Name, 'Width'], Width);
Height := XML.GetNodeValue([Name, 'Height'], Height);
Top := XML.GetNodeValue([Name, 'Top'], Top);
Left := XML.GetNodeValue([Name, 'Left'], Left);
finally
XML.Free;
end;
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
var
XML: TMyXMLDocument;
begin
XML := TMyXMLDocument.Create(Application);
XML.Options := [doNodeAutoCreate,doNodeAutoIndent,doAttrNull,doAutoPrefix,doNamespaceDecl];
try
if FileExists(SettingFileName) then
XML.LoadFromFile(SettingFileName)
else
begin
XML.Active := True;
XML.Create(SettingFileName);
XML.AddChild('Setting', '1.0');
end;
XML.SetNodeValue([Name, 'Width'], Width);
XML.SetNodeValue([Name, 'Height'], Height);
XML.SetNodeValue([Name, 'Top'], Top);
XML.SetNodeValue([Name, 'Left'], Left);
XML.SaveToFile(SettingFileName);
finally
XML.Free;
end;
end;

CreateNode的用法,急

相关推荐