Delphi中如何使用 MSXMLDOM
来源:互联网 发布:淘宝2016促销活动时间 编辑:程序博客网 时间:2024/06/09 18:28
首先需要uses msxml,msxmldom
然后看使用:
procedure TFormPatientTemplate.Button1Click(Sender: TObject);
var
xmlString : string;
xml_document:IXMLDOMDocument;
newctrl_list : IXMLDOMNodeList;
newctrl_node : IXMLDOMNode;
newLen : Integer;
i : Integer;
strtemp:string;
strName : string;
strMarry :string;
strSQL :string;
begin
xml_document := CoDOMDocument.create;
xml_document.loadXML(NsoControl1.GetAllSectAndNewCtrlContentByCurrentDoc('0,1,2','0,1',1,1));
newctrl_list := xml_document.getElementsByTagName('NewCtrl');
newlen := newctrl_list.length;
for i := 0 to newlen-1 do
begin
newctrl_node := newctrl_list.item[i];
strtemp := newctrl_node.childNodes.item[0].text;
if strtemp = '6' then
strName := newctrl_node.childNodes.item[1].text;
if strtemp = '23' then
strMarry := newctrl_node.childNodes.item[1].text;
if ( strName <> '') and ( strMarry <> '') then
break;
end;
strSQL := 'update 病人信息表 set 婚姻状况 = '' +strMarry +''where 姓名 = ''+strName + ''';
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('update 病人信息表 set 婚姻状况 = :strMarry where 姓名 = :strName ');
parameters.ParamByName('strMarry').Value := strMarry;
parameters.ParamByName('strName').Value := strName;
execsql;
end;
end;
一旦可以使用这些对象接口,那么对xml的操作都狠灵活了,可以参照dom文档
然后看使用:
procedure TFormPatientTemplate.Button1Click(Sender: TObject);
var
xmlString : string;
xml_document:IXMLDOMDocument;
newctrl_list : IXMLDOMNodeList;
newctrl_node : IXMLDOMNode;
newLen : Integer;
i : Integer;
strtemp:string;
strName : string;
strMarry :string;
strSQL :string;
begin
xml_document := CoDOMDocument.create;
xml_document.loadXML(NsoControl1.GetAllSectAndNewCtrlContentByCurrentDoc('0,1,2','0,1',1,1));
newctrl_list := xml_document.getElementsByTagName('NewCtrl');
newlen := newctrl_list.length;
for i := 0 to newlen-1 do
begin
newctrl_node := newctrl_list.item[i];
strtemp := newctrl_node.childNodes.item[0].text;
if strtemp = '6' then
strName := newctrl_node.childNodes.item[1].text;
if strtemp = '23' then
strMarry := newctrl_node.childNodes.item[1].text;
if ( strName <> '') and ( strMarry <> '') then
break;
end;
strSQL := 'update 病人信息表 set 婚姻状况 = '' +strMarry +''where 姓名 = ''+strName + ''';
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('update 病人信息表 set 婚姻状况 = :strMarry where 姓名 = :strName ');
parameters.ParamByName('strMarry').Value := strMarry;
parameters.ParamByName('strName').Value := strName;
execsql;
end;
end;
一旦可以使用这些对象接口,那么对xml的操作都狠灵活了,可以参照dom文档
- Delphi中如何使用 MSXMLDOM
- 如何在Delphi中使用正则表达式
- 在Delphi 中如何使用水晶报表
- 如何在Delphi中使用正则表达式
- DELPHI中如何使用“静态变量”
- DELPHI 中如何使用菜单数组
- Delphi中预编译指令如何使用
- 如何在Delphi中使用正则表达式
- DELPHI如何使用指针
- DELPHI如何使用指针?
- DELPHI如何使用指针?
- DELPHI如何使用指针?
- DELPHI如何使用指针?
- DELPHI如何使用指针
- 在Delphi中如何使用RC文件中的字符串表
- 在Delphi中如何创建和使用udl文件
- 在Delphi中如何使用RC文件中的字符串表
- 在Delphi中如何使用RC文件中的字符串表
- Shell脚本编程详解
- delphi中处理OleVariant和TStream
- 产品经理的知识结构是什么
- 虚拟机下的ubuntu用tftp将文件下载到目标板
- oracle查看用户权限
- Delphi中如何使用 MSXMLDOM
- android 显示时间格式24小时或12小时
- 图片上传压缩处理
- 经常对以下项目的梳理
- qt学习笔记(一)之Hello world
- Augmented BNF for Syntax Specifications: ABNF
- java-StringBuffer类.
- fatal error LNK1112: module machine type 'x64' conflicts with target machine type 'X86' link error
- Linux出现java.net.UnknownHostException异常问题的解决办法