🚀 go-pugleaf

Hi Hans,

Sure....it is the least that I can do :-D Here is is:

void __fastcall TForm1::btnSaveScreenClick(TObject *Sender)
{
  TComInterface<IHTMLDocument2> Doc;
  CppWebBrowser1->Document->QueryInterface( IID_IHTMLDocument2, 
(LPVOID*)&Doc );

  if( Doc )
  {
    IHTMLElement * pBodyElement;
    Doc->get_body( &pBodyElement );
    if( pBodyElement )
    {
      IHTMLBodyElement * pBody = 0;
      pBodyElement->QueryInterface( IID_IHTMLBodyElement, (void**)&pBody );
      if( pBody )
      {
        //Hide 3D border
        IHTMLStyle * pStyle;
        pBodyElement->get_style( &pStyle );
        if( pStyle )
        {
          pStyle->put_borderStyle( WideString( "none" ) );
          pStyle->Release();
        }

        //Hide Scroll Bars
        pBody->put_scroll( WideString( "no" ) );

        //Resize the browser component to the size of the HTML content
        IHTMLElement2 * pBodyElement2;
        pBody->QueryInterface( IID_IHTMLElement2, (void **)&pBodyElement2 );
        if( pBodyElement2 )
        {
          long iScrollWidth = 0;
          long iScrollHeight = 0;
          pBodyElement2->get_scrollWidth( &iScrollWidth );
          pBodyElement2->get_scrollHeight( &iScrollHeight );

          try
          {
            //Allow the browser window to be resized so that we can get the 
whole image
            CppWebBrowser1->Align = alNone;

            CppWebBrowser1->Width = iScrollWidth;
            CppWebBrowser1->Height = iScrollHeight;

            pBodyElement2->Release();

            IViewObject * pViewObject;
            Doc->QueryInterface( IID_IViewObject, ( void ** )&pViewObject );
            if( pViewObject )
            {
              Graphics::TBitmap * Bitmap = new Graphics::TBitmap();
              if( Bitmap )
              {
                RECTL rcSource = {0,0, iScrollWidth, iScrollHeight };
                Bitmap->Width = iScrollWidth;
                Bitmap->Height = iScrollHeight;
                pViewObject->Draw( DVASPECT_CONTENT, 1, NULL, NULL, Handle, 
Bitmap->Canvas->Handle, &rcSource, NULL, NULL, 0 );

                TJPEGImage * JPEG = new TJPEGImage;
                if( JPEG )
                {
                  try
                  {
                    JPEG->Assign( Bitmap );
                    JPEG->SaveToFile( "c:\\Rubbish\\test.jpg" );
                  }
                  __finally
                  {
                    delete JPEG;
                  }
                }

                delete Bitmap;
              }

              pViewObject->Release();
            }
          }
          __finally
          {
            //Set the browser back to the original size
            CppWebBrowser1->Align = alClient;
          }
        }
        pBody->Release();
      }
      pBodyElement->Release();
    }
    Doc->Release();
  }
}



Regards
Trevor Keegan