🚀 go-pugleaf

Thank you very much for your answer.

Maybe I will try it, but by accident I found an easier way to download the 
images.

Nevertheless thanks again.

regards,

Anton





"Brian" <brian@nospam.net> schreef in bericht 
news:2f97fdd08a398ca61482f0b0c0e@newsgroups.borland.com...
>> Using TCppWebBrowser I made an application to show Google Maps or
>> Microsoft Virtual Earth.
>>
>> Now I'm looking for a way to capture those maps in a jpeg.
>>
> I did this a while ago (if I remember correctly, I owe Remy a credit or 
> two):
>
>  TComInterface<IHTMLDocument2> Doc;
>  TComInterface<IHTMLStyle> Style;
>  TComInterface<IHTMLElement> Body;
>  TComInterface<IHTMLBodyElement> BodyElement;
>  TComInterface<IViewObject> ViewObject;
>
>  { 
> if(SUCCEEDED(web->Document->QueryInterface(IID_IHTMLDocument2,(LPVOID*)&Doc)))
>    { if(SUCCEEDED(Doc->get_body(&Body)))
>      { 
> if(SUCCEEDED(Body->QueryInterface(IID_IHTMLBodyElement,(LPVOID*)&BodyElement)))
>        { BodyElement->put_noWrap(VARIANT_TRUE);
>          // hide scrollbars
>          if( SUCCEEDED(Body->get_style(&Style)))
>            Style->put_borderStyle(WideString("none"));
>          BodyElement->put_scroll(WideString("no"));
> 
> web->Document->QueryInterface(IID_IViewObject,(LPVOID*)&ViewObject);
>          if(ViewObject)
>          { RECT SourceRect=Rect(0,0,web->Width,web->Height);
>            Graphics::TBitmap *bitmap=new Graphics::TBitmap;
>            bitmap->PixelFormat=pf32bit;
>            bitmap->Height=web->Height;
>            bitmap->Width=web->Width;
>            if(SUCCEEDED(ViewObject->Draw(
>                                DVASPECT_CONTENT,1,NULL,NULL,
>                                this->Handle,bitmap->Canvas->Handle,
>                                (_RECTL *) &SourceRect, NULL, NULL,0)))
>            { ...
>              delete bitmap;
>            }
>          }
>        }
>      }
>    }
>  }
>
>