как зделать скриншот сайта

← →
integerr (2007-08-08 18:08) [0]

нужно зделать скриншот сайта в файл jpg

← →
WhiteRaven (2007-08-14 11:02) [1]

Открываешь сайт в браузере и нажимаешь CTRL + PrintScreen
Открываешь MSPaint и вставляешь рисунок из Буффера
Сохраняешь в формате JPG

← →
Debug © (2007-08-14 22:36) [2]

> Открываешь сайт в браузере и нажимаешь CTRL + PrintScreen
> Открываешь MSPaint и вставляешь рисунок из Буффера Сохраняешь
> в формате JPG

Нет. Лучше берешь цифровой фотоаппарат, фоткаешь и сохраняешь на винт. Еще можно монитор отсканировать.

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; код не мой. Взято с delphiworld

как зделать скриншот сайта Найти похожие ветки