[Димон]

как вызвать процедуру generateJPEGfromBrowser ? что такое" browser: iWebBrowser2" и tarHeight: Integer; tarWidth: Integer ????????

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

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, self.Handle, sourceBitmap.Canvas.Handle, @sourceDrawRect, nil, nil, 0));   // Resize Bitmap targetDrawRect := Rect(0,0, tarWidth, tarHeight); targetBitmap.Height := tarHeight; targetBitmap.Width := tarWidth; targetBitmap.Canvas.StretchDraw(targetDrawRect, sourceBitmap);   // Create JPEG from Bitmap and save it jpeg.Assign(targetBitmap) ; makeFileWriteable(jpegFQFilename); jpeg.SaveToFile (jpegFQFilename); finally jpeg.free; sourceBitmap.free ; targetBitmap.free; end; except // errors end; end;

lmikle: Ой, кто-то бит будет за неиспользование тегов...

[stroi19]

не очень понятно

[lmikle]

browser : IWebBrowser2 - ссылка на интерфейс реального окна броузера.
tarHeight, tarWidth - высота и ширина получаемой картинки.

Первый параметр получается из окна браузера, есть там соответсвующее свойство, только его надо привести к нужному интерфейсу.
Второй и третий ты задаешь сам по своим потребностям.

[Casper-Hacker]

generateJPEGfromBrowser(WebBrowser1,GetCurrentDir+ '\Screen.jpg',WebBrowser1.Height,WebBrowser1.Width ,WebBrowser1.Height,WebBrowser1.Width);