VPF::Screensaver - Форум программистов

BSOD

Дата 6.12.2004, 22:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 405
Регистрация: 1.11.2004
Где: Гомель

Репутация: нет
Всего: 3

Как сохранить снимок экрана в буфер? (Кроме Print Screen smile

)

--------------------

как корабль назовешь - то на нем и напишешь

Alex

Дата 6.12.2004, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 6
Всего: 162

На форме у меня стоит TImage (его можно сделать невидимым)

Код


uses JPEG; 
... 
var i: TJPEGImage; 
begin 
  try 
    i := TJPEGImage.create; 
    try 
      i.CompressionQuality := 100; 
      image.Width := screen.width; 
      image.height := screen.height; 
      DWH := GetDesktopWindow; 
      GetWindowRect(DWH, DRect); 
      DescDC := GetDeviceContext(DWH); 
      Canv.Handle := DescDC; 
      DRect.Left := 0; 
      DRect.Top := 0; 
      DRect.Right := screen.Width; 
      DRect.Bottom := screen.Height; 
      Image.Canvas.CopyRect(DRect, Canv, DRect); 
      i.assign(Image.Picture.Bitmap); 
      I.SaveToFile('M:\MyFile.jpg'); 
    finally 
      i.free; 
    end; 
  except 
  end;

Типы использованных переменных:

Код


Dwh : HWND; 
DRect: TRect; 
DescDC : HDC; 
Canv : TCanvas;

Автор ответа: Vit
Взято с Vingrad.ru http://forum.vingrad.ru

Некоторые функции для копирования и вставки Bitmap-объектов через буфер обмена.

Код


function CopyClipToBuf(DC: HDC; Left, Top, Width, Height: Integer;  Rop: LongInt; var CopyDC: HDC; var CopyBitmap: HBitmap): Boolean; 
var 
  TempBitmap: HBitmap; 
begin 
  Result := False; 
  CopyDC := 0; 
  CopyBitmap := 0; 
  if DC <> 0 then 
    begin 
      CopyDC := CreateCompatibleDC(DC); 
      if CopyDC <> 0 then 
        begin 
          CopyBitmap := CreateCompatibleBitmap(DC, Width, Height); 
          if CopyBitmap <> 0 then 
            begin 
              TempBitmap := CopyBitmap; 
              CopyBitmap := SelectObject(CopyDC, CopyBitmap); 
              Result := BitBlt(CopyDC, 0, 0, Width, Height, DC, Left, Top, Rop); 
              CopyBitmap := TempBitmap; 
            end; 
        end; 
    end; 
end; 

function CopyBufToClip(DC: HDC; var CopyDC: HDC; var CopyBitmap: HBitmap;  
           Left, Top, Width, Height: Integer; 
           Rop: LongInt; DeleteObjects: Boolean): Boolean; 
var 
  TempBitmap: HBitmap; 
begin 
  Result := False; 
  if (DC <> 0) and (CopyDC <> 0) and (CopyBitmap <> 0) then 
    begin 
      TempBitmap := CopyBitmap; 
      CopyBitmap := SelectObject(DC, CopyBitmap); 
      Result := BitBlt(DC, Left, Top, Width, Height, CopyDC, 0, 0, Rop); 
      CopyBitmap := TempBitmap; 
      if DeleteObjects then 
        begin 
          DeleteDC(CopyDC); 
          DeleteObject(CopyBitmap); 
        end; 
    end; 
end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

BSOD

Дата 7.12.2004, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 405
Регистрация: 1.11.2004
Где: Гомель

Репутация: нет
Всего: 3

Что-то я из этого всего не сильно понял, как сохранить экран в БУФЕР, и только (не в jpeg)
как его получить, я знаю, мне нужно всего лишь скопировать в буфер........

--------------------

как корабль назовешь - то на нем и напишешь

dm9

Дата 8.12.2004, 04:03 (ссылка)

(нет голосов)

Загрузка ...

Дмитрий Копытин

Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 1
Всего: 137

http://delphimaster.ru/cgi-bin/faq.pl?look...=988620754&n=15

Только маленькая опечатка в комментарии от Анатолия Подгорецкого.
"Весь экран" и "Активное окно" перепутаны.
Добавлено @ 04:04
Типа, нравоучение: пользуйтесь поиском smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »