🚀 go-pugleaf

Thanks Remy!
I had the same problem about IThumbnailCapture instance.

Well, what i would like to  do is to save a page preview as jpeg of an HTML
page.
I asked about CreateThumbnail as last try.
I found these 2 Delphi codes snip but both seems not good for BCB++.
In the first I got an error because IHTMLDocument2 seems don't have a Body
property.
In the second I have JPEG, but all of them are 1600x1200 (like my screen
resolution).
Maybe you can help in that way.

------- first code ----------
var
 Doc: IHTMLDocument2;
 body: OleVariant;
begin
 Doc := IHTMLDocument2(yourWebBrowser.Document);
 body := Doc.Body;                             <<<------------- HERE THE
PROBLEM IHTMLDocument2 doesn't have Body property!
 body.NoWrap := True;

 {hide scrollbars}
 body.Style.BorderStyle := 'none';
 body.Scroll := 'no';

 intWidth := body.ScrollWidth;
 intHeight := body.ScrollHeight;
 yourWebBrowser.Width := body.ScrollWidth;
 yourWebBrowser.Height := body.ScrollHeight;

 sourceDrawRect := Rect(0, 0, body.ScrollWidth, body.ScrollHeight);
 sourceBitmap := TBitmap.Create;
 try
   sourceBitmap.Width := WebBrowser.Width;
   sourceBitmap.Height := WebBrowser.Height;

   WebBrowser.Document.QueryInterface(IViewObject, ViewObject);
   if ViewObject <> nil then
     try
       ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle,
sourceBitmap.Canvas.Handle, @sourceDrawRect, nil, nil, 0);
     finally
       ViewObject._Release;
     end;

   sourceBitmap.SaveToFile(yourFileName);
 finally
   sourceBitmap.Free;
 end;
end;


-------- second code ----------------

var
  IDoc1: IHTMLDocument2;
  Web: ShDocVW_TLB.IWebBrowser2;
  tmpX, tmpY: Integer;

begin
  with WebBrowser1 do
  begin
    Document.QueryInterface(IHTMLDocument2, iDoc1);
    Web := ControlInterface;
    tmpX := Height;
    tmpY := Width;
    TControl(WebBrowser1).Visible := Boolean(0);
    Height := OleObject.Document.ParentWindow.Screen.Height;
    Width := OleObject.Document.ParentWindow.Screen.Width;
    generateJPEGfromBrowser(Web,'c:\test.jpg',Height, Width, Height, Width);
    Height := tmpX;
    Width := tmpY;
    TControl(WebBrowser1).Visible := Boolean(1);
  end;
end;

procedure generateJPEGfromBrowser(browser: iWebBrowser2; jpegFQFilename:
string;
  srcHeight: Integer; srcWidth: Integer; tarHeight: Integer; tarWidth:
Integer);
var
  sourceDrawRect: TRect;
  targetDrawRect: TRect;
  sourceBitmap: TBitmap;
  targetBitmap: TBitmap;
  jpeg: TJPEGImage;
  viewObject: IViewObject;
begin
  sourceBitmap := TBitmap.Create;
  targetBitmap := TBitmap.Create;
  jpeg := TJPEGImage.Create;
  try
    try
      sourceDrawRect := Rect(0, 0, srcWidth, srcHeight);
      sourceBitmap.Width  := srcWidth;
      sourceBitmap.Height := srcHeight;

      viewObject := browser as IViewObject;

      if viewObject = nil then
        Exit;

      OleCheck(viewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Form1.Handle,
        sourceBitmap.Canvas.Handle, @sourceDrawRect, nil, nil, 0));

      // Resize the src bitmap to the target bitmap
      targetDrawRect := Rect(0, 0, tarWidth, tarHeight);
      targetBitmap.Height := tarHeight;
      targetBitmap.Width  := tarWidth;
      targetBitmap.Canvas.StretchDraw(targetDrawRect, sourceBitmap);

      // Create a JPEG from the Bitmap and save it
      jpeg.Assign(targetBitmap);

      jpeg.SaveToFile(jpegFQFilename);
    finally
      jpeg.Free;
      sourceBitmap.Free;
      targetBitmap.Free;
    end;
  except
    // Error Code
  end;
end;

------------------

Thanks for your time.
Sincerely,
Lapo