🚀 go-pugleaf

If you are interested in seeing what I am talking about.
***** add abutton to your form.
void __fastcall TForm1::Button9Click(TObject *Sender)
{
   AnsiString ButtonName = "secure_exit";

   if ( ! WBClickButton3 ( FBrowser, ButtonName ) )
 ShowMessage ( ButtonName + "\n\nbutton not clicked");
}

******* alter DocClickButton3
if( FrameDoc )
      {
      // ****** add this line to view the actual source
      ShowMessage(GetDocSource ( (_id_IHTMLDocument2) FrameDoc ));
      clicked = DocClickButton3 ( FrameDoc, ButtonName );

      if ( clicked )
       break;
      }

*******change the get source method as below.
typedef CComPtr<IHTMLDocument2> _id_IHTMLDocument2;  //  or tcominterface
typedef CComPtr<IPersistStreamInit> _id_IPersistStreamInit;

AnsiString GetDocSource ( _id_IHTMLDocument2 htm )
{
  AnsiString Source = "";

  _id_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());
            }
        }
  return Source;
}


as Han's Iter functions enumerate the frames, the html source should show.

--
Michael