procedure ReadXML(XMLInput:String);
var XmlParser: TXmlParser;
const D = #10;
procedure ScanElement(parents:String);
begin
while XmlParser.Scan do
begin
PB.StepIt;
case XmlParser.CurPartType of
ptStartTag : begin
Scanelement(parents +D+ XmlParser.CurName);
end;
ptEndTag : begin
BREAK;
end;
ptEmptyTag : begin
//Showmessage(parents + ' ' + 'EmptyTag: ' + XmlParser.CurName);
end;
ptContent : begin
if (length(trim(XmlParser.CurContent))>0) then
begin
//Showmessage(parents + ' ' + 'Content: ' + XmlParser.CurName + ' = ' + trim(XmlParser.CurContent));
If (parents = D+ 'Name' +D+ 'Vorname' ) Then
EdName.text:=(XmlParser.CurContent);
//Hier hast du was gefunden!!!
end;
end;
// Andere
SAX-Events, die ignoriert werden
// ptCData :
// ptComment :
// ptPI :
// ptXmlProlog :
// ptDtdc :
end;
end;
end;
begin
try
XmlParser := TXmlParser.Create;
XmlParser.LoadFromBuffer(pchar(XMLInput));
// XmlParser.LoadFromFile(Filename);
XmlParser.StartScan;
XmlParser.Normalize := FALSE;
ScanElement('');
finally
XmlParser.Destroy;
end;
end;