🚀 go-pugleaf

Hi:

Can someone post code for getting the source of a TCppWebBrowser
doc?

(It is better if it is from stream and not from saving to file).

I have been using this code to get text from stream but it
does not always work (on complex pages it only gets part
of the html):

  AnsiString Source;

  IHTMLDocument2 *htm = NULL;     // #include <mshtml.h>


  if(wb->Document
     &&
      SUCCEEDED(wb->Document->QueryInterface(IID_IHTMLDocument2,
      (LPVOID*)&htm))
     )
    {
    IPersistStreamInit *spPsi = NULL;    // ocidl.h


    if(SUCCEEDED(htm->QueryInterface(IID_IPersistStreamInit,
(LPVOID*)&spPsi)) && spPsi)
       {
        IStream *spStream = NULL;            // objidl.h
            OleCheck(CreateStreamOnHGlobal(NULL, true, &spStream));
            if(spStream)
            {
                __int64 nSize = 0;
                STATSTG ss;
                LARGE_INTEGER nMove;
                nMove.QuadPart = 0;
                OleCheck(spPsi->Save(spStream, true));
                OleCheck(spStream->Seek(nMove, STREAM_SEEK_SET,
(ULARGE_INTEGER *)&nSize));
                OleCheck(spStream->Stat(&ss, STATFLAG_NONAME));
                nSize = ss.cbSize.QuadPart;


                Source.SetLength(nSize);
                OleCheck(spStream->Read((void *)Source.data(), nSize,
(ULONG *)&nSize));
                OleCheck(spStream->Release());
            }


         spPsi->Release();
        }
    htm->Release();
    }
    *string = Source;

Thank you,

Caleb