16,748
社区成员
发帖
与我相关
我的任务
分享
uses
Classes,SysUtils,Forms,IniFiles,ADODB,DB,XMLDoc,XMLIntf,SyncObjs,ExtCtrls,StdCtrls;
//Get data value from xml
function GetXMLData(Str_NodeName,Str_AttrName,Str_DataXML:string;Str_ParentNodeName:string=''):string;
var
XML_Doc:TXMLDocument;
XML_RootNode,XML_ParentNode,XML_DataNode:IXMLNode;
begin
Result:='';
if Str_DataXML='' then
begin
Exit;
end;
XML_Doc:=TXMLDocument.Create(Application);
try
XML_Doc.LoadFromXML(Str_DataXML);
XML_Doc.Active:=True;
XML_RootNode:=XML_Doc.DocumentElement;
if Str_ParentNodeName='' then
begin
//Find Node
XML_DataNode:=XML_RootNode.ChildNodes.FindNode(Str_NodeName);
if XML_DataNode=nil then
begin
Result:='';
Exit;
end;
end else
begin
//Find Parent Node
XML_ParentNode:=XML_RootNode.ChildNodes.FindNode(Str_ParentNodeName);
if XML_ParentNode=nil then
begin
Result:='';
Exit;
end;
//Find Node
XML_DataNode:=XML_ParentNode.ChildNodes.FindNode(Str_NodeName);
if XML_DataNode=nil then
begin
Result:='';
Exit;
end;
end;
if XML_DataNode.HasAttribute(Str_AttrName) then
begin
Result:=XML_DataNode.Attributes[Str_AttrName];
end else
begin
Result:=XML_DataNode.Text;
end;
finally
XML_Doc.Free;
end;
end;
EurekaLog 6.0.24
Exception:
----------------------------------------------------
2.1 Date : Mon, 7 Sep 2015 15:07:49 +0800
2.2 Address : 004208FE
2.3 Module Name : KMC.exe
2.4 Module Version:
2.5 Type : EListError
2.6 Message : List index out of bounds (7).
2.7 ID : 4221
2.8 Count : 1
2.9 Status : New
2.10 Note :
Computer:
-----------------------------------------------------------------------
5.1 Name :
5.2 Total Memory : 3414 Mb
5.3 Free Memory : 1743 Mb
5.4 Total Disk : 139.01 Gb
5.5 Free Disk : 100.23 Gb
5.6 System Up Time: 3 hours, 56 minutes, 24 seconds
5.7 Processor : Intel(R) Pentium(R) CPU G645 @ 2.90GHz
5.8 Display Mode : 1600 x 900, 32 bit
5.9 Display DPI : 96
5.10 Video Card : Intel(R) HD Graphics Family (driver 6.14.10.5337)
5.11 Printer : EPSON ME 1100 Series (driver 1.54)
Operating System:
------------------------------------
6.1 Type : Microsoft Windows XP
6.2 Build # : 2600
6.3 Update : Service Pack 3
6.4 Language: Chinese
6.5 Charset : 134
Assembler Information:
------------------------------------------------------
; Classes.TList.Delete (Line=0 - Offset=0)
; ----------------------------------------
004208E6 push edi
004208E7 mov esi, edx
004208E9 mov ebx, eax
004208EB test esi, esi
004208ED jl Classes.TList.Delete
004208EF cmp esi, [ebx+$08]
004208F2 jl Classes.TList.Delete
004208F4 mov edx, [$564D1C]
004208FA mov ecx, esi
004208FC mov eax, [ebx]
004208FE call Classes.TList.Error ; <-- EXCEPTION
00420903 mov edx, esi
00420905 mov eax, ebx
00420907 call Classes.TList.Get
0042090C mov edi, eax
0042090E dec dword ptr [ebx+$08]
00420911 mov eax, [ebx+$08]
00420914 cmp esi, eax
00420916 jnl Classes.TList.Delete
00420918 sub eax, esi
0042091A mov ecx, eax