🚀 go-pugleaf

Hi sam !

Here is the code that I use:
//-----------------------------------------------------------
AnsiString TInternetExplorer::CodigoFuenteHTML(TCppWebBrowser* 
CppWebBrowser1)
{
  AnsiString Source = "";

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


if(CppWebBrowser1->Document&&SUCCEEDED(CppWebBrowser1->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();
    }
   return Source;
}
//------------------------------------------------------------------------

I now that it's more easy just ask to a group and wait for the answer, but 
if you give the custom of searching you will win much more than a code and a 
rapid solution for that unique and specific problem.

bye !
enrique.

"Hans Galema" <notused@notused.nl> escribi� en el mensaje 
news:45801a0f@newsgroups.borland.com...
> sam wrote:
>
>> If you have the code for getting the complete file, you are welcome.
>
> Yes I have. And I told you how to find it.
>
> Hans.