Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!
Как в Delphi 6 отпечатать изображение с экрана монитора?
В DOS была функция Grabpcx.

Заранее благодарен. Рубин Я. И.

Вопрос задал: Рубин Я.И. (статус: Посетитель) Вопрос отправлен: 16 февраля 2008, 11:25 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Рубин Я.И.!
Ну вообще то тут можно и без делфи обойтись:) Нажимаем PrintScreen (Это для всего экрана) или Alt+PrintScreen (это для активного окна) и копия в виде картинки в буфере обмена. Дальше можно вставить в любимый графический редактор и отпечатать. Можно и в Word вставить:)
Теперь ближе к делфи. Если хочеться отпечатать форму - у неё есть специальный метод, который так и называется - print.
Теперь о всём экране. тут прийдётся действовать в два прихода. Вначале "грабим экран", потом печатаем.
Первое делаем так

var
  bmp: TBitmap;
  DC: HDC;
begin
  bmp:=TBitmap.Create;
  bmp.Height:=Screen.Height;
  bmp.Width:=Screen.Width;
  DC:=GetDC(0);  //Дескpиптоp экpана
  bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
    DC, 0, 0, SRCCOPY);
  //bmp.SaveToFile('Screen.bmp');// Эта строка нам наверное и не надо
PrintBitmap(bmp);//это процедура печати, она ниже
  ReleaseDC(0, DC);
bmp.free;

{ Печатаем изображение, растягивая его до целого листа }
 
procedure PrintBitmap(ABitmap: TBitmap);
var
  relheight, relwidth: integer;
begin
  screen.cursor := crHourglass;
  Printer.BeginDoc;
  if ((ABitmap.width / ABitmap.height) > l(printer.pagewidth /
    printer.pageheight)) then
  begin
    { Растягиваем ширину изображения до ширины бумаги }
    relwidth := printer.pagewidth;
    relheight := MulDiv(ABitmap.height, printer.pagewidth, ABitmap.width);
  end
  else
  begin
    { Растягиваем высоту изображения до высоты бумаги }
    relwidth := MulDiv(ABitmap.width, printer.pageheight, ABitmap.height);
    relheight := printer.pageheight;
  end;
  DrawImage(Printer.Canvas, Rect(0, 0, relWidth, relHeight), ABitmap);
  Printer.EndDoc;
  screen.cursor := crDefault;
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 16 февраля 2008, 16:39

Ответ #2. Отвечает эксперт: Feniks

Здравствуйте, Рубин Я.И.!
В вопрос #1133 рассматривались примеры по сохранению скриншотов в файл. Можете все способы опробовть и комбинировать.
Желаю удачи.

Ответ отправил: Feniks (статус: Бакалавр) Время отправки: 18 февраля 2008, 10:26

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.