热门标签 | HotTags
当前位置:  开发笔记 > 编程语言 > 正文

在Delphi中访问XML文档的一部分-AccessPartofanXMLDocumentinDelphi

ihaveusedthedelphidatabindingwizardwithmyxmlfile,andeverythingcompilesandrunsfine.

i have used the delphi data binding wizard with my xml file, and everything compiles and runs fine.

我已经使用delphi数据绑定向导和我的xml文件,一切都编译并运行正常。

I have 3 comboboxes on my form. Manufacturer, Model and Year.

我的表格上有3个组合框。制造商,型号和年份。

Manufacturer is populated using the following code on FormCreate.

使用FormCreate上的以下代码填充制造商。

procedure TfrmMain.FormCreate(Sender: TObject);
var
  RGearing : IXMLracegearingType;
  i : Integer;
begin
  // Load XML Document into Memory
  RGearing := Getracegearing(XMLDocument1);

  // Populate Manufacturer combobox
  for i := 0 to RGearing.Car.Count-1 do
  begin
    cbManufac.Items.Add(RGearing.Car[i].Manufacturer);
  end;

  // Copy current selected Manufacturer to string variable
  varManufac := cbManufac.ListItems[(cbManufac.ItemIndex)].Text;
end;

My question is how can i populate the Model combobox based on the current manufacturer that is selected.

我的问题是如何根据所选的当前制造商填充模型组合框。

Here is the XML File that goes with it

这是随附的XML文件



  
    1
    Ford
    Test 1
    
  
  
    2
    Ford
    Test 2
    
  
  
    3
    Honda
    Test 1
       
  
  
    
    
  

So if the manufacturer selected is Ford then the model combobox needs to display Test 1 and Test 2 as the items.

因此,如果选择的制造商是福特,则模型组合框需要显示测试1和测试2作为项目。

2 个解决方案

#1


0  

I can not see your function and the type

我看不到你的功能和类型

RGearing : IXMLracegearingType; 
RGearing :=Getracegearing(XMLDocument1);

So I can only test it with the following code.
Go through the code and customize it to your needs.

所以我只能使用以下代码进行测试。浏览代码并根据您的需求进行自定义。

enter image description here

unit xmlCombo;

interface

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

type
  TForm1 = class(TForm)
    cbManufac: TComboBox;
    cbModel: TComboBox;
    procedure getManufac;
    procedure getModel(const ManufacVal:string);
    procedure FormActivate(Sender: TObject);
    procedure cbManufacClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses MSXML,ActiveX,ComObj;

const
 XMLTestStr =
 ''+
 ''+
 ' '+
 '   1'+
 '   Ford'+
 '   Test 1'+
 '   '+
 ' '+
 ' '+
 '   2'+
 '   Ford'+
 '   Test 2'+
 '   '+
 ' '+
 ' '+
 '   3'+
 '   Honda'+
 '   Test 1'+
 '   '+
 ' '+
 ' '+
 '   '+
 '   '+
 ' '+
'';

var
  varManufac : string;
  RGearing  : IXMLDOMDocument;

procedure TForm1.cbManufacClick(Sender: TObject);
begin
     getModel(cbManufac.Items[cbManufac.ItemIndex]);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  RGearing:=CoDOMDocument.Create;
  RGearing.loadXML(XmlTestStr);
  getManufac;
end;

procedure TForm1.getModel(const ManufacVal:string);
Var
  XMLDOMNodeL  : IXMLDOMNodeList;
  ChildST : String;
  ChildN,BNode : IXMLDOMNode;
  i : Integer;

begin
  cbModel.Items.Clear;
  cbModel.Text:='';
  XMLDOMNodeL:=RGearing.getElementsByTagName('car');
  for i := 0 to XMLDOMNodeL.length-1 do
  begin
    ChildN:=XMLDOMNodeL[i].selectSingleNode('manufacturer');
    if ChildN.text=ManufacVal then begin
       BNode:=XMLDOMNodeL[i].selectSingleNode('model');           
       ChildST:=BNode.text;
       if cbModel.Items.IndexOf(ChildST) = -1 then cbModel.Items.Add(ChildST);
    end;
  end;
end;

procedure TForm1.getManufac;
Var
  XMLDOMNodeList  : IXMLDOMNodeList;
  ChildST : string;
  i : Integer;

begin
  cbManufac.Items.Clear;
  cbManufac.Text:='';
  // Populate Manufacturer combobox
  XMLDOMNodeList:=RGearing.getElementsByTagName('manufacturer');
  for i := 0 to XMLDOMNodeList.length-1 do
  begin
    ChildST:=XMLDOMNodeList[i].text;
    if cbManufac.Items.IndexOf(ChildST) = -1 then cbManufac.Items.Add(ChildST);
    if cbManufac.Items.Count = 1 then begin
       cbManufac.Text:=ChildST;
       getModel(ChildST);
    end;
  end;
end;

end.

To load xml from a file.

从文件加载xml。

if RGearing.Load('File.xml') then
  [...]
 else
  ShowMessage('Could not load file : File.xml');
end;

I hope this helps.

我希望这有帮助。

#2


5  

You can use XPath, try a sentence like this ./gearing/car[manufacturer="Ford"]/model

您可以使用XPath,尝试这样的句子./gearing/car[manufacturer="Ford"]/model

This is a basic sample

这是一个基本的样本

{$APPTYPE CONSOLE}

uses
  ActiveX,
  Variants,
  ComObj,
  Classes,
  SysUtils;

const
 XMLStr =
 ''+
 ''+
 ' '+
 '   1'+
 '   Ford'+
 '   Test 1'+
 '   '+
 ' '+
 ' '+
 '   2'+
 '   Ford'+
 '   Test 2'+
 '   '+
 ' '+
 ' '+
 '   3'+
 '   Honda'+
 '   Test 1'+
 '   '+
 ' '+
 ' '+
 '   '+
 '   '+
 ' '+
'';



function GetModels(const manufacturer:string):TStringList;
const
  Msxml2_DOMDocument='Msxml2.DOMDocument.6.0';
var
  XmlDoc         : OleVariant;
  Nodes          : OleVariant;
  lNodes         : Integer;
  i              : Integer;
begin
  Result:=TStringList.Create;
  //create an instance to the XML DOM
  XmlDoc       := CreateOleObject(Msxml2_DOMDocument);
  try
    XmlDoc.Async := False;
    XmlDoc.LoadXML(XMLStr);
    XmlDoc.SetProperty('SelectionLanguage','XPath');
    //check for errors in the xml file
      if (XmlDoc.parseError.errorCode <> 0) then
       raise Exception.CreateFmt('Error in Xml Data %s',[XmlDoc.parseError]);

    //select the nodes with match with the expression
    //sample ./gearing/car[manufacturer="Ford"]/model
    Nodes := XmlDoc.selectNodes(Format('./gearing/car[manufacturer="%s"]/model',[manufacturer]));
    //get the number of nodes selected
    lNodes:= Nodes.Length;
    //traverse the nodes
     for i:=0 to lNodes- 1 do
      Result.Add(Nodes.Item(i).Text);

  finally
   XmlDoc :=Unassigned;
  end;
end;

Var
 Models : TStringList;
begin
 try
    CoInitialize(nil);
    try
      Models:=GetModels('Ford');
      try
        Writeln(Models.Text);
      finally
       Models.Free;
      end;
    finally
      CoUninitialize;
    end;
 except
    on E:Exception do
        Writeln(E.Classname, ':', E.Message);
 end;
 Writeln('Press Enter to exit');
 Readln;
end.

推荐阅读
  • 本文讨论了一个关于cuowu类的问题,作者在使用cuowu类时遇到了错误提示和使用AdjustmentListener的问题。文章提供了16个解决方案,并给出了两个可能导致错误的原因。 ... [详细]
  • CSS3选择器的使用方法详解,提高Web开发效率和精准度
    本文详细介绍了CSS3新增的选择器方法,包括属性选择器的使用。通过CSS3选择器,可以提高Web开发的效率和精准度,使得查找元素更加方便和快捷。同时,本文还对属性选择器的各种用法进行了详细解释,并给出了相应的代码示例。通过学习本文,读者可以更好地掌握CSS3选择器的使用方法,提升自己的Web开发能力。 ... [详细]
  • XML介绍与使用的概述及标签规则
    本文介绍了XML的基本概念和用途,包括XML的可扩展性和标签的自定义特性。同时还详细解释了XML标签的规则,包括标签的尖括号和合法标识符的组成,标签必须成对出现的原则以及特殊标签的使用方法。通过本文的阅读,读者可以对XML的基本知识有一个全面的了解。 ... [详细]
  • 本文介绍了一个在线急等问题解决方法,即如何统计数据库中某个字段下的所有数据,并将结果显示在文本框里。作者提到了自己是一个菜鸟,希望能够得到帮助。作者使用的是ACCESS数据库,并且给出了一个例子,希望得到的结果是560。作者还提到自己已经尝试了使用"select sum(字段2) from 表名"的语句,得到的结果是650,但不知道如何得到560。希望能够得到解决方案。 ... [详细]
  • Iamtryingtomakeaclassthatwillreadatextfileofnamesintoanarray,thenreturnthatarra ... [详细]
  • 向QTextEdit拖放文件的方法及实现步骤
    本文介绍了在使用QTextEdit时如何实现拖放文件的功能,包括相关的方法和实现步骤。通过重写dragEnterEvent和dropEvent函数,并结合QMimeData和QUrl等类,可以轻松实现向QTextEdit拖放文件的功能。详细的代码实现和说明可以参考本文提供的示例代码。 ... [详细]
  • IhaveconfiguredanactionforaremotenotificationwhenitarrivestomyiOsapp.Iwanttwodiff ... [详细]
  • 本文分享了一个关于在C#中使用异步代码的问题,作者在控制台中运行时代码正常工作,但在Windows窗体中却无法正常工作。作者尝试搜索局域网上的主机,但在窗体中计数器没有减少。文章提供了相关的代码和解决思路。 ... [详细]
  • Spring特性实现接口多类的动态调用详解
    本文详细介绍了如何使用Spring特性实现接口多类的动态调用。通过对Spring IoC容器的基础类BeanFactory和ApplicationContext的介绍,以及getBeansOfType方法的应用,解决了在实际工作中遇到的接口及多个实现类的问题。同时,文章还提到了SPI使用的不便之处,并介绍了借助ApplicationContext实现需求的方法。阅读本文,你将了解到Spring特性的实现原理和实际应用方式。 ... [详细]
  • 本文详细介绍了Spring的JdbcTemplate的使用方法,包括执行存储过程、存储函数的call()方法,执行任何SQL语句的execute()方法,单个更新和批量更新的update()和batchUpdate()方法,以及单查和列表查询的query()和queryForXXX()方法。提供了经过测试的API供使用。 ... [详细]
  • Java容器中的compareto方法排序原理解析
    本文从源码解析Java容器中的compareto方法的排序原理,讲解了在使用数组存储数据时的限制以及存储效率的问题。同时提到了Redis的五大数据结构和list、set等知识点,回忆了作者大学时代的Java学习经历。文章以作者做的思维导图作为目录,展示了整个讲解过程。 ... [详细]
  • Android Studio Bumblebee | 2021.1.1(大黄蜂版本使用介绍)
    本文介绍了Android Studio Bumblebee | 2021.1.1(大黄蜂版本)的使用方法和相关知识,包括Gradle的介绍、设备管理器的配置、无线调试、新版本问题等内容。同时还提供了更新版本的下载地址和启动页面截图。 ... [详细]
  • Java String与StringBuffer的区别及其应用场景
    本文主要介绍了Java中String和StringBuffer的区别,String是不可变的,而StringBuffer是可变的。StringBuffer在进行字符串处理时不生成新的对象,内存使用上要优于String类。因此,在需要频繁对字符串进行修改的情况下,使用StringBuffer更加适合。同时,文章还介绍了String和StringBuffer的应用场景。 ... [详细]
  • Oracle分析函数first_value()和last_value()的用法及原理
    本文介绍了Oracle分析函数first_value()和last_value()的用法和原理,以及在查询销售记录日期和部门中的应用。通过示例和解释,详细说明了first_value()和last_value()的功能和不同之处。同时,对于last_value()的结果出现不一样的情况进行了解释,并提供了理解last_value()默认统计范围的方法。该文对于使用Oracle分析函数的开发人员和数据库管理员具有参考价值。 ... [详细]
  • 本文介绍了三种方法来实现在Win7系统中显示桌面的快捷方式,包括使用任务栏快速启动栏、运行命令和自己创建快捷方式的方法。具体操作步骤详细说明,并提供了保存图标的路径,方便以后使用。 ... [详细]
author-avatar
白宇2502858015
这个家伙很懒,什么也没留下!
PHP1.CN | 中国最专业的PHP中文社区 | DevBox开发工具箱 | json解析格式化 |PHP资讯 | PHP教程 | 数据库技术 | 服务器技术 | 前端开发技术 | PHP框架 | 开发工具 | 在线工具
Copyright © 1998 - 2020 PHP1.CN. All Rights Reserved | 京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有