7. Dezember 2012 23:26
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<Root>
<Price>10</Price>
<Change>20</Change>
<Volume>40</Volume>
</Root>
InMsg := InMessage;
InStr := InMsg.GetStream;
InStr.READ(Line);
CREATE(xmlDoc);
xmlDoc.async := FALSE;
xmlDoc.validateOnParse := TRUE;
IF NOT xmlDoc.load(Line) THEN BEGIN
xmlerr := xmlDoc.validate;
Error(FORMAT(xmlerr.reason));
END;
8. Dezember 2012 00:06
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
InStr.READ(Line);
...
IF NOT xmlDoc.load(Line)
8. Dezember 2012 00:31