The curse of Dennis D. Spreen

Well done! A really nice piece of sw.

Thank you for your bug reports!

program Example6 for xe6

error line:
// Process child nodes
for Child in Node.ChildNodes do
Walk(Writer, Indent, Child);

Thanks, Example 6 fixed

Waiting 3.0 implements DOM Vender

thanks for the feature proposal

Thank you.

What a sweet piece of code! Thanks so much.

On a regular basis, my application will “import” data from an XML file, massage it some, and move it into a few database tables.

Of all the XML parsers I tried, yours was the absolute easiest to use.

This isn’t necessary, of course, but if TXmlVerySimple fired an event each time a node was visited I could probably simplify my code even more. (If it already does, please forgive me for not studying your code.)

Best regards

What about a tool like the delphi xml wizard only better and cleaner? The acutal version of it isnt usable

How to add prefixes and namespaces?

Any chance to have this wonderful code ported over lazarus/free pascal?
Although a old Delphi practitioner, I am just a beginner in lazarus – it is above my skill level
Thank you

Any chace to include some Simple features?
Node prefixes and namespaces
On savefile, Empty nodes like
parameter to save xml in one single line

thanks 🙂

ups sorry for the request, I found the doCompact option

Hi,
How to install the VerySimpleXML in Delphi XE7?
Thanks.

@LucasB, you don’t need to “install” anything, just copy the VerySimpleXML.pas to your source directory (or adjust your search path settings) – see the included examples

Hi, i use you verysimpleXML, but it’s very slow when it write the file xml is it normal?
thanks

Nice piece of code, if a bit difficult for an old school pascal programmer to understand

If I use the .xml or .text property of the XML (so I can save in DB memo field) there is a ? processing character at the first position and most other XML parsers ignore the text. I remove this manually but is there a proper way?

Dennis, due to the code breaking change in DX 10.1 Berlin private variables are no more visible to class helpers so VerySimpleXML does not compile anymore.
I was very happy to find this cute XML component for android projects. Do you plan to revise the software for 10.1 and future delphi releases?

I’ll update it soon

UweH if your desperate and can not be bothered to work it out you could take a complete copy of TStreamreader and rename it to TMyStreamReader make the private variables public then change the places in xml.verysimple to use your new streamreader instead off delphi’s. The alternative would be to manipulate the stream (basestream) to mimic what Dennis was doing with it in the helper class.

Good news Dennis. Thanks in advance. I’m really looking forward.

here is just a fix hack accessing the private fields with the rtti, it is slow but should work. I need to completely rewrite the code, but in the meantime you may try this “beta”:
http://blog.spreendigital.de/wp-content/uploads/2016/05/Xml.VerySimple.2.0.2.beta_.zip
DONT USE THIS BETA, IT WON’T WORK WITH LARGE FILES! Please use the official v2.0.2

Please find current v2.0.2 at Github (see link on top), I’ve dropped the helper class and replaced it with an TXmlStreamreader class which gets the TStreamReader methods by RTTi in the constructor.

Hello Dennis:

At First. Thanks for the code. I am a c++ builder user. The 2.0.2 beta was work for c++ builder too. Thank you.

I’ve got a exception when I used

XmlObj->Text= Memo1->Text; ( Memo1->Text was xml type words. )

The Exception fired when the xml size is big. ( I forgot to count the size of it. )
My delphi was not good enough, so, maybe what i did was not the good way.

——— original ———-
procedure TXmlVerySimple.SetText(const Value: String);
var
Stream: TStringStream;
begin
Stream := TStringStream.Create(”, TEncoding.UTF8);
try
Stream.WriteString(Value);
Stream.Position := 0;
LoadFromStream(Stream);
finally
Stream.Free;
end;
end;

———- modified ————-
procedure TXmlVerySimple.SetText(const Value: String);
var
Stream: TStringStream;
begin
Stream := TStringStream.Create(”, TEncoding.UTF8);
try
Stream.WriteString(Value);
Stream.Position := 0;
LoadFromStream(Stream,Stream.size+1); // <——– modified here
finally
Stream.Free;
end;
end;

Hello Dennis

I’v try the new v2.0.2 that you update few days ago on github.
The exception was not fired when SetText.

thank you.

what you did here is to set the buffer size larger than your input stream. the 2.0.2 beta tried to call the FillBuffer of the original TStream via RTTi if the stream hits the length but this RTTi call didn’t work (it returned NIL) because of not accessible private methods with 10.1 Berlin (see http://stackoverflow.com/questions/37874351/how-to-access-the-private-method-tstreamreader-fillbuffer-in-delphi-10-1-berlin) which I didn’t noticed. This was fixed in the 2.0.2 “not beta” – so don’t use the beta
😉

How do i can remove a node by index and save it

Hello Dennis,

Thanks for sharing this library. I have checked all the examples, writing to .xml is now clear for me. Do you may have examples to parse and process the content of an .xml file? It would be welcomed.

you should find all that in the examples 🙂

Do you have an example of how to delete nodes
this crashes upon saving
// onodes: TXmlNodeList;
onodes := oxml.PathNodes(C_audioformats);
if onodes nil then
begin
for I := onodes.Count-1 downto 0 do
onodes[i].Free;
end;

Thank you

Even this crashes
// onode: TXmlNode;
onode := oxml.PathNode(C_audioformats);
if (onode = nil) then
Exit(False);
pChildCount := onode.ChildNodes.Count;
if (pChildCount = 0) then
Exit(True);
onode.ChildNodes.Free;

remove node from parents childnodes, that should work – MyNode.Parent.ChildNodes.Remove(MyNode)

Excellent unit for XML parsing & great support from Dennis. Using VerySimpleXML I was able to finally migrate my mobile apps to Windows, Android & iOS (32\64-bit).