🚀 go-pugleaf

It seems OK if you know the name of the desired field. But if you want to 
get ALL the "DOM Code", like a new HTML source without Javascript and with 
all the fields completed?
I think I need help with the code, these interfaces are my karma...
I've "translated" a Delphi Code that builds a Tree of the DOM, but it does 
not work, surely is a bad translation:

//*********//
ORIGINAL (DELPHI)
//*********//
the code below (Delphi) recreates the DOM in a TTreeView.
call it like this:
VisualizeDOMTree(rootElement, nil, treeNodes);

////////////////////////////////////////////////////////////////////////////
/
//   element: the IHTMLElement for which we build a subtree
//  treeNode: the TreeNode under which we hang the subtree
// treeNodes: the Tree we build
////////////////////////////////////////////////////////////////////////////
/
procedure TCGWTForm.VisualizeDOMTree(element:IHTMLElement;
                                     treeNode:TTreeNode;
treeNodes:TTreeNodes);
var
  i: Integer;
  myTreeNode: TTreeNode;
  curElement: IHTMLElement;
  childrenElements: IHTMLElementCollection;
begin
  myTreeNode:= treeNodes.AddChild(treeNode, element.tagName);
  //get the children collection
  childrenElements:= element.children as IHTMLElementCollection;
  for i:=0 to childrenElements.length-1 do begin //for each sibling
    //get a sidling
      curElement:= childrenElements.item(i,0) as IHTMLElement;
    //build sibling's subtree
    VisualizeDOMTree(curElement, myTreeNode, treeNodes);
    end;
end;

//******************************
//******************************

//************//
 MY (wrong) TRANSLATION
//************//
void 
TInternetExplorer::VisualizeDOMTree(/*TComInterface<IHTMLElement>*/IHTMLElement 
element, TTreeNode* treeNode, TTreeNodes* treeNodes)
{
  int i
  TTreeNode* myTreeNode;
  IHTMLElement curElement;
  IHTMLElementCollection childrenElements;

  myTreeNode = treeNodes->AddChild(treeNode, element.tagName);
  //get the children collection
  childrenElements = (IHTMLElementCollection)element.children;
  for (i=0; i<childrenElements.length; ++i)  //for each sibling
  {
    //get a sidling
      curElement = (IHTMLElement)childrenElements.item(i,0);
    //build sibling's subtree
    VisualizeDOMTree(curElement, myTreeNode, treeNodes);
  }
}

//*************************************//

Anyway, this code only builds a Tree of the elements...
And how Fotis (the autor of the delphi code) says:
//-----------------------
"Yes, my code produces only a tree of tags.
you also need tag attributes and text.

Getting all the attributes for each tag
is also possible, its simple (<20 lines), but is
based on some more exotic commands.
You gonna need types like IHTMLDOMNode,
IHTMLAttributeCollection, IHTMLDOMAttribute,
IDispatch, some GUIDs like IID_IHTMLAttributeCollection,
IID_IHTMLDOMNode IID_IHTMLDOMAttribute, etc.

The problem is the text inside, before or after tags
which makes the DOM tree parsing procedure
more complex. Using InnerText does not cover
all cases..... Consider this:

<td>hello <b>world</b> and Enrique</td>

you need getAdjacentText of the IHTMLElement2
interface for "hello" and "and Enrique" parts."
//------------------------

and I have no idea how to do that....
I think that if someone has the code, will be helpfull to put it in the 
group, many people could have the same problem (now or in the future), and 
clearly it will be a great base of reference for another codes.

Thanks !
enrique.