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

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

Скриншот окна броузера [D7, WinXP]

Страницы:   < 1 2 >

kyn66 ©   (2008-07-09 11:57:00) 

Уважаемые мастера, возникла задача снять скриншот окна броузера, именно его рабочего окна, а не всего окна монитора.
Спасибо.

---

brother   (2008-07-09 13:09:00) [21]

про delphi никто не говорил ;)

---

kyn66   (2008-07-09 13:06:00) [22]

Ну и как доступ к этой области заполучить? Мне нужно в файл сохранить. Раньше делал так:

procedure TGenTFrm.SaveImageToFile(NameSave : String; TypeFile : Byte);
var
 BitMap1 : Graphics.TBitmap;
 Image1  : TImage;
 Jpeg1   : TJPEGImage;  
 Png1    : TPNGObject;
begin
 BitMap1 := TBitMap.Create;
 try
   BitMap1.Height:=GPanel1.Height;
   BitMap1.Width:=GPanel1.Width;
   BitBlt(BitMap1.Canvas.Handle, 0 {Лево}, 0{Top},GPanel1.Width, GPanel1.Height,
          GetDC(GPanel1.Handle), 0, 0, SRCCOPY);
   Image1 := TImage.Create(nil);
   BitMap1.IgnorePalette := True;
   Image1.Picture.Assign(BitMap1);
   Case TypeFile of
      0 : begin
            BitMap1.SaveToFile(NameSave + '.bmp');
          end;
      1 : begin
            Jpeg1 := TJpegImage.Create;
            Jpeg1.Assign(Image1.Picture.Bitmap);
            Jpeg1.SaveToFile(NameSave + '.jpg');
            Jpeg1.Free;
          end;
      2 : begin
            Png1 := TPNGObject.Create;
            Png1.Assign(Image1.Picture.Bitmap);
            Png1.SaveToFile(NameSave + '.png');
            Png1.Free;
          end;
   end;{Case}
   Image1.Free;
   Messager.Message := 'Картинка скопирована ' + #10#13 +
                       'на жесткий диск.';
   Messager.Show;
 finally
   BitMap1.Free;
 end;
end;


Только в данном случае я четко указывал на область копирования. А сейчас как быть?

---

Anatoly Podgoretsky   (2008-07-09 13:00:00) [23]

Ну так Print же. Перевожу на падонский Распечатка

---

brother   (2008-07-09 12:57:00) [24]

Удалено модератором

---

Leonid Troyanovsky   (2008-07-09 12:52:00) [25]

Удалено модератором
Примечание: Выбираем выражения...

---

Palladin   (2008-07-09 12:51:00) [26]

Alt+Print Screen
Paint

---

kyn66   (2008-07-09 12:36:00) [27]

Мне не нужна распечатка, а тем боле всег экрана. В вопросе четко указана зона захвата.

---

Palladin   (2008-07-09 12:28:00) [28]

Alt+Print Screen

---

Страницы:   < 1 2 >

Наверх