🚀 go-pugleaf

"Enrique" <enridp@yahoo.com.ar> wrote in message
news:4583eee0@newsgroups.borland.com...

> It seems OK if you know the name of the desired field. But if you
> want to get ALL the "DOM Code"

That is what the "all" collection is for - it contains all of the elements
of the page.

> like a new HTML source without Javascript and with all the fields
completed?

There is no way to remove the Javascript through the DOM.  The only way to
do that is to not let the browser download the original HTML at all.
Download it yourself manually.  Then you can alter it any way you wish, and
then load the altered HTML into the browser for displaying.

But like I said earlier, if the Javascript is generating content of its own,
then you have to actually run the Javascript in order for it to generate the
output that you are looking for.  Otherwise, you have to parse the script
code manually and then generate your own output.

> I've "translated" a Delphi Code that builds a Tree of the DOM, but it does
> not work, surely is a bad translation:

    VisualizeDOMTree(rootElement, NULL, treeNodes);

    #include <mshtml.h>
    #include <utilcls.h>

    void __fastcall TInternetExplorer::VisualizeDOMTree(IHTMLElement
*element, TTreeNode *treeNode, TTreeNodes *treeNodes)
    {
        if( !elements || !treeNodes )
            return;

        TTreeNode *myTreeNode;

        WideString tagName;
        element->get_tagName(&tagName);

        if( treeNode )
            myTreeNode = treeNodes->AddChild(treeNode, tagName);
        else
            myTreeNode = treeNodes->Add(NULL, tagName);

        // get the children collection
        TComInterface<IDispatch> disp;
        element->get_children(&disp);
        if( disp )
        {
            TComInterface<IHTMLElementCollection> childrenElements;

            disp->QueryInterface(IID_IHTMLElementCollection,
(LPVOID*)&childrenElements);
            disp.Unbind();

            if( childrenElements )
            {
                long count = 0;

                childrenElements->get_length(&count);
                for(long i = 0; i < count; ++i) // for each sibling
                {
                    // get a sidling
                    TVariant Item = i;
                    TVariant Index = 0;
                    childrenElements->item(Item, Index, &disp);
                    if( disp )
                    {
                        TComInterface<IHTMLElement> curElement;

                        disp->QueryInterface(IID_IHTMLElement,
(LPVOID*)&curElement);
                        disp.Unbind();

                        // build sibling's subtree
                        if( curElement )
                            VisualizeDOMTree(curElement, myTreeNode,
treeNodes);
                    }
                }
            }
        }
    }


I suggest you read the MSDN documentation about the DOM interfaces before
you go any further:

    Interfaces and Scripting Objects

http://msdn.microsoft.com/workshop/browser/mshtml/reference/ifaces/interface.asp


Gambit