🚀 go-pugleaf

"Michael Krug" <michael.krug*nospam*@utanet.at> wrote in message
news:412f2147$1@newsgroups.borland.com...

>     TMemoryStream* pMemStream=new TMemoryStream();
>    if(pMemStream && pCppWebBrowser)

The 'new' operator throws an exception if it fails.  You don't need to check
for a NULL pointer being returned because one won't be returned in the first
place.

>      IPersistStreamInit* pPSI;
>      IHTMLDocument2 *htm;

You should initialize your pointers to NULL.

>      pMemStream->Seek(0, 0);

There is no need to seek an empty stream.

>      if(!pCppWebBrowser->Document)
>      {
>        while(!pCppWebBrowser->Document)
>          Application->ProcessMessages();
>      }

You should be testing the ReadyState property instead.  The Document
property can contain a non-NULL value before the document is actually ready
to be used.

>
if(SUCCEEDED(pCppWebBrowser->Document->QueryInterface(IID_IHTMLDocument2,(LP
VOID*)&htm))
> && (bool(htm))){

Why are you converting the interface pointer to a bool?  You should not be
doing that.

Try this code instead:

    #include <utilcls.h>
    #include <memory>

    if( pCppWebBrowser )
    {
        while( pCppWebBrowser->ReadyState != READYSTATE_COMPLETE )
            Application->ProcessMessages();

        TComInterface<IHTMLDocument2> htm;
        pCppWebBrowser->Document->QueryInterface(IID_IHTMLDocument2,
(LPVOID*)&htm);
        if( htm )
        {
            TComInterface<IPersistStreamInit> pPSI;
            htm->QueryInterface(IID_IPersistStreamInit, (LPVOID*)&pPSI);
            if( pPSI )
            {
                std::auto_ptr<TMemoryStream> MemStream(new TMemoryStream);
                std::auto_ptr<TStreamAdapter> StreamAdapter(new
TStreamAdapter(MemStream.get(), soReference));
                if( SUCCEEDED(pPSI->Save(*pStreamAdapter, FALSE)) )
                {
                    // use pMemStream as needed...
                }
            }
        }
    }


Gambit