BorlandTalk.com

Trevor Keegan · Guest

Hi,

I have been looking at some code from that describes how to convert a HTML
page into an image (http://starkravingfinkle.org/blog/2004/09/). The
problem is before I get started, I see code like:
IHTMLDocument2 * pDoc = ....;
IHTMLELEMENT * pBodyElement = 0
HRESULT hr = pDoc->get_body(&pBodyElement);
if( SUCCEED(hr))
{
IHTMLElement * pBody = 0;
hr = pBodyElem - >QueryInterface( IID_IHTMLBodyElement,
(void**)&bBody );
:
:
}

The problem is I do not know what variables like amp and gt should be.

I would also like to understand what the purpose of things like pDoc-&gt are
(I would appear to be getting a pointer to something).....I get the feeling
that there should be another way of writing this.
HRESULT hr = pDoc->get_body(&pBodyElement);
hr = pBodyElem - >QueryInterface( IID_IHTMLBodyElement,
(void**)&bBody );

Regards
Trevor Keegan

Trevor Keegan · Guest

Hello Eduardo,

Thanks....you have just made me feel stupid in the nicest way :-D

Regards
Trevor Keegan
"Eduardo Jauch" <eduardo.jauch (AT) gmail (DOT) com> wrote in message
news:45c7e8a8$1 (AT) newsgroups (DOT) borland.com...

Remy Lebeau (TeamB) · Guest

"Trevor Keegan" <tkeegan (AT) ealink (DOT) com> wrote in message
news:45c7e3f6 (AT) newsgroups (DOT) borland.com...

Eduardo Jauch · Guest

Trevor Keegan escreveu:

Trevor Keegan · Guest

Hi,

I have managed to working everything out now.....thanks for all the help.

Regards
Trevor Keegan

Eduardo Jauch · Guest

Trevor Keegan · Guest

Hello Remy,

Thanks a bunch. :)

I am trying to work out now what code I need to write where it say:

HDC hImageDC = ..... //Could be bitmap or Enhanced MetaFile

Are you able to help me here please.

Regards
Trevor Keegan

Hans Galema · Guest

Trevor Keegan wrote:

Trevor Keegan · Guest

Hi Hans,

Sure....it is the least that I can do Very Happy

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

Tom · Guest

"Trevor Keegan" <tkeegan (AT) ealink (DOT) com> wrote in message
news:45c9699a (AT) newsgroups (DOT) borland.com...

Tom · Guest

First of all thanks for this code. However, I'm having
a couple of issues with it. One of which is pretty much
solved.

1. The Width and Height were too small. I simply
increased the Browser width and height a bit beyond
what the scroll width/height are. That part seems ok
now.

2. The scroll bars are still there. Using
http://movies.yahoo.com as an example and saving
that picture, I still have the scrollbars on the right.
Are there still there for you? I figure I can trim
the picture down before saving it, but was hoping
for a cleaner solution.

Regards,

Tom

Trevor Keegan · Guest

Hi Tom,

Trevor Keegan · Guest

Hello Tom,

Hans Galema · Guest

Trevor Keegan wrote: