| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как зделать скриншот сайта [D7, Win2k]

integerr ©   (2007-08-08 18:08:00) 

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

---

anton773   (2007-08-16 21:10:00) [1]

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

---

Debug   (2007-08-14 22:36:00) [2]

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

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

---

WhiteRaven   (2007-08-14 11:02:00) [3]

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

---

Наверх